r24100 - in /trunk/libnet-scp-expect-perl: ./ debian/ itest/

rmayorga-guest at users.alioth.debian.org rmayorga-guest at users.alioth.debian.org
Mon Aug 11 07:04:08 UTC 2008


Author: rmayorga-guest
Date: Mon Aug 11 07:03:56 2008
New Revision: 24100

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24100
Log:
* New upstream release
* debian/control
  + raise debhelper version to 7
  + add myself to uploaders
  + add ${misc:Depends} to Depends field
* debian/copyright converted to (new)format
* refresh debian/rules with rules.dh7.noxs template

Removed:
    trunk/libnet-scp-expect-perl/itest/large_file.test
    trunk/libnet-scp-expect-perl/itest/medium_file.test
    trunk/libnet-scp-expect-perl/itest/small_file.test
    trunk/libnet-scp-expect-perl/itest/small_file2.test
    trunk/libnet-scp-expect-perl/itest/small_file3.test
Modified:
    trunk/libnet-scp-expect-perl/CHANGES
    trunk/libnet-scp-expect-perl/Expect.pm
    trunk/libnet-scp-expect-perl/MANIFEST
    trunk/libnet-scp-expect-perl/META.yml
    trunk/libnet-scp-expect-perl/README
    trunk/libnet-scp-expect-perl/SIGNATURE
    trunk/libnet-scp-expect-perl/debian/changelog
    trunk/libnet-scp-expect-perl/debian/compat
    trunk/libnet-scp-expect-perl/debian/control
    trunk/libnet-scp-expect-perl/debian/copyright
    trunk/libnet-scp-expect-perl/debian/rules
    trunk/libnet-scp-expect-perl/itest/itest.pl

Modified: trunk/libnet-scp-expect-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/CHANGES?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/CHANGES (original)
+++ trunk/libnet-scp-expect-perl/CHANGES Mon Aug 11 07:03:56 2008
@@ -1,4 +1,8 @@
 Revision history for Perl extension Net-SCP-Expect
+
+0.14  
+- Fixed RT#38081 (password not required if identity_file specified).
+- Fixed RT#36705 (itest.pl dynamically generates test files during runtime to reduce distribution size).
 
 0.13  Wednesday June 11 05:07:34 2008
 - Corrected issue with no exception thrown on failed scp execution after

Modified: trunk/libnet-scp-expect-perl/Expect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/Expect.pm?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/Expect.pm (original)
+++ trunk/libnet-scp-expect-perl/Expect.pm Mon Aug 11 07:03:56 2008
@@ -14,7 +14,7 @@
 
 BEGIN{
    use vars qw/$VERSION/;
-   $VERSION = '0.13';
+   $VERSION = '0.14';
 }
 
 # Options added as needed
@@ -76,7 +76,7 @@
    my($self,$user,$password) = @_;
    
    croak("No user supplied to 'login()' method") unless defined $user;
-   croak("No password supplied to 'password()' method") unless defined $password;
+   croak("No password supplied to 'login()' method") if @_ > 2 && !defined $password;
 
    $self->_set('user',$user);
    $self->_set('password',$password);
@@ -84,9 +84,9 @@
 
 sub password{
    my($self,$password) = @_;
-   croak("No password supplied to 'password()' method") unless $password;
+   croak("No password supplied to 'password()' method");
    
-   $self->_set('password',$password);
+   $self->_set('password',$password) unless $password;
 }
 
 sub host{
@@ -153,7 +153,7 @@
    }
 
    croak("No login. Can't scp") unless $login;
-   croak("No password. Can't scp") unless $password;
+   croak("No password or identity file. Can't scp") unless $password || $identity_file;
    croak("No host specified. Can't scp") unless $host;
 
    # Define argument auto-quote
@@ -202,22 +202,24 @@
       }
    }
 
