perlquestion
George_Sherston
Can anyone suggest why the following runs at the command line but dies on <code>$ftp->ls</code> 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?
<code>
#!/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($_);
}
</code>
<br><br>§ <A HREF="http://www.sprogress.com">George Sherston</A>