http://qs1969.pair.com?node_id=181428

George_Sherston has asked for the wisdom of the Perl Monks concerning the following question:

Can anyone suggest why the following runs at the command line but dies on $ftp->ls when run from the web browser? I'm completely baffled. But this really is what's happening - exact same file, does what it says on the can when run from the command line, dies in the browser. Did I mention I was baffled?
#!/usr/bin/perl -w use strict; use lib '/home/httpd/lib'; use CGI qw/:standard :cgi-lib/; print header; use jbr::Carp qw(fatalsToBrowser warningsToBrowser); warningsToBrowser(1); use Net::FTP; $| = 1; my $ftp = Net::FTP->new("ftp.xxxxx.xxx", Debug => 0); $ftp->login('xxxxxxx','xxxxxx'); $ftp->cwd('/tst') or die; my @files = $ftp->ls or die; print h2 "deleting old pages..."; for (@files) { print p $_; $ftp->delete($_); }


§ George Sherston