AFS :: KTC_TOKE AFS :: KTC_TOKE is een Perl-klasse om de AFS-structuur KTC_TOKE aan te pakken.
Download nu

AFS :: KTC_TOKE Rangschikking & Samenvatting

AFS :: KTC_TOKE Tags

structuur Perl-module AFS AFS-structuur omgaan met AFS

AFS :: KTC_TOKE Beschrijving

AFS :: KTC_TOKEN is een Perl-klasse aan de AFS structuur ktc_token behandelen. AFS :: KTC_TOKEN is een Perl-klasse aan de AFS structuur ktc_token.SYNOPSIS gebruik AFS behandelen :: KTC_TOKEN; Gebruik AFS :: KTC_PRINCIPAL; Gebruik AFS :: KTC_EKEY; gebruik AFS :: Cell qw (localcell); mijn $ token = AFS :: KTC_TOKEN-> nulltoken; afdrukken "StartTime =", $ token-> startTime, "n"; afdrukken "EndTime =", $ token-> endTime, "n"; afdrukken "sessieSleutel =", $ token-> sessieSleutel, "n"; afdrukken "KVNO =", $ token-> KVNO, "n"; afdrukken "TicketLen =", $ token-> ticketLen, "n"; afdrukken "Ticket =", $ token-> ticket, "n"; afdrukken "String =", $ token-> string, "n"; mijn $ index = 0; mijn $ service = AFS :: KTC_PRINCIPAL-> ListTokens ($ index); afdrukken "service =", $ service-> principal, "n"; ($ Token, mijn $ user) = AFS :: KTC_TOKEN-> GetToken ($ dienst); afdrukken "client =", $ user -> principal, "n"; afdrukken "StartTime =", $ token-> startTime, "n"; afdrukken "EndTime =", $ token-> endTime, "n"; afdrukken "sessieSleutel =", $ token-> sessieSleutel, "n"; afdrukken "KVNO =", $ token-> KVNO, "n"; afdrukken "TicketLen =", $ token-> ticketLen, "n"; afdrukken "Ticket =", $ token-> ticket, "n"; afdrukken "String =", $ token-> string, "n"; $ Service = AFS :: KTC_PRINCIPAL-> new ( "AFS", "", localcell); ($ Token, $ user) = AFS :: KTC_TOKEN-> GetToken ($ dienst); AFS :: KTC_TOKEN-> ForgetAllTokens (); AFS :: KTC_TOKEN-> SetToken ($ service, $ token, $ user, 0); mijn $ string = $ token-> string; $ Token = AFS :: KTC_TOKEN-> fromString ($ string); afdrukken "StartTime =", $ token-> startTime, "n"; afdrukken "EndTime =", $ token-> endTime, "n"; mijn $ user = AFS :: KTC_PRINCIPAL-> new ( 'nog', '', localcell); mijn $ key = AFS :: KTC_EKEY-> ReadPassword ( 'ingelogd Wachtwoord:'); mijn $ ok = AFS :: KTC_TOKEN-> getAuthToken ($ user, $ key, 600); $ Service = AFS :: KTC_PRINCIPAL-> new ( "AFS", "", localcell); $ Token = AFS :: KTC_TOKEN-> GetServerToken ($ service, 600, 1); $ User = AFS :: KTC_PRINCIPAL-> new ( 'nog', '', localcell); $ Key = AFS :: KTC_EKEY-> ReadPassword ( 'ingelogd Wachtwoord:'); $ Token = AFS :: KTC_TOKEN-> GetAdminToken ($ user, $ key, 300); $ User = AFS :: KTC_PRINCIPAL-> new ( 'nog'); $ Password = AFS :: KTC_EKEY-> UserReadPassword ( "Password:"); mijn $ pwexp = 0; mijn $ reden = ''; $ Ok = AFS :: KTC_TOKEN-> UserAuthenticateGeneral ($ user, $ password, 300, AFS :: KA_USERAUTH_VERSION | AFS :: KA_USERAUTH_DOSETPAG, $ pwexp, $ reden); AFS :: KTC_TOKEN-> ForgetAllTokens (); OPMERKING: De volgende lijnen zijn 'versie 1' stijl: alle namen worden uitgevoerd door gebrek. Deze stijl is afgeweken !!! gebruik AF's; # Importeren alle AFS namen te gebruiken AFS @AFS :: KA; # Import alleen de ka namen te gebruiken AFS @AFS :: KTC; # Import alleen de KTC namesThis-klasse biedt methoden om de AFS structuur ktc_token behandelen. Deze structuur bevat informatie over tokens en wordt gebruikt in de kernel Token Cache (KTC), en bevindt zich in de cache Manager.It wordt gebruikt voor het maken, modificeren en ophalen ktc_token gevallen voor verschillende diensten. Het heeft methoden te halen en naar de ktc_token attributen opnieuw in te stellen. Met het oog op het juiste gebruik van deze methoden maken is het noodzakelijk om de toegang tot AFS hebben :: KTC_PRINCIPAL objecten en AFS :: KTC_EKEY objecten. Vereisten: · Perl

AFS :: KTC_TOKE Gerelateerde software