home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / ftp < prev    next >
Text File  |  2005-01-27  |  371b  |  22 lines
  1. #!/usr/local/bin/perl
  2.  
  3. use blib;
  4. use Net::FTP;
  5. use Getopt::Long;
  6.  
  7. $opt_debug = undef;
  8. $opt_firewall = undef;
  9.  
  10. GetOptions(qw(debug firewall=s));
  11.  
  12. @firewall = defined $opt_firewall ? (Firewall => $opt_firewall) : ();
  13.  
  14. foreach $host (@ARGV)
  15.  {
  16.   $ftp = Net::FTP->new($host, @firewall, Debug => $opt_debug ? 1 : 0);
  17.   $ftp->login();
  18.   print $ftp->pwd,"\n";
  19.   $ftp->quit;
  20.  }
  21.  
  22.