Hi i have a cgi job posting script but i have a problem when i run cron it deletes all projects but i need it to delete projects only 30 days old can you help below is the code
Quote:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
require "vars.cgi";
open(DATA, "data/jobs.data");
@jobs = <DATA>;
close(DATA);
$newjobs = "";
foreach $line( @jobs ) {
@job = split(/&&/, $line);
$expire = $job[0] + ($ndays * 86400);
if($time > $expire) {
$newjobs .= $job[0] . "&&" . $job[1] . "&&" . $job[2] . "&&" . $job[3] . "&&" . $job[4] . "&&" . $job[5] . "&&" . $job[6] . "&&" . $job[7] . "&&" . $job[8] . "&&" . $job[9] . "&&" . $job[10] . "&&" . $job[11] . "&&" . $job[12];
} else {
$newjobs .= $job[0] . "&&" . $job[1] . "&&" . $job[2] . "&&" . $job[3] . "&&" . $job[4] . "&&" . $job[5] . "&&" . $job[6] . "&&" . $job[7] . "&&" . $job[8] . "&&" . $job[9] . "&&" . $job[10] . "&&" . $job[11] . "&&" . "frozen\n";
}
}
open(DATA, ">data/jobs.data");
print DATA $newjobs;
close(DATA);
print "Done freezing.";
|
|
