ÀÚÀü°Å ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Hans Oesterholt-Dijkema
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~oesterhol/Wx-Polygon-0.06/Polygon.pm
ÀÚÀü°Å ű×
ÀÚÀü°Å ¼³¸í
À¯¿¬ÇÑ ¹é¿£µå¿Í UI°¡ÀÖ´Â ½ÂÀÎ ÇÁ·¹ÀÓ ¿öÅ©. AUT´Â À¯¿¬ÇÑ ¹é¿£µå¿Í UIS.Synopsis »ç¿ë ÀÚµ¿À¸·Î Perl ±â¹Ý ±ÇÇÑ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. AUT :: UI :: ConsoleÀ» »ç¿ëÇϽʽÿÀ. AUT :: Backend :: Conf; config :: frontend¸¦ »ç¿ëÇϽʽÿÀ; config :: backend :: ini; ¾ö°ÝÇÑ »ç¿ë; MY $ CFG = NEW CONFIG :: FRENTEND (»õ config :: backend :: ini ( "./ accounts.ini")); MY $ BACKEND = NEW AUT :: Backend :: Conf ($ CFG); ³» $ ui = »õ AUT :: UI :: Console (); MY $ AUT = NEW AUT (BACKEND => $ BACKEND, UI => $ UI, rsa_bits => 512, ·¹º§ => , adminLevel => "admin"); $ ƼÄÏ = $ aut-> ƼÄÏ _Get ( "admin", testpass "); ($ ƼÄÏ -> À¯È¿ ()) {$ ƼÄÏ = »õ AUT :: ƼÄÏ ( "admin", "TestPass"); $ ƼÄÏ -> set_rights ( "admin"); $ AUT-> Ticket_Create ($ ƼÄÏ); } $ ƼÄÏ = $ aut-> login (); Àμâ "°èÁ¤ :", $ ƼÄÏ -> °èÁ¤ (), " "; Àμâ"±ÇÇÑ : ", $ ƼÄÏ -> ±Ç¸® ()," "; ($ UI-> IS_ADMIN ($ ui-> is_admin ($ coapt));} else {$ ui-> message_ok (_t ("°ü¸®ÀÚ ±ÇÇÑÀÌ ¾øÀ½) "."°èÁ¤À» °ü¸®ÇÏÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù. ");}"°èÁ¤ : ", $ ƼÄÏ -> °èÁ¤ ()À» ÀμâÇϽʽÿÀ. "; Àμâ"±ÇÇÑ : ", $ ƼÄÏ -> ±Ç¸® ()," "; $ AUT-> CHANGE_PASS ($ ƼÄÏ); ¿ä±¸ »çÇ× : ¡¤ ÆÄÀ̽ã
ÀÚÀü°Å °ü·Ã ¼ÒÇÁÆ®¿þ¾î