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

[sukria at users.alioth.debian.org]

Author: sukria
Date: Tue Aug  7 13:26:07 2007
New Revision: 6310

URL: http://svn.debian.org/wsvn/?sc=1&rev=6310
Log:
libnet-lite-ftp-perl (0.52-1) unstable; urgency=low

  * New upstream release.
  * Set the Debian Perl Group as Maintainer, myself as Uploader (for there is
    one team for all !).

 -- Alexis Sukrieh <sukria at debian.org>  Tue, 07 Aug 2007 12:48:49 +0200


Modified:
    trunk/libnet-lite-ftp-perl/Changes
    trunk/libnet-lite-ftp-perl/debian/changelog
    trunk/libnet-lite-ftp-perl/debian/control
    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=6310&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/Changes (original)
+++ trunk/libnet-lite-ftp-perl/Changes Tue Aug  7 13:26:07 2007
@@ -1,5 +1,10 @@
 Revision history for Perl extension Net::Lite::FTP.
 
+0.51     - cosmetic fix to size()
+0.50     - oups, fix size()
+0.49     - if ($sth=0) instead of $sth==0 fixed.
+	continuations fixed.
+0.48     - fix size() ( previously lost fixes ), fix multiline broken in  0.47
 0.47     - fix response, fix size, introduce rawmessage
 0.46     - mdtm support
 0.45     - improved logging (damn undefined response)

Modified: trunk/libnet-lite-ftp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/debian/changelog?rev=6310&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/debian/changelog (original)
+++ trunk/libnet-lite-ftp-perl/debian/changelog Tue Aug  7 13:26:07 2007
@@ -1,8 +1,10 @@
-libnet-lite-ftp-perl (0.47-3) UNRELEASED; urgency=low
+libnet-lite-ftp-perl (0.52-1) unstable; urgency=low
 
-  * Set Maintainer to Debian Perl Group with permission of Alexis Sukrieh.
+  * New upstream release.
+  * Set the Debian Perl Group as Maintainer, myself as Uploader (for there is
+    one team for all !).
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Wed, 30 May 2007 16:57:49 +0200
+ -- Alexis Sukrieh <sukria at debian.org>  Tue, 07 Aug 2007 12:48:49 +0200
 
 libnet-lite-ftp-perl (0.47-2) unstable; urgency=low
 

Modified: trunk/libnet-lite-ftp-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libnet-lite-ftp-perl/debian/control?rev=6310&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/debian/control (original)
+++ trunk/libnet-lite-ftp-perl/debian/control Tue Aug  7 13:26:07 2007
@@ -4,10 +4,9 @@
 Build-Depends: debhelper (>= 5.0.0)
 Build-Depends-Indep: perl (>= 5.6.0), libnet-ssleay-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Alexis Sukrieh <sukria at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+Uploaders: Alexis Sukrieh <sukria at debian.org>
 Standards-Version: 3.7.2
-XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-lite-ftp-perl/
-XS-Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-lite-ftp-perl/
+XS-Vcs-Svn: svn://svn.debian.org/svn/pkg-perl/packages/libnet-lite-ftp-perl/trunk/
 
 Package: libnet-lite-ftp-perl
 Architecture: all

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=6310&op=diff
==============================================================================
--- trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm (original)
+++ trunk/libnet-lite-ftp-perl/lib/Net/Lite/FTP.pm Tue Aug  7 13:26:07 2007
@@ -27,7 +27,7 @@
 
 		);
 
-our $VERSION = '0.47';
+our $VERSION = '0.52';
 # Preloaded methods go here.
 # Autoload methods go after =cut, and are processed by the autosplit program.
 use constant BUFSIZE => 4096;
@@ -48,7 +48,7 @@
 	$self->{"Connected"}=0;
 	$self->{"EncryptData"}=1;
 	$self->{"Encrypt"}=1;
-	$self->{"Debug"}=1;
+	$self->{"Debug"}=0;
 	$self->{"ErrMSG"}=undef;
 	$self->{"GetUpdateCallback"}  = undef;
 	$self->{"GetDoneCallback"}    = undef;
@@ -78,7 +78,8 @@
 
 sub size ($$) {
 	my ($self,$filename)=@_;
-	return $self->command("SIZE $filename");
+	my $size=$self->command("SIZE $filename");chop $size;
+	return $size;
 }
 sub cdup ($$) {
 	my ($self,$data)=@_;
@@ -205,7 +206,7 @@
 		$code=$1;$msg=$2;chomp($msg);
 	};
 	$read=~/^(\d\d\d)-(.*)/  && do {
-		$cont=1;$msg.=$2;
+		$cont=1;$code=$1;$msg.=$2;
 		print STDERR "wielolinijkowa odpowiedz z servera.." if $self->{Debug};
 	};
 	if ($read=~/^(\d\d\d)\s(.*)/m) {$cont=0;}; # wyjatek na wielolinijkowe na dziendobry
@@ -213,10 +214,10 @@
 		do {
 			$read=<$sock>;
 			$resp.=$read;
-			$read=~/^(\d\d\d)-(.*)/  && do {$cont=1;$msg.=$2;};
-			$read=~/^(\d\d\d)\s(.*)/  && do {$cont=0;$msg.=$2;};
+			$read=~/^(\d\d\d)-(.*)/  && do {$cont=1;$code=$1;$msg.=$2;};
+			$read=~/^(\d\d\d)\s(.*)/  && do {$cont=0;$code=$1;$msg.=$2;};
 			print " ----> $read\n" if $self->{Debug};
-		} until ($cont=0);
+		} until ($cont==0);
 	};
 	$self->{'FTPCODE'}=$code;
 	$self->{'FTPMSG'}=$msg;