diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm | 63 |
1 files changed, 59 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm b/Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm index 3f9366894d1..eaa769d5d71 100644 --- a/Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm +++ b/Master/tlpkg/tlperl/lib/Net/FTP/dataconn.pm @@ -4,14 +4,19 @@ package Net::FTP::dataconn; +use 5.008001; + +use strict; +use warnings; + use Carp; -use vars qw(@ISA $timeout $VERSION); -use Net::Cmd; use Errno; +use Net::Cmd; -$VERSION = '0.12'; -@ISA = qw(IO::Socket::INET); +our $VERSION = '3.05'; +$Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn"; +our @ISA = $Net::FTP::IOCLASS; sub reading { my $data = shift; @@ -125,3 +130,53 @@ sub bytes_read { } 1; + +__END__ + +=head1 NAME + +Net::FTP::dataconn - FTP Client data connection class + +=head1 DESCRIPTION + +Some of the methods defined in C<Net::FTP> return an object which will +be derived from this class. The dataconn class itself is derived from +the C<IO::Socket::INET> class, so any normal IO operations can be performed. +However the following methods are defined in the dataconn class and IO should +be performed using these. + +=over 4 + +=item read ( BUFFER, SIZE [, TIMEOUT ] ) + +Read C<SIZE> bytes of data from the server and place it into C<BUFFER>, also +performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not +given, the timeout value from the command connection will be used. + +Returns the number of bytes read before any <CRLF> translation. + +=item write ( BUFFER, SIZE [, TIMEOUT ] ) + +Write C<SIZE> bytes of data from C<BUFFER> to the server, also +performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not +given, the timeout value from the command connection will be used. + +Returns the number of bytes written before any <CRLF> translation. + +=item bytes_read () + +Returns the number of bytes read so far. + +=item abort () + +Abort the current data transfer. + +=item close () + +Close the data connection and get a response from the FTP server. Returns +I<true> if the connection was closed successfully and the first digit of +the response from the server was a '2'. + +=back + +=cut |