The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Mojo::TFTPd - Trivial File Transfer Protocol daemon

VERSION

0.04

SYNOPSIS

    use Mojo::TFTPd;
    my $tftpd = Mojo::TFTPd->new;

    $tftpd->on(error => sub {
        warn "TFTPd: $_[1]\n";
    });

    $tftpd->on(rrq => sub {
        my($tftpd, $c) = @_;
        open my $FH, '<', $c->file;
        $c->filehandle($FH);
        $c->filesize(-s $c->file);
    });

    $tftpd->on(wrq => sub {
        my($tftpd, $c) = @_;
        open my $FH, '>', '/dev/null';
        $c->filehandle($FH);
    });

    $tftpd->on(finish => sub {
        my($tftpd, $c, $error) = @_;
        warn "Connection: $error\n" if $error;
    });

    $tftpd->start;
    $tftpd->ioloop->start unless $tftpd->ioloop->is_running;

DESCRIPTION

This module implements a server for the Trivial File Transfer Protocol.

From Wikipedia:

    Trivial File Transfer Protocol (TFTP) is a file transfer protocol notable
    for its simplicity. It is generally used for automated transfer of
    configuration or boot files between machines in a local environment.

The connection ($c) which is referred to in this document is an instance of Mojo::TFTPd::Connection.

EVENTS

error

    $self->on(error => sub {
        my($self, $str) = @_;
    });

This event is emitted when something goes wrong: Fail to "listen" to socket, read from socket or other internal errors.

finish

    $self->on(finish => sub {
        my($self, $c, $error) = @_;
    });

This event is emitted when the client finish, either successfully or due to an error. $error will be an empty string on success.

rrq

    $self->on(rrq => sub {
        my($self, $c) = @_;
    });

This event is emitted when a new read request arrives from a client. The callback should set "filehandle" in Mojo::TFTPd::Connection or the connection will be dropped. "filehandle" in Mojo::TFTPd::Connection can also be a Mojo::Asset reference.

wrq

    $self->on(wrq => sub {
        my($self, $c) = @_;
    });

This event is emitted when a new write request arrives from a client. The callback should set "filehandle" in Mojo::TFTPd::Connection or the connection will be dropped. "filehandle" in Mojo::TFTPd::Connection can also be a Mojo::Asset reference.

ATTRIBUTES

connection_class

  $str = $self->connection_class;
  $self = $self->connection_class($str);

Used to set a custom connection class. Defaults to Mojo::TFTPd::Connection.

ioloop

Holds an instance of Mojo::IOLoop.

listen

    $str = $self->server;
    $self->server("127.0.0.1:69");
    $self->server("tftp://*:69"); # any interface

The bind address for this server.

max_connections

How many concurrent connections this server can handle. Default to 1000.

retries

How many times the server should try to send ACK or DATA to the client before dropping the connection.

inactive_timeout

How long a connection can stay idle before being dropped. Default is 15 seconds.

retransmit

How many times the server should try to retransmit the last packet on timeout before dropping the connection. Default is 0 (disable retransmits)

retransmit_timeout

How long a connection can stay idle before last packet being retransmitted. Default is 2 seconds.

METHODS

start

Starts listening to the address and port set in "Listen". The "error" event will be emitted if the server fail to start.

AUTHOR

Svetoslav Naydenov - harryl@cpan.org

Jan Henning Thorsen - jhthorsen@cpan.org