I am writing a Perl5 script to run on my web server. I am writing the variables to a flatfile as below:
open (GBLOG, ">>$gblog"
;
flock(GBLOG,2);
seek(GBLOG,0,2);
print GBLOG "$caption|$type|";
print GBLOG "$format|$background|";
print GBLOG "$category|$keywords|";
print GBLOG "$source|$copyright|";
print GBLOG "$permission|$restrictions|";
print GBLOG "$initials|$createdate|";
print GBLOG "$editdate|$id|";
print GBLOG "$imagefile|$filename|";
print GBLOG "$mattefile|$mattename|$link\n";
close(GBLOG);
chmod 0666, $gblog;
Then I create an html page. I want to make the $caption clickable as I have done below but When the user clicks on the link, I want to parse the above GBLOG and print it out in normal speak like Caption: $caption etc.
open (LOG, ">>$log" || dienice("Can't open Log"
flock(LOG,2);
seek(LOG,0,2);
print LOG "<HTML><HEAD><Title>Graphics Bank Upload Log</TITLE></HEAD>\n";
print LOG "<BODY><A HREF=/log/$gblog>$caption<BR></BODY></HTML>";
close(LOG);
chmod 0666, $log;
open (GBLOG, ">>$gblog"
; flock(GBLOG,2);
seek(GBLOG,0,2);
print GBLOG "$caption|$type|";
print GBLOG "$format|$background|";
print GBLOG "$category|$keywords|";
print GBLOG "$source|$copyright|";
print GBLOG "$permission|$restrictions|";
print GBLOG "$initials|$createdate|";
print GBLOG "$editdate|$id|";
print GBLOG "$imagefile|$filename|";
print GBLOG "$mattefile|$mattename|$link\n";
close(GBLOG);
chmod 0666, $gblog;
Then I create an html page. I want to make the $caption clickable as I have done below but When the user clicks on the link, I want to parse the above GBLOG and print it out in normal speak like Caption: $caption etc.
open (LOG, ">>$log"
|| dienice("Can't open Log"flock(LOG,2);
seek(LOG,0,2);
print LOG "<HTML><HEAD><Title>Graphics Bank Upload Log</TITLE></HEAD>\n";
print LOG "<BODY><A HREF=/log/$gblog>$caption<BR></BODY></HTML>";
close(LOG);
chmod 0666, $log;