Need help with perl / cron

OK.. this is my first perl script.. this works from command line when I telnet my server (hosted at a host) and it ftpies a file to that server and zipps it. I used my ISP's admin interface to specify this pl file as cron job, but it did not run.. then I created an html file and loaded that html in browser, but it did not run.
<html>
<head></head>
<body>

</body>
</html>

So.. I need help either in executing this perl script from browser (on event) or via cron job.. can someone help me.

my script:

perl -w
require Net::FTP;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=$year - 100;
$mon=$mon+1;
if($mon < 10)
{
$mon = "0" . $mon;
}
if($mday < 10)
{
$mday = "0" . $mday;
}
if($year < 10)
{
$year = "0" . $year;
}
$logfilenm = "ex"."$year$mon$mday".".log";
$trgt = "/usr/public_ftp/abcd/ftp/logs/".$logfilenm;
$ftp = Net::FTP->new("www.example.com");
$ftp->login("user","password");
$ftp->cwd("logs");
$ftp->get($logfilenm,$trgt);
$ftp->quit ;
$zip = "zip "."/usr/public_ftp/abcd/ftp/logs/".$logfilenm.".zip /usr/public_ftp/abcd/ftp/logs/".$logfilenm;
system($zip);

__END__

Need help with perl / cron

sdani

sdani

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week