AFS :: ktc_token.AFS :: KTC_TokenÀº AFS ±¸Á¶¸¦ ó¸®ÇÏ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. KTC_TOKEN. | |
Áö±Ý ´Ù¿î·Îµå |
AFS :: ktc_token. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Norbert E. Gruener
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nog/AFS-2.4.0/pod/v2/afsperlkas.pod
AFS :: ktc_token. ű×
AFS :: ktc_token. ¼³¸í
AFS :: KTC_TokenÀº AFS ±¸Á¶¸¦ ó¸®ÇÏ´Â Perl Ŭ·¡½º ktc_tokenÀÔ´Ï´Ù. AFS :: KTC_TokenÀº AFS ±¸Á¶¸¦ ó¸®ÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. KTC_Token.Synopsis AFS :: KTC_Token; AFS :: KTC_PrincipalÀ» »ç¿ëÇϽʽÿÀ. AFS :: KTC_EKEY¸¦ »ç¿ëÇϽʽÿÀ. AFS :: Cell QW (localcell); MY $ TOKEN = AFS :: KTC_TOKEN-> NULLTOKEN; "starttime =", $ TOKEN-> StartTime, "n"À» ÀμâÇϽʽÿÀ. "endtime =", $ TOKEN-> ¿£µå ŸÀÓ, "N"À» ÀμâÇϽʽÿÀ. "sessionkey =", $ token-> sessionkey, "n"À» ÀμâÇϽʽÿÀ. "kvno =", $ Token-> Kvno, "n"À» ÀμâÇϽʽÿÀ; "Ticketlen =", $ Token-> Ticketlen "N"À» ÀμâÇϽʽÿÀ. "ƼÄÏ =", $ TOKEN-> ƼÄÏ "N"À» ÀμâÇϽʽÿÀ. "string =", $ token-> string "n"À» ÀμâÇϽʽÿÀ. ³» $ index = 0; MY $ SERVICE = AFS :: KTC_PRICIPAL-> ListToKens ($ INDEX); "Service =", $ Service-> Principal "N"À» ÀμâÇϽʽÿÀ. ($ ÅäÅ«, ³» $ »ç¿ëÀÚ) = AFS :: KTC_TOKEN-> gettoken ($ ¼ºñ½º); "Client =", $ User -> Principal "N"À» ÀμâÇϽʽÿÀ. "starttime =", $ TOKEN-> StartTime, "n"À» ÀμâÇϽʽÿÀ. "endtime =", $ TOKEN-> ¿£µå ŸÀÓ, "N"À» ÀμâÇϽʽÿÀ. "sessionkey =", $ token-> sessionkey, "n"À» ÀμâÇϽʽÿÀ. "kvno =", $ Token-> Kvno, "n"À» ÀμâÇϽʽÿÀ; "Ticketlen =", $ Token-> Ticketlen "N"À» ÀμâÇϽʽÿÀ. "ƼÄÏ =", $ TOKEN-> ƼÄÏ "N"À» ÀμâÇϽʽÿÀ. "string =", $ token-> string "n"À» ÀμâÇϽʽÿÀ. $ service = afs :: ktc_principal-> new ( "AFS", "", localcell); ($ ÅäÅ«, $ »ç¿ëÀÚ) = AFS :: KTC_TOKEN-> gettoken ($ ¼ºñ½º); AFS :: ktc_token-> forgealltokens (); AFS :: KTC_TOKEN-> SETTOKEN ($ ¼ºñ½º, $ ÅäÅ«, $ »ç¿ëÀÚ, 0); MY $ string = $ Token-> ¹®ÀÚ¿; $ ÅäÅ« = AFS :: KTC_TOKEN-> fromstring ($ string); "starttime =", $ TOKEN-> StartTime, "n"À» ÀμâÇϽʽÿÀ. "endtime =", $ TOKEN-> ¿£µå ŸÀÓ, "N"À» ÀμâÇϽʽÿÀ. ³» $ user = afs :: ktc_principal-> new ( 'nog', ', localcell); ³» $ Å° = AFS :: KTC_EKEY-> READPASSWORD ( 'NOG ¾ÏÈ£ :'); MY $ OK = AFS :: KTC_Token-> GetAuthToken ($ »ç¿ëÀÚ, $ Å°, 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 ( 'nog password :'); $ token = afs :: ktc_token-> getAdmintoken ($ »ç¿ëÀÚ, $ Å°, 300); $ user = afs :: ktc_principal-> new ( 'nog'); $ password = afs :: ktc_ekey-> userreadPassword ( "password :"); ³» $ pwexp = 0; ³» $ ÀÌÀ¯ = ''; $ ok = afs :: ktc_token-> userAuthenticateGeneral ($ »ç¿ëÀÚ, $ password, 300, afs :: ka_userauth_version | afs :: ka_userauth_dosetpag, $ pwexp, $ ÀÌÀ¯); AFS :: ktc_token-> forgealltokens (); Âü°í : ´ÙÀ½ ÁÙÀº '¹öÀü 1'½ºÅ¸ÀÏÀÔ´Ï´Ù. ¸ðµç À̸§Àº ±âº»ÀûÀ¸·Î ³»º¸³»Áý´Ï´Ù. ÀÌ ½ºÅ¸ÀÏÀº ´õ ÀÌ»ó »ç¿ëµÇÁö ¾Ê½À´Ï´Ù !!! AFS¸¦ »ç¿ëÇϽʽÿÀ. # ¸ðµç AFS À̸§ °¡Á® ¿À±â AFS @AFS :: KA; # °¡Á® ¿À±â KA À̸§ ¸¸ AFS @AFS :: KTC; # °¡Á® ¿À±â KTC NamestHIS Ŭ·¡½º´Â AFS ±¸Á¶¸¦ ó¸®ÇÏ´Â ¸Þ¼Òµå¸¦ Á¦°øÇÕ´Ï´Ù. KTC_TOKEN. ÀÌ ±¸Á¶Ã¼¿¡´Â ÅäÅ«¿¡ ´ëÇÑ Á¤º¸°¡ Æ÷ÇԵǾî ÀÖÀ¸¸ç ij½Ã °ü¸®ÀÚÀÇ ÀϺÎÀÎ Ä¿³Î ÅäÅ« ij½Ã (KTC)¿¡¼ »ç¿ëµË´Ï´Ù. ÀÌ´Â ´Ù¸¥ ¼ºñ½º¿¡ ´ëÇÑ ktc_token ÀνºÅϽº¸¦ ÀÛ¼º, ¼öÁ¤ ¹× °Ë»öÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. ktc_token ¼Ó¼ºÀ» °Ë»öÇÏ°í Àç¼³Á¤ÇÏ´Â ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù. ÀÌ·¯ÇÑ ¸Þ¼ÒµåÀÇ ÀûÀýÇÑ »ç¿ëÀ» À§ÇØ AFS :: KTC_Principal °´Ã¼ ¹× AFS :: KTC_EKEY °´Ã¼¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ¾î¾ßÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
AFS :: ktc_token. °ü·Ã ¼ÒÇÁÆ®¿þ¾î
SQL :: PreProc.
SQL :: PreProcÀº Perl (ALA SQL Preprocessors)¿¡ SQLÀ» Æ÷ÇÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...
120
Posy :: Plugin :: DynamicCSS.
POSY :: Plugin :: DynamicCSS´Â »ç¿ëÀÚ Å±׿¡ µû¶ó ´Ù¸¥ CSS ½ºÅ¸ÀÏÀ»·ÎµåÇÏ´Â POSY Ç÷¯±×ÀÎÀÔ´Ï´Ù. ...
146