CGI translation into php
Posted: Thu Jul 03, 2008 8:09 am
please i need some help here: i am suppose to translate this text!
i will take it step by step.
this is the text:
when the first "if" starts the command is &js; ...what does this mean in this language...and the other if has &generate;
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$q= new CGI;
$action = $q->param('action');
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
$yearnow = $year-100;
$yearnow = 2000 + $yearnow;
$mon=$mon+1;
$curdate = "$yearnow\-0$mon";
if($action eq "js"){
&js;
}
elsif($action eq "generate"){
&generate;
}
else{&list;}
############
sub list{
############
print $q->header;
print qq~<ul>~;
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
print qq~<li><a href="$curdate/$diritem">$filename</a>~;
}
print qq~</ul><br>~;
}
############
sub js{
############
print $q->header;
print qq~document.write('<ul>');~;
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
$filename =~ s/\.html//ig;
print qq~document.write('<li><a href="/vidgen/$curdate/$diritem">$filename</a>');~;
}
print qq~document.write('</ul><br>');~;
}
###################
sub generate {
###################
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
open(FILE, ">vidlist.html");
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
$filename =~ s/\.html//ig;
print FILE qq~<li><a href="/vidgen/$curdate/$diritem">$filename</a>~;
}
close(FILE);
print $q->header;
print qq~List file generated~;
exit;
}
i will take it step by step.
this is the text:
when the first "if" starts the command is &js; ...what does this mean in this language...and the other if has &generate;
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$q= new CGI;
$action = $q->param('action');
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
$yearnow = $year-100;
$yearnow = 2000 + $yearnow;
$mon=$mon+1;
$curdate = "$yearnow\-0$mon";
if($action eq "js"){
&js;
}
elsif($action eq "generate"){
&generate;
}
else{&list;}
############
sub list{
############
print $q->header;
print qq~<ul>~;
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
print qq~<li><a href="$curdate/$diritem">$filename</a>~;
}
print qq~</ul><br>~;
}
############
sub js{
############
print $q->header;
print qq~document.write('<ul>');~;
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
$filename =~ s/\.html//ig;
print qq~document.write('<li><a href="/vidgen/$curdate/$diritem">$filename</a>');~;
}
print qq~document.write('</ul><br>');~;
}
###################
sub generate {
###################
opendir(DIR, "$curdate")|| die("Can't read $curdate");
@dirlist = readdir(DIR);
closedir(DIR);
$curtime = time;
$curtime = $curtime - 86400;
open(FILE, ">vidlist.html");
foreach $diritem(@dirlist){
next if($diritem eq "." || $diritem eq ".." || -d $diritem);
($filesize, $filedate, $fileperm) = (stat("$curdate/$diritem"))[7,9,2];
next if($filedate < $curtime);
$filename=$diritem;
$filename =~ s/\_/ /ig;
$filename =~ s/\.html//ig;
print FILE qq~<li><a href="/vidgen/$curdate/$diritem">$filename</a>~;
}
close(FILE);
print $q->header;
print qq~List file generated~;
exit;
}