|
|
| System | : | Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686 |
|---|
| Software | : | Apache. PHP/5.3.6-13ubuntu3.10 |
|---|
| ID | : | uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
|
|---|
|
| Safe Mode | : | OFF |
|---|
| Open_Basedir | : | OFF |
|---|
| Freespace | : | 25.76 GB of 70.42 GB (36.58%) |
|---|
|
|
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON |
|
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
|
[ System Info ]
[ Processes ]
[ SQL Manager ]
[ Eval ]
[ Encoder ]
[ Mailer ]
[ Back Connection ]
[ Backdoor Server ]
[ Kernel Exploit Search ]
[ MD5 Decrypter ]
[ Reverse IP ]
[ Kill Shell ]
[ FTP Brute-Force ]
|
|
/
usr/
src/
courier-0.66.1/
webadmin/
- drwxrwxrwx
|
Viewing file:  admin-main.pl (1.25 KB) -rw-rw-rw-Select action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#! perl
#
#
# Copyright 2001 Double Precision, Inc. See COPYING for
# distribution information.
#
# Dynamically generate the main menu.
my $fh=new FileHandle;
my %mainmenu;
if (opendir($fh, $webadmindir))
{
my $n;
while (defined ($n=readdir($fh)))
{
next unless $n =~ /^admin-(.*)\.pl$/;
my $name=$1;
my $title="";
my $ffh=new FileHandle "$webadmindir/$n";
my $line;
while (defined($line=<$ffh>))
{
last unless $line =~ /^#/;
next unless $line =~ /^#\s+(.*)/;
next unless $1 =~ /^TITLE:\s+(.*)/;
$line=$1;
$mainmenu{$name}=$line;
last;
}
close($ffh);
}
close($fh);
}
my $menuhtml="<table border=\"0\" cellspacing=\"8\">";
foreach (sort keys %mainmenu)
{
my $title=$mainmenu{$_};
my $pfix;
$title =~ /^(>*)/;
$pfix=length($1);
$title =~ s/^>*//;
$menuhtml .= "<tr><td>" . (" " x $pfix) . "<a href=\""
. $cgi->url(-full=>1) . "/$_\">" . $title . "</a></td></tr>\n";
}
$menuhtml .= "</table>\n";
my $update="\@NOUPDATE\@";
my $cancel="\@NOCANCEL\@";
if ( -f "$sysconfdir/webadmin/changed" )
{
$update="\@DOUPDATE\@";
$cancel="\@DOCANCEL\@";
}
display_form("admin-main.html",
{
"MENU" => $menuhtml,
"UPDATE" => $update,
"CANCEL" => $cancel
}
);
|
