adalt — Thu, 01 Feb 2001 05:22:30 +0000

Deleted it all, downloaded again, ftp'd again now it works.

Tony

Matt@Ikonboard — Thu, 01 Feb 2001 02:09:47 +0000

hehe, the answer is:: 'It's a boardpower script'

In all seriousness, it could be anything.

adalt — Tue, 30 Jan 2001 16:19:15 +0000

Oh and here is the script :

Thanks again
Tony

#!/opt/perl/bin/perl

# Board Power (tm) v2.07 PS Beta
# Written by Joseph Bannon
# Copyright 1998-2000 Joseph Bannon - All Rights Reserved
# Board Power is a trademark of Joseph Bannon.

# Software Distributed by: The Webmaster Guide, Inc.
# Visit us online at http://www.thewebmasterguide.com

$thisprogram = "admin.cgi";
$operatingsystem = "unix";

if (($operatingsystem eq "nt") || ($operatingsystem eq "other")) {
$bpdirectory = "";
}

$filetorequire = "$bpdirectory" . "config.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "variables/setup.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "programs.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "adminroutes.cgi";
require "$filetorequire";

# Parse incoming information.

&parsequery;
$inpassword = $QUERY{'password'};

&parseform;
$action = $FORM{'action'};
$inusername = $FORM{'username'};
$inpassword = $FORM{'password'};

&parsecookie;

# Cookies

if ($action eq "enter") { &setcookie("passwordcookie,$inpassword"); }
else { $inpassword = $COOKIE{'passwordcookie'}; }

print "Content-type: text/html\n\n";

&part1;

$inusername =~ s/ /\_/g;
$memberfile = "$bpdirectory" . "members/$inusername.cgi";

if ("$inpassword" eq "$adminpass" || "$inpassword" eq "$monitorpass") {

$showmenu = "yes";

$output .= "\n";
$output .= "Welcome to Board Power v2.07 PS Beta.\n";

$currenttime = time;
$shortdate = &shortdate("$currenttime");
$shorttime = &shorttime("$currenttime");
$output .= "Current Server Time: $shorttime on $shortdate\n";

$output .= "\n";

$output .= "Credits\n";
$output .= "

Development Manager Joseph Bannon\n";
$output .= "
Lead Programmer Joseph Bannon\n";
$output .= "
MySQL Consultant Elliott Frisch\n";
$output .= "
Design Trina Hall\n";
$output .= "

\n";
}

elsif ("$inpassword" ne "$adminpass" && "$inpassword" ne "$monitorpass") {
&loginform;
$output =~ s/Welcome To The Admin Center/Wrong Password/;
}

else { &loginform; }

&part2;
print "$output";
exit;