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)