File Manager - BorneoXploit

Editing: postfinger.cgi

#!/usr/bin/perl
# postfinger.cgi
# check postfix configuration

require './postfix-lib.pl';    ## no critic
use strict;
use warnings;
our ($Defaultsinmain, $err, $Libraries, $Locking, $Main, $Master, $Package, $Permissions, $postf1, $postf2, $postf3, $postf4, $postf5, $postf6, $postf7, $postf8, $postfix_version, $System, $Tables, $Warn, %access, %config, %text);
my $mailq;

&ReadParse();

$System=1;
$Package=1;
$Locking=1;
$Tables=1;
$Main=1;
$Master=1;
$Permissions=1;
$Libraries=1;
$Warn=1;
$Defaultsinmain=1;

$access{'postfinger'} || &error($text{'postfinger_ecannot'});
&header($text{'postfinger_title'}, "");
&head;
if (! -x $config{'postfix_config_command'} && ! -r $config{'postfix_config_file'} ) {
	print "Can not find postconf";
	exit;
}
# Verify that current configuration is valid
if ($config{'index_check'} && ($err = &check_postfix())) {
	print "<p>",&text('check_error'),"<p>\n";
	print "<pre>$err</pre>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
}
if ($System eq 1 ) {
#		print '<center><b>--System Parameters--</b></center>';
	if (&has_command($config{'postfix_config_command'})) {
		print "<h1 class='p'>Postfix Version: $postfix_version</h1>";
		print "</td></tr>";
		print "</table><br />";
		print "<table border='0' cellpadding='3' width='600' align='center'>";
		open($mailq, "-|", "/bin/hostname 2>/dev/null");
		while (my $hostname = <$mailq>) { print "<tr><td class='e'>Hostname </td><td class='v'>$hostname</td></tr>"; } 
		close($mailq);
		open($mailq, "-|", "/bin/uname -a 2>/dev/null");
		while (my $uname = <$mailq>) { print "<tr><td class='e'>System </td><td class='v'>$uname</td></tr>"; } 
		close($mailq);
	}
	print "</table><br />";
}

if ($Locking eq 1 ) {
	print '<h1 align="center">Mailbox locking methods</h1>';
	print '<table border="0" cellpadding="0" width="600" align="center">';
	open($mailq, "-|", "$config{'postfix_config_command'} -l 2>/dev/null");
	while (my $locking_methods = <$mailq>) {
		print "<tr><td class='v'><center><b>$locking_methods</b></center></td></tr>"; }
	close($mailq);
	print "</table><br />";
}

if ($Tables eq 1 ) {
	print '<h1 align="center">Supported Lookup Tables</h1>';
	print '<table border="0" cellpadding="0" width="600" align="center">';
#		print '<center><b>--Supported Lookup tables--</b></center><br>';
	open($mailq, "-|", "$config{'postfix_config_command'} -m 2>/dev/null");
	while (my $lookup_tables = <$mailq>) {
		print "<tr><td class='v'><center><b>$lookup_tables</b></center></td></tr>"; }
	close($mailq);
	print "</table><br />";
}

if (($Main eq 1 || $Defaultsinmain eq 1 ) && ("x`find . -prune  $ -perm 020 -o -perm 002 $ -print`" != "x")){
	print "<center><b>Do not run this in a public- or group-writable directory</b></center><br>";
	exit;
} else {
system ("rm postfinger.*.d postfinger.*.n");
#	unlink  "postfinger.*.d, postfinger.*.n";
`$config{'postfix_config_command'} -d | tr -s [:blank:] | sort > postfinger.$$.d`;
`$config{'postfix_config_command'} -n | tr -s [:blank:] | sort > postfinger.$$.n`;

if ($Main eq 1 ) {
	print '<h1 align="center">main.cf</h1><br><h2 align="center">non-default parameters</h2>';
	print '<table border="0" cellpadding="2" width="600" align="center">';
#		print '<center><b>--main.cf non-default parameters--</b></center><br>';
	open($mailq, "-|", "/usr/bin/comm -13 postfinger.$$.d postfinger.$$.n 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		($postf1,$postf2)=split(/=/,$postfinger,2);
		print "<tr><td class='e'><b>$postf1</b></td>"; 
		print "<td class='v'>$postf2</td></tr>"; }
	close($mailq);
	print "</table><br />";
}

if ($Defaultsinmain eq 1 ) {
	print '<h1 align="center">main.cf</h1><br><h2 align="center">parameters defined as per defaults</h2>';
	print '<table border="0" cellpadding="2" width="600" align="center">';
#		print '<center><b>--main.cf parameters defined as per defaults--</b></center><br>';
	open($mailq, "-|", "/usr/bin/comm -12 postfinger.$$.d postfinger.$$.n 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		($postf1,$postf2)=split(/=/,$postfinger,2);
		print "<tr><td class='e'><b>$postf1</b></td>"; 
		print "<td class='v'>$postf2</td></tr>"; }
	close($mailq);
	print "</table><br />";
}
unlink  "postfinger.*.d, postfinger.*.n";
}

