The Duke of Dunstable said:
Hi
I've downloaded the Meep!board
(
http://www.standpipe.com/site/meepboard.html) cgi script. It says you
need telnet access to your cgi-bin directory, but I don't have that.
Is there anyway I can install and configure this without telnet? Can
someone help?
Surely the authors of this wonderful script can help out....but then
again...maybe not.
The following code should be a red flag that they don't know Perl that well:
[experienced users should avert their eyes now to avoid potential long term
damage]
-------------
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
-------------
system("sort -n -r $datafile.bak > $datafile");
flock(NEWDATA,8);
-------------
if ($origpost = $query->param('origpost')) {
$hidden = "<INPUT TYPE=\"hidden\" NAME=\"origpost\"
VALUE=\"$origpost\">";
}
else {
$hidden = "";
}
--------------
s/NAME\=\"title\"/NAME\=\"title\" VALUE\=\"$title\"/io;
s/NAME\=\"contact\"/NAME\=\"contact\" VALUE\=\"$contact\"/io;
s/NAME\=\"email\"/NAME\=\"email\" VALUE\=\"$email\"/io;
--------------
# get starting line number to view from $datafile
$linenumber = $query->param('keywords');
#skip line until $linenumber is reached
if ($linenumber > 1) {
while(<DATABASE>) {
if (--$linenumber <= 1) { last; }
}
}
-------------
# read next $listlength messages
$list = "";
$c = 0;
while(<DATABASE>) {
($ID,$date,$title,$contact,$post) = split(/\t/);
$list = join("\n",$list,"<STRONG>$ID</STRONG> $date <A
HREF=\"view.cgi?$ID\">$title</A> - $contact<BR>");
if (++$c > ($listlength - 1)) { last; }
}
