#################--- Begin the program ---################### $thisprog = "topic.cgi"; $query = new CGI; $cookiepath = $query->url(-absolute=>1); $cookiepath =~ s/$thisprog//sg; $inforum = $query -> param('forum'); $inforum = &stripMETA("$inforum"); $intopic = $query -> param('topic'); $intopic = &stripMETA("$intopic"); $instart = $query -> param('start'); $instart = &stripMETA("$instart"); $jumpto = $query -> param('jumpto'); $jumpto = &stripMETA("$jumpto"); $allpagesview = $query -> param('allpagesview'); $allpagesview = &stripMETA("$allpagesview"); die "Hack attempt!" unless $inforum =~ m!\A\d{1,3}\Z!; --------- line 55 die "Hack attempt!" if $intopic && $intopic !~ m!\A\d{1,7}\Z!; $inmembername = cookie("amembernamecookie"); $inpassword = cookie("apasswordcookie"); |