-   unless($scp->expect($timeout,-re=>'[Pp]assword.*?:|[Pp]assphrase.*?:')){
-      my $err = $scp->before() || $scp->match();
-      if($err){
+   if ($password) {
+      unless($scp->expect($timeout,-re=>'[Pp]assword.*?:|[Pp]assphrase.*?:')){
+         my $err = $scp->before() || $scp->match();
+         if($err){
+            if($handler){ $handler->($err); return; }
+            else { croak("Problem performing scp: $err"); }
+         }
+         $err = "scp timed out while trying to connect to $host";
          if($handler){ $handler->($err); return; }
-         else { croak("Problem performing scp: $err"); }
+         else{ croak($err) };
       }
-      $err = "scp timed out while trying to connect to $host";
-      if($handler){ $handler->($err); return; }
-      else{ croak($err) };
-   }
-
-   if($verbose){ print $scp->before() }
-
-   $password .= $terminator if $terminator;
-
-   $scp->send($password);
+
+      if($verbose){ print $scp->before() }
+
+      $password .= $terminator if $terminator;
+
+      $scp->send($password);
+   }
 
    ################################################################
    # Check to see if we sent the correct password, or if we got
@@ -390,11 +392,12 @@
 If the login and password are not passed as options to the constructor, they
 must be passed with this method (or set individually - see 'user' and 'password'
 methods).  If they were already set, this method will overwrite them with the new
-values.
+values.  Password will not be changed if only one argument is passed (user).
 
 =head2 B<password(>I<password>B<)>
 
-Sets the password for the current user
+Sets the password for the current user, or the passphrase for the identify file if
+identity_file option is specified in the constructor
 
 =head2 B<user(>I<user>B<)>
 
@@ -454,7 +457,10 @@
 B<option> - Specify options from the config file.  This is the equivalent
 of -o.
 
-B<password> - The password for the given login.
+B<password> - The password for the given login.  If not specified, then
+identity_file must be specified or an error will occur on login.  If both
+identity_file and password are specified, the password will be treated as the
+passphrase for the identity file.
 
 B<port> - Use the specified port.
 
@@ -501,12 +507,12 @@
 
 The -q option (disable progress meter) is automatically passed to scp.
 
-The -B option may NOT be set.  If you don't want to send passwords, I
-recommend using I<Net::SCP> instead.
-
-In the event that Dave Rolsky releases a version of I<Net::SSH::Perl> that
-supports scp, I recommend using that instead.  Why?  First, it will be
-a more secure way to perform scp.  Second, this module is not fast,
+The -B option may NOT be set.  If you don't plan to send passwords or use
+identity files (with passphrases), consider using I<Net::SCP> instead.
+
+In the event a new version of I<Net::SSH::Perl> is released that
+supports scp, I recommend using that instead.  Why?  First, it should be
+a more secure way to perform scp.  Second, this module is not the fastest,
 even with error checking turned off.  Both reasons have to do with TTY
 interaction.
 
@@ -540,7 +546,7 @@
 
 =head1 COPYRIGHT
 
-2005-2007 Eric Rybski <rybskej at yahoo.com>,
+2005-2008 Eric Rybski <rybskej at yahoo.com>,
 2003-2004 Daniel J. Berger.
 
 =head1 CURRENT AUTHOR AND MAINTAINER

Modified: trunk/libnet-scp-expect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/MANIFEST?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/MANIFEST (original)
+++ trunk/libnet-scp-expect-perl/MANIFEST Mon Aug 11 07:03:56 2008
@@ -11,8 +11,3 @@
 t/string_parse.t
 itest/README
 itest/itest.pl
-itest/large_file.test
-itest/medium_file.test
-itest/small_file.test
-itest/small_file2.test
-itest/small_file3.test

Modified: trunk/libnet-scp-expect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/META.yml?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/META.yml (original)
+++ trunk/libnet-scp-expect-perl/META.yml Mon Aug 11 07:03:56 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-SCP-Expect
-version:             0.13
+version:             0.14
 abstract:            Wrapper for scp that allows passwords via Expect.
 license:             ~
 author:              

Modified: trunk/libnet-scp-expect-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/README?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/README (original)
+++ trunk/libnet-scp-expect-perl/README Mon Aug 11 07:03:56 2008
@@ -64,7 +64,8 @@
     overwrite them with the new values.
 
   password(*password*)
-    Sets the password for the current user
+    Sets the password for the current user, or the passphrase for the
+    identify file if identity_file option is specified in the constructor
 
   user(*user*)
     Sets the user for the current object
@@ -121,7 +122,10 @@
     option - Specify options from the config file. This is the equivalent of
     -o.
 
-    password - The password for the given login.
+    password - The password for the given login. If not specified, then
+    identity_file must be specified or an error will occur on login. If both
+    identity_file and password are specified, the password will be treated
+    as the passphrase for the identity file.
 
     port - Use the specified port.
 
@@ -169,13 +173,13 @@
 NOTES
     The -q option (disable progress meter) is automatically passed to scp.
 
-    The -B option may NOT be set. If you don't want to send passwords, I
-    recommend using *Net::SCP* instead.
-
-    In the event that Dave Rolsky releases a version of *Net::SSH::Perl*
-    that supports scp, I recommend using that instead. Why? First, it will
-    be a more secure way to perform scp. Second, this module is not fast,
-    even with error checking turned off. Both reasons have to do with TTY
+    The -B option may NOT be set. If you don't plan to send passwords or use
+    identity files (with passphrases), consider using *Net::SCP* instead.
+
+    In the event a new version of *Net::SSH::Perl* is released that supports
+    scp, I recommend using that instead. Why? First, it should be a more
+    secure way to perform scp. Second, this module is not the fastest, even
+    with error checking turned off. Both reasons have to do with TTY
     interaction.
 
     Also, please see the Net::SFTP module from Dave Rolsky. If this suits
@@ -205,7 +209,7 @@
     Net::SCP::Expect is licensed under the same terms as Perl itself.
 
 COPYRIGHT
-    2005-2007 Eric Rybski <rybskej at yahoo.com>, 2003-2004 Daniel J. Berger.
+    2005-2008 Eric Rybski <rybskej at yahoo.com>, 2003-2004 Daniel J. Berger.
 
 CURRENT AUTHOR AND MAINTAINER
     Eric Rybski <rybskej at yahoo.com>. Please send all module inquries to me.

Modified: trunk/libnet-scp-expect-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/SIGNATURE?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/SIGNATURE (original)
+++ trunk/libnet-scp-expect-perl/SIGNATURE Mon Aug 11 07:03:56 2008
@@ -14,19 +14,14 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 d658ac2b75471816b5ee4a98bacf3c4cf0b9cd34 CHANGES
-SHA1 ccbe643107cc6f7efe0de8d9c842d7c8ff5ec4a4 Expect.pm
-SHA1 8204b60b11c8c8d5dc52acb69f028bcb87a61e55 MANIFEST
-SHA1 932fe19a883d27e31c6448efefd7f424eec5423f META.yml
+SHA1 60aa4d3b6a8cac84d11f3b18e870ae55e6acad5d CHANGES
+SHA1 6a756fc640e895f5e685002a7a83a565f53a0c0b Expect.pm
+SHA1 3215f56b06635a4d9204389c4e2f7f2e1fea221d MANIFEST
+SHA1 897c997b727983033805d63dfb7c9bdb02caee6f META.yml
 SHA1 c80c11b8e2dbc549e3deffedc51a5a3b682e7620 Makefile.PL
-SHA1 9587204874f99cf54a64dc3a27f3feeb5f7c9961 README
+SHA1 692dacfe15584c7b086fd49b8271505f48620f65 README
 SHA1 f45399354c8baa415a0326a96ffb55ba8f9d373d itest/README
-SHA1 5bd412641e16ca53c0b3bc26cc605cf733c7583f itest/itest.pl
-SHA1 b406d2f6219fd2a06ee1735e3d115803aff891fd itest/large_file.test
-SHA1 6e1f28ab6c9db1c2cc4ef8a24032283550681947 itest/medium_file.test
-SHA1 93c4513b18e1d13c0fa3c7f9ed8bb289337092fb itest/small_file.test
-SHA1 93c4513b18e1d13c0fa3c7f9ed8bb289337092fb itest/small_file2.test
-SHA1 93c4513b18e1d13c0fa3c7f9ed8bb289337092fb itest/small_file3.test
+SHA1 4cffbf6d2a698e0c6a3ab5ecec8885b862f5e201 itest/itest.pl
 SHA1 b122277eecc762cc97f9bdf07a50d7a5bed2c2cf t/attributes.t
 SHA1 bb08d81fb36c76b010d274b3f1f34e8da5dd5fc9 t/glob.t
 SHA1 fc5734f9c393dcc9f12c87df4bf9362e88a800ad t/signature.t
@@ -34,7 +29,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.8 (Darwin)
 
-iEYEARECAAYFAkhPoB8ACgkQQwn7DcpJEO5hKQCgySrWSrZKxoj+ZCJ++QZIOqM5
-3oEAnjK2BNWyhjnx8SGGewYuvdf8/NWL
-=HEjC
+iEYEARECAAYFAkieOsoACgkQQwn7DcpJEO4CKgCg06lR8qtJGGusn+ZnKFnnFXS+
+g+oAoJ80Y3GYYeLsfOb1ecYsby68mKT4
+=eTSb
 -----END PGP SIGNATURE-----

Modified: trunk/libnet-scp-expect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/debian/changelog?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/debian/changelog (original)
+++ trunk/libnet-scp-expect-perl/debian/changelog Mon Aug 11 07:03:56 2008
@@ -1,3 +1,15 @@
+libnet-scp-expect-perl (0.14-1) unstable; urgency=low
+
+  * New upstream release
+  * debian/control
+    + raise debhelper version to 7
+    + add myself to uploaders
+    + add ${misc:Depends} to Depends field
+  * debian/copyright converted to (new)format
+  * refresh debian/rules with rules.dh7.noxs template
+
+ -- Rene Mayorga <rmayorga at debian.org.sv>  Mon, 11 Aug 2008 00:36:26 -0600
+
 libnet-scp-expect-perl (0.13-1) unstable; urgency=low
 
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser

Modified: trunk/libnet-scp-expect-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/debian/compat?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/debian/compat (original)
+++ trunk/libnet-scp-expect-perl/debian/compat Mon Aug 11 07:03:56 2008
@@ -1,1 +1,1 @@
-5
+7

Modified: trunk/libnet-scp-expect-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/debian/control?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/debian/control (original)
+++ trunk/libnet-scp-expect-perl/debian/control Mon Aug 11 07:03:56 2008
@@ -3,8 +3,9 @@
 Priority: optional
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jay Bonci <jaybonci at debian.org>,
- gregor herrmann <gregoa at debian.org>
-Build-Depends: debhelper (>= 5)
+ gregor herrmann <gregoa at debian.org>,
+ Rene Mayorga <rmayorga at debian.org.sv>
+Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl (>= 5.6.0-16), libterm-readpassword-perl,
  libexpect-perl
 Standards-Version: 3.8.0
@@ -14,7 +15,7 @@
 
 Package: libnet-scp-expect-perl
 Architecture: all
-Depends: ${perl:Depends}, libterm-readpassword-perl, libexpect-perl
+Depends: ${perl:Depends}, ${misc:Depends}, libterm-readpassword-perl, libexpect-perl
 Description: Wrapper for scp to send passwords via Expect
  Net::SCP::Expect allows you to transfer files via scp, but instead of having
  to use shared keys or to input a password interactively, it allows you to

Modified: trunk/libnet-scp-expect-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/debian/copyright?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/debian/copyright (original)
+++ trunk/libnet-scp-expect-perl/debian/copyright Mon Aug 11 07:03:56 2008
@@ -1,17 +1,35 @@
 This package was debianized by Jay Bonci <jay at bonci.com> on
-Sat, 28 Jun 2003 22:45:39 -0400.
+Sat, 28 Jun 2003 22:45:39 -0400, and is Maintainet by the Debian Perl Group
+(pkg-perl)
 
-It was downloaded from http://search.cpan.org/dist/Net-SCP-Expect
+It was downloaded from: http://search.cpan.org/dist/Net-SCP-Expect
 
-ORIGINAL AUTHOR: Daniel Berger, djberg96 at yahoo dot com
+Upstream Author: Daniel Berger <djberg96 at yahoo.com>
+                 Eric Rybski <rybskej at yahoo.com>
 
-CURRENT AUTHOR AND MAINTAINER: Eric Rybski <rybskej at yahoo.com>
+Files: * 
+Copyright: © 2003-2004 Daniel J. Berger <djberg96 at yahoo.com>
+           © 2005-2007 Eric Rybski <rybskej at yahoo.com>
+License: GPL-1+ | Artistic
+ These modules are free software. They may be used, redistributed
+ and/or modified under the same terms as Perl itself.
 
-COPYRIGHT: 2005-2007 Eric Rybski <rybskej at yahoo.com>, 2003-2004 Daniel J. Berger.
+Files: debian/* 
+Copyright: © 2003-2004 Jay Bonci <jay at bonci.com>
+           © 2008 Debian Perl Group
+	          <pkg-perl-maintainers at lists.alioth.debian.org>
+License: GPL-1+ | Artistic
 
-LICENSE: Net::SCP::Expect is licensed under the same terms as Perl itself.
+The Perl license is:
+     This program is free software; you can redistribute it and/or modify
+     it under the terms of either:
 
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License.  On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
+     a) the GNU General Public License as published by the Free Software
+        Foundation; either version 1, or (at your option) any later
+	version, or
+
+     b) the "Artistic License" which comes with Perl.
+
+On Debian GNU/Linux systems, the complete text of the GNU General Public
+License can be found in `/usr/share/common-licenses/GPL' and the Artistic
+Licence in `/usr/share/common-licenses/Artistic'.

Modified: trunk/libnet-scp-expect-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/debian/rules?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/debian/rules (original)
+++ trunk/libnet-scp-expect-perl/debian/rules Mon Aug 11 07:03:56 2008
@@ -1,60 +1,23 @@
 #!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PERL   ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 build: build-stamp
 build-stamp:
-	dh_testdir
-	$(PERL) Makefile.PL INSTALLDIRS=vendor
-	$(MAKE)
-	$(MAKE) test
+	dh build
 	touch $@
 
 clean:
-	dh_testdir
-	dh_testroot
-	dh_clean build-stamp install-stamp
-	[ ! -f Makefile ] || $(MAKE) realclean
+	dh $@
 
 install: install-stamp
 install-stamp: build-stamp
-	dh_testdir
-	dh_testroot
-	dh_clean -k
-	$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
-	[ ! -d $(TMP)/usr/lib/perl5 ] || \
-		rmdir --ignore-fail-on-non-empty --parents --verbose \
-		$(TMP)/usr/lib/perl5
+	dh install
 	touch $@
 
 binary-arch:
-# We have nothing to do here for an architecture-independent package
 
-binary-indep: build install
-	dh_testdir
-	dh_testroot
-	dh_installdocs
-	dh_installchangelogs CHANGES
-	dh_perl
-	dh_compress
-	dh_fixperms
-	dh_installdeb
-	dh_gencontrol
-	dh_md5sums
-	dh_builddeb
+binary-indep: install
+	dh $@
 
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build

Modified: trunk/libnet-scp-expect-perl/itest/itest.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-scp-expect-perl/itest/itest.pl?rev=24100&op=diff
==============================================================================
--- trunk/libnet-scp-expect-perl/itest/itest.pl (original)
+++ trunk/libnet-scp-expect-perl/itest/itest.pl Mon Aug 11 07:03:56 2008
@@ -21,12 +21,47 @@
 
 my $small_file  = "small_file.test";
 my $rsmall_file  = "small_file.remote";
+my $small_file2  = "small_file2.test";
+my $small_file3  = "small_file3.test";
 
 my $medium_file = "medium_file.test";
 my $rmedium_file = "medium_file.remote";
 
 my $large_file  = "large_file.test";
 my $rlarge_file  = "large_file.remote";
+
+##################################################
+# Generate test files if they don't already exist
+##################################################
+
+my $file_contents = <<FILE;
+This is the small file
+For use in testing Net::SCP::Expect only
+Delete at your convenience
+FILE
+foreach ($small_file, $small_file2, $small_file3) {
+    unless (-f $_) {
+        open(FILE, ">$_") or die "Couldn't create file [$_]: $!";
+        print FILE $file_contents for 1..56; #~5KB
+        close FILE;
+    }
+}
+
+unless (-f $medium_file) {
+    open(FILE, ">$medium_file") or die "Couldn't create file [$medium_file]: $!";
+    print FILE $file_contents for 1..13564; #~1MB
+    close FILE;
+}
+    
+unless (-f $large_file) {
+    open(FILE, ">$large_file") or die "Couldn't create file [$large_file]: $!";
+    print FILE $file_contents for 1..461176; #~40MB
+    close FILE;
+}
+
+######################
+# Interactive section
+######################
 
 print "\nHost to copy test files to/from: ";
 my $host = <STDIN>;




More information about the Pkg-perl-cvs-commits mailing list