Another short Link-Of-the-day description:
just type in lotd.pl
-------------------------------
#!/usr/bin/perl
$file="/path/to/your/cgi-bin/admin/data/links.db";
$nummer=`date +%d`;
$date=`date +%d.%m.%y`;
open (IN,$file) | | die "Content-Type: text/us-ascii\n\nOsorry no files???\n";
@in = <IN>;
($nr,$name,$url,$dat,$cat,$beschreibung,$namee,$email,$eins,$zwei,$drei,$vier,$fuenf) = split(/\Q|\E/o,$in[$nummer]);
($url,$name,$beschreibung)=~s/"//g;
print "Content-Type: text/html\n\n";
print "<b>$date</b><br>";
print "<a href=\"$url\" target=\"_new\"><b>$name</b></a><br>$beschreibung\n";
------------------------
And add an SSI-Call to your index.html template :-)
thats all :-)
just type in lotd.pl
-------------------------------
#!/usr/bin/perl
$file="/path/to/your/cgi-bin/admin/data/links.db";
$nummer=`date +%d`;
$date=`date +%d.%m.%y`;
open (IN,$file) | | die "Content-Type: text/us-ascii\n\nOsorry no files???\n";
@in = <IN>;
($nr,$name,$url,$dat,$cat,$beschreibung,$namee,$email,$eins,$zwei,$drei,$vier,$fuenf) = split(/\Q|\E/o,$in[$nummer]);
($url,$name,$beschreibung)=~s/"//g;
print "Content-Type: text/html\n\n";
print "<b>$date</b><br>";
print "<a href=\"$url\" target=\"_new\"><b>$name</b></a><br>$beschreibung\n";
------------------------
And add an SSI-Call to your index.html template :-)
thats all :-)