if ($Master eq 1 ) {
	print '<h1 align="center">master.cf</h1><br>';
	print '<table border="0" cellpadding="8" width="600" align="center">';
	print "<tr><td class='e'><b>service</b></td><td class='v'><b>type</b></td>",
		"<td class='v'><b>private</b></td><td class='v'><b>unpriv</b></td>",
		"<td class='v'><b>chroot</b></td><td class='v'><b>wakeup</b></td>",
		"<td class='v'><b>maxproc</b></td><td class='v'><b>command + args</b></td></tr>";
	open($mailq, "-|", "/bin/cat `$config{'postfix_config_command'} -h config_directory`/master.cf 2>/dev/null");
	while (my $postfinger = <$mailq>) { 
		($postf1,$postf2,$postf3,$postf4,$postf5,$postf6,$postf7,$postf8)=split(/\s+/,$postfinger,8);
		if ($postfinger =~ /\-o/) {
			print "<tr><td class='e'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'>$postf2</td></tr>"
			if ( !grep(/^#|^\[ 	\]*$/,$postfinger));
		} elsif ($postfinger =~ /user=/) {
			print "<tr><td class='e'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'></td>",
				"<td class='v'></td><td class='v'>$postf1</td></tr>"
			if ( !grep(/^#|^\[ 	\]*$/,$postfinger));
		} else {
			print "<tr><td class='e'><b>$postf1</b></td><td class='v'><center>$postf2</center></td>",
				"<td class='v'><center>$postf3</center></td><td class='v'><center>$postf4</center></td>",
				"<td class='v'><center>$postf5</center></td><td class='v'><center>$postf6</center></td>",
				"<td class='v'><center>$postf7</center></td><td class='v'>$postf8</td></tr>"
			if ( !grep(/^#|^\[ 	\]*$/,$postfinger));
		} 
	} 
	close($mailq);
	print "</table><br>";
}

if ($Permissions eq 1 ) {
	print '<h1 align="center">Specific file and directory permissions</h1><br>';
	print '<table border="0" cellpadding="0" width="600" align="center">';
	print "<tr><td class='e'><b>Permission</b> Deep <b>Owner</b> <b>Group</b> Size   Date  <b>Directory/File</b></td></tr>";
	open($mailq, "-|", "/bin/ls -ld `$config{'postfix_config_command'} -h queue_directory`/maildrop 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		print "<tr><td class='v'>$postfinger</td></tr>"
		if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
	} 
	close($mailq);
	print "<tr><td></td></tr>";
	open($mailq, "-|", "/bin/ls -ld `$config{'postfix_config_command'} -h queue_directory`/public 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		print "<tr><td class='v'>$postfinger</td></tr>"
		if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
	} 
	close($mailq);
	print "<tr><td></td></tr>";
	if (! open($mailq, "-|", "/bin/ls -l `$config{'postfix_config_command'} -h queue_directory`/public 2>/dev/null")) {
		print '<center><b>WARNING: No access to $queue_directory/public<br>Try running postfinger as user root or postfix</b></center><br>';
	} else {
		while (my $postfinger = <$mailq>) {
			print "<tr><td class='v'>$postfinger</td></tr>"
			if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
		} 
		close($mailq);
		print "<tr><td></td></tr>";
	}
	open($mailq, "-|", "/bin/ls -ld `$config{'postfix_config_command'} -h queue_directory`/private 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		print "<tr><td class='v'>$postfinger</td></tr>"
		if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
	} 
	close($mailq);
	print "<tr><td></td></tr>";
	if (! open($mailq, "-|", "/bin/ls -l `$config{'postfix_config_command'} -h queue_directory`/private 2>/dev/null")) {
		print '<center><b>WARNING: No access to $queue_directory/private<br>Try running postfinger as user root or postfix</b></center><br>';
	} else {
		while (my $postfinger = <$mailq>) {
			print "<tr><td class='v'>$postfinger</td></tr>"
			if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
		} 
		close($mailq);
		print "<tr><td></td></tr>";
	}
	open($mailq, "-|", "/bin/ls -l `$config{'postfix_config_command'} -h command_directory`/postdrop 2>/dev/null");
	while (my $postfinger = <$mailq>) {
		print "<tr><td class='v'>$postfinger</td></tr>"
		if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
	} 
	close($mailq);
	print "<tr><td></td></tr>";
	open($mailq, "-|", "/bin/ls -l `$config{'postfix_config_command'} -h command_directory`/postqueue 2>/dev/null");
	while (my $postfinger = <$mailq>) {
			print "<tr><td class='v'>$postfinger</td></tr>"
			if ( !grep(/total|^#|^\[ 	\]*$/,$postfinger));
	} 
	close($mailq);
	print "</table><br>";
}
if ($Libraries eq 1 ) {
	print '<h1 align="center">Library dependencies</h1>';
	print '<table border="0" cellpadding="0" width="600" align="center">';
	if (! open($mailq, "-|", "/usr/bin/ldd `$config{'postfix_config_command'} -h daemon_directory`/smtpd 2>/dev/null")) {
		print '<center><b>WARNING: Can not find ldd.  Check you have it installed and in your path</b></center><br>';
	} else {
		while (my $postfinger = <$mailq>) {
			($postf1,$postf2)=split(/=/,$postfinger,2);
			print "<tr><td class='e'><b>$postf1</b></td>"; 
			print "<td class='v'>=$postf2</td></tr>";
		} 
		close($mailq);
		print "</table><br>";
	}
}
print "</td></tr></table></td></tr></table>";
&ui_print_footer("index.cgi", $text{'index_title'});

sub head {
print "<style type='text/css'></style>";
#print "<title>Postfinger</title></head>";
#print "<body><div class='center'>";
print "<table border='0' cellpadding='3' width='600' align='center'>";
print "<tr class='h'><td>";
return;
}

Cancel