Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
    http://www.apache.org/licenses/LICENSE-2.0


Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.



use Cro::HTTP::Client;
use WebService::HashiCorp::Vault::ResponseHeader;

#| SystemHealth holds information about the health of the overall Vault
#| instance
class SystemHealth is export {
    has Str    $!clusterID;
    has Str    $!clusterName;
    has Bool   $!initialized;
    has Bool   $!performanceStandby;
    has Str    $!replicationDRMode;
    has Str    $!replicationPerformanceMode;
    has Bool   $!sealed;
    has Int    $!serverTimeUTC;
    has Bool   $!standby;
    has Str    $!version;

    multi method clusterID {
        $!clusterID;
    }

    multi method clusterID($aString) {
        $!clusterID = $aString;
    }

    multi method clusterName {
        $!clusterName;
    }

    multi method clusterName(Str $aString) {
        $!clusterName = $aString;
    }

    multi method initialized {
        $!initialized;
    }

    multi method initialized(Bool $trueOrFalse) {
        $!initialized = $trueOrFalse;
    }

    multi method performanceStandby {
        $!performanceStandby;
    }

    multi method performanceStandby(Bool $trueOrFalse) {
        $!performanceStandby = $trueOrFalse;
    }

    multi method replicationDRMode {
        $!replicationDRMode;
    }

    multi method replicationDRMode(Str $aString) {
        $!replicationDRMode = $aString;
    }

    multi method replicationPerformanceMode {
        $!replicationPerformanceMode;
    }

    multi method replicationPerformanceMode(Str $aString) {
        $!replicationPerformanceMode = $aString;
    }

    multi method sealed {
        $!sealed;
    }

    multi method sealed(Bool $trueOrFalse) {
        $!sealed = $trueOrFalse;
    }

    multi method serverTimeUTC {
        $!serverTimeUTC;
    }

    multi method serverTimeUTC(Int $aString) {
        $!serverTimeUTC = $aString;
    }

    multi method standby {
        $!standby;
    }

    multi method standby(Bool $trueOrFalse) {
        $!standby = $trueOrFalse;
    }

    multi method version {
        $!version;
    }

    multi method version(Str $aString) {
        $!version = $aString;
    }

    submethod BUILD(
        $!clusterID = '',
        $!clusterName = '',
        $!initialized = False,
        $!performanceStandby = False,
        $!replicationDRMode = '',
        $!replicationPerformanceMode = '',
        $!sealed = False,
        $!serverTimeUTC = 0,
        $!standby = False,
        $!version = '') {
    }

    method getSystemHealth(Str :$baseURL!, Str :$tkn!) {
        my $endpoint = "$baseURL/v1/sys/health";
        my $client = Cro::HTTP::Client.new(
            headers => [
                X-Vault-Token => $tkn
            ]);

        my $response = await $client.get($endpoint);
        CATCH {
            when X::Cro::HTTP::Error {
                say "Error Response: "
                    ~ .response.status
                    ~ " when performing GET on target "
                    ~ .request.target;
            }
        }

        my $json = await $response.body;
        self.clusterID:                  $json{'cluster_id'};
        self.clusterName:                $json{'cluster_name'};
        self.initialized:                $json{'initialized'};
        self.performanceStandby:         $json{'performance_standby'};
        self.replicationDRMode:          $json{'replication_dr_mode'};
        self.replicationPerformanceMode: $json{'replication_performance_mode'};
        self.sealed:                     $json{'sealed'};
        self.serverTimeUTC:              $json{'server_time_utc'};
        self.standby:                    $json{'standby'};
        self.version:                    $json{'version'};

        self;
    }
}

class RandomData is export {
    has ResponseHeader $!header;
    has Str $!data;

    multi method header {
        $!header;
    }

    multi method header(ResponseHeader $hdr) {
        $!header = $hdr;
    }

    multi method data {
        $!data;
    }

    multi method data(Str $aString) {
        $!data = $aString;
    }

    submethod BUILD(
        :$!header

ResponseHeader


    method generateRandomBytes(Str :$baseURL!, Str :$tkn!, Str :$format!, Int :$length!) {
        my $body = '{"format": "hex"}';
        my $bytesResponse = RandomData.new();

        given $format {
            when /base64/ {
                $body = '{"format": "base64"}';
            }
        }

        my $endpoint = "$baseURL/v1/sys/tools/random/platform/$length";
        my $client = Cro::HTTP::Client.new(
            headers => [
                X-Vault-Token => $tkn
            ]);
        my $response = await $client.post: $endpoint,
        #body => '{"format": "hex"}';
            body => $body;
        CATCH {
            when X::Cro::HTTP::Error {
                say "Error Response: "
                    ~ .response.status
                    ~ " when performing GET on target "
                    ~ .request.target;
            }
        }

        my $json = await $response.body;
        self.header: ResponseHeader.new().fromJson(json => $json);
        self.data: $json{'data'}{'random_bytes'};

        self;
    }
}


root

README

SecretV2

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


System

WebService::HashiCorp::Vault v0.1.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation