Hello all,
For somereason I have a bit of code that will not
write out to the log file when it finds my array empty
#Start of upload Files
} elsif ( $ARGV[1] eq "-p" ) {
$log->write("<INFO> Ok we have been passed the
-p so we will be putting files to $site");
my $ftp = Net::FTP->new("$site") or
$log->write("<ERROR> Could not est. connection to
$site: [EMAIL PROTECTED]"); #makes the connection the site or logs
$ftp->login("$user","$password") or $log->write
("<ERROR> Bad user name or password");
$ftp->cwd("$dir") or $log->write( "<ERROR> could
not cd to $dir" );
chdir ("/ftp/pathlor/outgoing") or die
"could not cd"; #where we get the files from to send
my @mput_files = (glob "$file" );
print "@mput_files";
if ([EMAIL PROTECTED]) { $log->write("<ERROR> $file not
found for upload");
}
foreach my $put_files ( @mput_files ) {
$ftp->put("$put_files");
$log->write("<INFO> U/L $put_files")
}
}
}
}
Right here is where it should log
my @mput_files = (glob "$file" );
print "@mput_files";
if ([EMAIL PROTECTED]) { $log->write("<ERROR> $file not
found for upload");
}
I added the print function just to see what
@mput_files returns and it returns nothing but I do
get an error from the glob on the command line
"Cannot open Local file : A file or directory in the
path name does not exist" I am wondering if this is
some how messing up my check. Basically what I am
doing is looking at a dir. of files and looking for
files that match my $file variable which usually is
$file = *.txt I am trying to find a way to use wild
card charcters to find the files I want in a dir and
upload them to a ftp server. Thanks for your help.
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
