[mirrorbrain-commits] r7909 - /trunk/tools/scanner.pl

Author: poeml
Date: Sat Dec  5 16:33:18 2009
New Revision: 7909

URL: http://svn.mirrorbrain.org/viewvc/mirrorbrain?rev=7909&view=rev
Log:
scanner:
- okay, it was a nice joke, Juergen :-) but it tends to confuse people if they see
  my email address in the code and it looks as if it would be sent to FTP servers

Modified:
    trunk/tools/scanner.pl

Modified: trunk/tools/scanner.pl
URL: http://svn.mirrorbrain.org/viewvc/mirrorbrain/trunk/tools/scanner.pl?rev=7909&r1=7908&r2=7909&view=diff
==============================================================================
--- trunk/tools/scanner.pl (original)
+++ trunk/tools/scanner.pl Sat Dec  5 16:33:18 2009
_at_@ -47,7 +47,6 @@
 use Encode;
 
 my $version = '0.41';
-my $scanner_email = 'poeml_at_cmdline.net';
 my $verbose = 1;
 my $sqlverbose = 0;
 
_at_@ -653,7 +652,7 @@
 
 
   my $toplevel = ($ftp) ? 0 : 1;
-  $ftp = ftp_connect($identifier, "$url/$name", "anonymous", $scanner_email) unless defined $ftp;
+  $ftp = ftp_connect($identifier, "$url/$name") unless defined $ftp;
   return unless defined $ftp;
   my $text = ftp_cont($ftp, "$url/$name");
 
_at_@ -671,7 +670,7 @@
       warn "$identifier: ftp status code $1. Last command " . $ftp_age . "s ago; attempting reconnect\n";
       print "$identifier: $text" if $verbose > 2;
       ftp_close($ftp);
-      $ftp = ftp_connect($identifier, "$url/$name", "anonymous", $scanner_email);
+      $ftp = ftp_connect($identifier, "$url/$name");
       return unless defined $ftp;
       $text = ftp_cont($ftp, "$url/$name");
     } else {




_______________________________________________
mirrorbrain-commits mailing list
Archive: http://mirrorbrain.org/archive/mirrorbrain-commits/

Note: To remove yourself from this list, send a mail with the content
 	unsubscribe
to the address mirrorbrain-commits-request_at_mirrorbrain.org