r8155 - in /trunk/libnet-lite-ftp-perl: Changes debian/changelog debian/watch lib/Net/Lite/FTP.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Tue Oct 9 19:05:09 UTC 2007
Author: gregoa-guest
Date: Tue Oct 9 19:05:09 2007
New Revision: 8155
URL: http://svn.debian.org/wsvn/?sc=1&rev=8155
Log:
New upstream release.
Modified:
trunk/libnet-lite-ftp-perl/Changes
trunk/libnet-lite-ftp-perl/debian/changelog
trunk/libnet-lite-ftp-perl/debian/watch
trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm
Modified: trunk/libnet-lite-ftp-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/Changes?rev=8155&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/Changes (original)
+++ trunk/libnet-lite-ftp-perl/Changes Tue Oct 9 19:05:09 2007
@@ -1,5 +1,10 @@
Revision history for Perl extension Net::Lite::FTP.
+0.54 - sub readln, fix for:
+ OPEN.Received: 220 xanax.wig.lublin.pl FTP server (Version 6.SRV Response: 220 xanax.wig.lublin.pl FTP server (Version 6.RECV: 220 xanax.wig.lublin.pl FTP server (Version 6.OPEN..Received: xanax.wig.lublin.pl FTP server (Version 6.Sending: USER anica
+ SRV Response: 00LS) ready.
+
+0.52 - cosmetic fix to size()
0.51 - cosmetic fix to size()
0.50 - oups, fix size()
0.49 - if ($sth=0) instead of $sth==0 fixed.
Modified: trunk/libnet-lite-ftp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/debian/changelog?rev=8155&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/debian/changelog (original)
+++ trunk/libnet-lite-ftp-perl/debian/changelog Tue Oct 9 19:05:09 2007
@@ -1,3 +1,9 @@
+libnet-lite-ftp-perl (0.54-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 21:04:58 +0200
+
libnet-lite-ftp-perl (0.52-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libnet-lite-ftp-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/debian/watch?rev=8155&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/debian/watch (original)
+++ trunk/libnet-lite-ftp-perl/debian/watch Tue Oct 9 19:05:09 2007
@@ -1,3 +1,3 @@
# format version number, currently 3; this line is compulsory!
version=3
-http://mirrors.kernel.org/cpan/modules/by-module/Net/Net-Lite-FTP-([\d\.]+)\.tar\.gz
+http://search.cpan.org/dist/Net-Lite-FTP/ .*/Net-Lite-FTP-([[:digit:]].*)\.tar\.gz
Modified: trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm?rev=8155&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm (original)
+++ trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm Tue Oct 9 19:05:09 2007
@@ -27,7 +27,7 @@
);
-our $VERSION = '0.52';
+our $VERSION = '0.54';
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
use constant BUFSIZE => 4096;
@@ -78,7 +78,7 @@
sub size ($$) {
my ($self,$filename)=@_;
- my $size=$self->command("SIZE $filename");chop $size;
+ my $size=$self->command("SIZE $filename");chop $size if defined($size);
return $size;
}
sub cdup ($$) {
@@ -105,6 +105,21 @@
sub msgcode ($) {
my ($self)=@_;
return $self->{'FTPCODE'};
+};
+
+sub readln {
+ my ($sock)=@_;
+ my ($data,$ln);
+ if (sysread($sock,$data,BUFSIZE)) {
+ $ln=$data;
+ while ($data!~/\n/) {
+ if (sysread($sock,$data,BUFSIZE)) {
+ #print "OPEN..Received: {$data}\n";# if $self->{Debug};
+ $ln.=$data;
+ };
+ };
+ };
+ return $ln;
};
sub open($$$) {
@@ -115,7 +130,7 @@
$self->{'Sock'}=$sock;
$self->{'Host'}=$host;
$self->{'Port'}=$port;
- if (sysread($sock,$data,BUFSIZE)) {
+ if ($data=readln($sock)) {
print STDERR "OPEN.Received: $data" if $self->{Debug};
$data=$self->responserest($data);
print STDERR "OPEN..Received: $data" if $self->{Debug};
@@ -124,7 +139,7 @@
if ($self->{'Encrypt'}) {
$data="AUTH TLS\r\n";
syswrite($sock,$data);
- if (sysread($sock,$data,BUFSIZE)) {
+ if ($data=readln($sock)) {
print STDERR "Received: $data" if $self->{Debug};
}
}
@@ -318,6 +333,7 @@
my $response=$self->response();
print STDERR "resp(after$stororappe) ",$response if $self->{Debug};
if (defined $self->{'PutDoneCallBack'}) {$self->{'PutDoneCallBack'}->($response);};
+ return $self->{'FTPRAWMSG'};
};
sub put {
putblat('put','STOR', at _);
More information about the Pkg-perl-cvs-commits
mailing list