r8155 - in /trunk/libnet-lite-ftp-perl: Changes debian/changelog debian/watch lib/Net/Lite/FTP.pm

[gregoa-guest at users.alioth.debian.org]

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 _);