| PoE :: Component :: TFTPD. POE¸¦ ÅëÇØ ±¸Çö µÈ TFTP ¼¹ö |
Áö±Ý ´Ù¿î·Îµå |
PoE :: Component :: TFTPD. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jan Henning Thorsen
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jhthorsen/
PoE :: Component :: TFTPD. ű×
PoE :: Component :: TFTPD. ¼³¸í
PoE¸¦ ÅëÇØ ±¸Çö µÈ TFTP-Server PoE :: Component :: TFTPD´Â PoE.Synopsis PoE :: Session-> Create (inline_states => {_start => sub {PoE :: Component :: TFTPD-> Create; $ _ -> POST ($ alias => 'start');}, tftpd_init => sub {my ($ Ŭ¶óÀ̾ðÆ®, $ fH) = ($ _ , undef); ¿±â ($ fh, ", $ client) -> filename) ($ client-> wrq); $ client -> { 'fh'} = $ fh;}, tftpd_done => sub {my $ client = $ _ ; $ Ŭ¶óÀ̾ðÆ® -> { ' fh '};}, tftpd_send => sub {my $ client = $ _ ; $ client -> {fh'}, My $ µ¥ÀÌÅÍ, $ Ŭ¶óÀ̾ðÆ® -> block_size; $ _ -> Æ÷½ºÆ® ($ alias => send_data => $ client, $ data);}, tftpd_receive => sub {my ($ Ŭ¶óÀ̾ðÆ®, $ data) = @_ ; {$ Ŭ¶óÀ̾ðÆ® -> { 'fh'} } $ data; $ _ -> POST ($ alias => send_ack => $ client);}, tftpd_log => sub {my ($ ·¹º§, $ client, $ msg) = @_ ; °æ°í (sprintf "% s - % s : % I - % s ", $ LEVEL, $ CLIENT-> ÁÖ¼Ò, $ Ŭ¶óÀ̾ðÆ® -> Æ÷Æ®, $ MSG,);},},); ¿ä±¸ »çÇ× : ¡¤ Perl.
PoE :: Component :: TFTPD. °ü·Ã ¼ÒÇÁÆ®¿þ¾î