|
|
Installation of WRQ Reflection Suite version 12.0 using console mode
08-15-2010
Installation of WRQ Reflection Suite version 12.0 using console mode
|
|
TFTPd(3pm) User Contributed Perl Documentation TFTPd(3pm) NAME
Net::TFTPd - Perl extension for Trivial File Transfer Protocol Server SYNOPSIS
use strict; use Net::TFTPd; my $tftpdOBJ = Net::TFTPd->new('RootDir' => 'path/to/files') or die "Error creating TFTPd listener: %s", Net::TFTPd->error; my $tftpRQ = $tftpdOBJ->waitRQ(10) or die "Error waiting for TFTP request: %s", Net::TFTPd->error; $tftpRQ->processRQ() or die "Error processing TFTP request: %s", Net::TFTPd->error; printf "%u bytes has been transferred", $tftpRQ->getTotalBytes() || 0; DESCRIPTION
"Net::TFTPd" is a class implementing a simple Trivial File Transfer Protocol server in Perl as described in RFC1350. "Net::TFTPd" also supports the TFTP Option Extension (as described in RFC2347), with the following options: RFC2348 TFTP Blocksize Option RFC2349 TFTP Timeout Interval and Transfer Size Options EXPORT
None by default. %OPCODES The %OPCODES tag exports the %OPCODES hash: %OPCODES = ( 1 => 'RRQ', 2 => 'WRQ', 3 => 'DATA', 4 => 'ACK', 5 => 'ERROR', 6 => 'OACK', 'RRQ' => 1, 'WRQ' => 2, 'DATA' => 3, 'ACK' => 4, 'ERROR' => 5, 'OACK' => 6 ); Listener constructor new() $listener = new Net::TFTPd( ['RootDir' => 'path/to/files' | 'FileName' => 'path/to/file'] [, OPTIONS ] ); or $listener = Net::TFTPd->new( ['RootDir' => 'path/to/files' | 'FileName' => 'path/to/file'] [, OPTIONS ] ); Create a new Net::TFTPd object where 'path/to/files' is the default path to file repository or 'path/to/file' is the single file allowed for download, and OPTIONS are the default server options. Valid options are: Option Description Default ------ ----------- ------- LocalAddr Interface to bind to (for multi-homed server) any LocalPort Port to bind server to 69 Timeout Timeout in seconds to wait for a request 10 ACKtimeout Timeout in seconds to wait for an ACK packet 4 ACKretries Maximum number of retries waiting for ACK 4 Readable Clients are allowed to read files 1 Writable Clients are allowed to write files 0 BlkSize Minimum blocksize to negotiate for transfers 512 CallBack Reference to code executed for each transferred block - Debug Activates debug mode (verbose) 0 CallBack The CallBack code is called by processRQ method for each tranferred block. The code receives (into @_ array) a reference to internal $request object. Example: sub callback { my $req = shift; printf "block: %u/%u ", $req->{'_REQUEST_'}{'LASTACK'}, $req->{'_REQUEST_'}{'LASTBLK'}; } my $tftpdOBJ = Net::TFTPd->new('RootDir' => 'c:/temp', 'Timeout' => 60, 'CallBack' => &callback) or die Net::TFTPd->error; Listener methods waitRQ() $request = $listener->waitRQ([Timeout]); Waits for a client request (RRQ or WRQ) and returns a $request object or undef if timed out. If Timeout is missing, the timeout defined for $listener object is used instead. When the method returns, the program should fork() and process the request invoking processRQ() while the parent process should re-start waiting for another request. Request methods processRQ() $ret = $request->processRQ(); Processes a request and returns 1 if success, undef if error. getFileName() $ret = $request->getFileName(); Returns the requested file name. getMode() $ret = $request->getMode(); Returns the transfer mode for the request. getBlkSize() $ret = $request->getBlkSize(); Returns the block size used for the transfer. getPeerAddr() $ret = $request->getPeerAddr(); Returns the address of the requesting client. getPeerPort() $ret = $request->getPeerMode(); Returns the port of the requesting client. getTotalBytes() $ret = $request->getTotalBytes(); Returns the number of bytes transferred for the request. CREDITS
Thanks to <Vince> for the NETASCII support and transferred bytes patch. AUTHOR
Luigino Masarati, <lmasarati@hotmail.com> SEE ALSO
Net::TFTP. perl v5.10.1 2009-07-07 TFTPd(3pm)