Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	6.56 KB	-rw-r--r--
acl_security.pl	855 B	-rwxr-xr-x
address_rewriting.cgi	1.11 KB	-rwxr-xr-x
aliases-lib.pl	7.93 KB	-rwxr-xr-x
aliases.cgi	2.97 KB	-rwxr-xr-x
autoreply.pl	12.13 KB	-rwxr-xr-x
backup_config.pl	730 B	-rwxr-xr-x
bcc.cgi	1.41 KB	-rwxr-xr-x
body.cgi	951 B	-rwxr-xr-x
boxes-lib.pl	78.51 KB	-rwxr-xr-x
canonical.cgi	1.12 KB	-rwxr-xr-x
canonical_edit.cgi	734 B	-rwxr-xr-x
client.cgi	2.22 KB	-rwxr-xr-x
config	702 B	-rw-r--r--
config-freebsd	783 B	-rw-r--r--
config-freebsd-8-ALL	886 B	-rw-r--r--
config-mandrake-linux	721 B	-rw-r--r--
config-msc-linux	721 B	-rw-r--r--
config-netbsd	721 B	-rw-r--r--
config-pardus-linux	783 B	-rw-r--r--
config-syno-linux	998 B	-rw-r--r--
config.info	2.46 KB	-rw-r--r--
config.info.bg	2.94 KB	-rw-r--r--
config.info.bg.UTF-8	4.55 KB	-rw-r--r--
config.info.ca	2.92 KB	-rw-r--r--
config.info.ca.UTF-8	2.96 KB	-rw-r--r--
config.info.cz	774 B	-rw-r--r--
config.info.cz.UTF-8	825 B	-rw-r--r--
config.info.de	2.91 KB	-rw-r--r--
config.info.de.UTF-8	2.91 KB	-rw-r--r--
config.info.es	454 B	-rw-r--r--
config.info.es.UTF-8	454 B	-rw-r--r--
config.info.fr	590 B	-rw-r--r--
config.info.fr.UTF-8	607 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja_JP.UTF-8	2.93 KB	-rw-r--r--
config.info.ja_JP.euc	2.32 KB	-rw-r--r--
config.info.nl	2.72 KB	-rw-r--r--
config.info.nl.UTF-8	2.72 KB	-rw-r--r--
config.info.no	2.76 KB	-rw-r--r--
config.info.no.UTF-8	2.76 KB	-rw-r--r--
config.info.pl	541 B	-rw-r--r--
config.info.pl.UTF-8	564 B	-rw-r--r--
config.info.ru.UTF-8	1011 B	-rw-r--r--
config.info.ru_RU	679 B	-rw-r--r--
config.info.ru_RU.UTF-8	1011 B	-rw-r--r--
config.info.ru_SU	679 B	-rw-r--r--
config.info.sv	532 B	-rw-r--r--
config.info.sv.UTF-8	552 B	-rw-r--r--
config.info.tr	442 B	-rw-r--r--
config.info.uk_UA	698 B	-rw-r--r--
config.info.uk_UA.UTF-8	1023 B	-rw-r--r--
config.info.zh_CN	350 B	-rw-r--r--
config.info.zh_CN.UTF-8	405 B	-rw-r--r--
config.info.zh_TW.Big5	397 B	-rw-r--r--
config.info.zh_TW.UTF-8	463 B	-rw-r--r--
debug.cgi	815 B	-rwxr-xr-x
defaultacl	326 B	-rw-r--r--
delete_aliases.cgi	820 B	-rwxr-xr-x
delete_mappings.cgi	596 B	-rwxr-xr-x
delete_queues.cgi	1.95 KB	-rwxr-xr-x
dependent.cgi	988 B	-rwxr-xr-x
detach_queue.cgi	651 B	-rwxr-xr-x
edit_access.cgi	676 B	-rwxr-xr-x
edit_afile.cgi	1.08 KB	-rwxr-xr-x
edit_alias.cgi	438 B	-rwxr-xr-x
edit_canonical_mappings.cgi	1.29 KB	-rwxr-xr-x
edit_ffile.cgi	2.05 KB	-rwxr-xr-x
edit_manual.cgi	1.08 KB	-rwxr-xr-x
edit_mapping.cgi	2.75 KB	-rwxr-xr-x
edit_master.cgi	3.15 KB	-rwxr-xr-x
edit_rfile.cgi	3.05 KB	-rwxr-xr-x
filter.pl	1.98 KB	-rwxr-xr-x
flushq.cgi	513 B	-rwxr-xr-x
general.cgi	4.08 KB	-rwxr-xr-x
header.cgi	986 B	-rwxr-xr-x
index.cgi	4.13 KB	-rwxr-xr-x
install_check.pl	384 B	-rwxr-xr-x
ldap.cgi	1.19 KB	-rwxr-xr-x
local_delivery.cgi	1.84 KB	-rwxr-xr-x
log_parser.pl	795 B	-rwxr-xr-x
mailq.cgi	2.44 KB	-rwxr-xr-x
mailq_search.cgi	979 B	-rwxr-xr-x
manual.cgi	996 B	-rwxr-xr-x
manual_update.cgi	610 B	-rwxr-xr-x
map_chooser.cgi	5.58 KB	-rwxr-xr-x
map_chooser_save.cgi	6.54 KB	-rwxr-xr-x
master.cgi	1.26 KB	-rwxr-xr-x
module.info	158 B	-rw-r--r--
module.info.ca	88 B	-rw-r--r--
module.info.ca.UTF-8	100 B	-rw-r--r--
module.info.cz	29 B	-rw-r--r--
module.info.cz.UTF-8	35 B	-rw-r--r--
module.info.de	78 B	-rw-r--r--
module.info.de.UTF-8	90 B	-rw-r--r--
module.info.es	33 B	-rw-r--r--
module.info.es.UTF-8	40 B	-rw-r--r--
module.info.fr	33 B	-rw-r--r--
module.info.fr.UTF-8	39 B	-rw-r--r--
module.info.hu	30 B	-rw-r--r--
module.info.hu.UTF-8	36 B	-rw-r--r--
module.info.ja_JP.UTF-8	35 B	-rw-r--r--
module.info.ja_JP.euc	30 B	-rw-r--r--
module.info.ko_KR.UTF-8	32 B	-rw-r--r--
module.info.ko_KR.euc	28 B	-rw-r--r--
module.info.ms_MY	84 B	-rw-r--r--
module.info.ms_MY.UTF-8	96 B	-rw-r--r--
module.info.nl	28 B	-rw-r--r--
module.info.nl.UTF-8	34 B	-rw-r--r--
module.info.no	30 B	-rw-r--r--
module.info.no.UTF-8	36 B	-rw-r--r--
module.info.pl	35 B	-rw-r--r--
module.info.pl.UTF-8	41 B	-rw-r--r--
module.info.ru.UTF-8	41 B	-rw-r--r--
module.info.ru_RU	29 B	-rw-r--r--
module.info.ru_RU.UTF-8	44 B	-rw-r--r--
module.info.ru_SU	29 B	-rw-r--r--
module.info.sv	29 B	-rw-r--r--
module.info.sv.UTF-8	36 B	-rw-r--r--
module.info.tr	31 B	-rw-r--r--
module.info.zh_CN	24 B	-rw-r--r--
module.info.zh_TW.Big5	29 B	-rw-r--r--
postfinger.cgi	13.89 KB	-rwxr-xr-x
postfix-lib.pl	61.5 KB	-rwxr-xr-x
rate.cgi	1.1 KB	-rwxr-xr-x
reload.cgi	265 B	-rwxr-xr-x
relocated.cgi	954 B	-rwxr-xr-x
resource.cgi	1.49 KB	-rwxr-xr-x
sasl.cgi	3.08 KB	-rwxr-xr-x
save_afile.cgi	580 B	-rwxr-xr-x
save_alias.cgi	2.7 KB	-rwxr-xr-x
save_client.cgi	1.67 KB	-rwxr-xr-x
save_ffile.cgi	860 B	-rwxr-xr-x
save_manual.cgi	665 B	-rwxr-xr-x
save_map.cgi	2.59 KB	-rwxr-xr-x
save_master.cgi	2.33 KB	-rwxr-xr-x
save_opts.cgi	638 B	-rwxr-xr-x
save_opts_aliases.cgi	582 B	-rwxr-xr-x
save_opts_bcc.cgi	464 B	-rwxr-xr-x
save_opts_body.cgi	636 B	-rwxr-xr-x
save_opts_canonical.cgi	716 B	-rwxr-xr-x
save_opts_dependent.cgi	609 B	-rwxr-xr-x
save_opts_header.cgi	650 B	-rwxr-xr-x
save_opts_misc.cgi	629 B	-rwxr-xr-x
save_opts_relocated.cgi	637 B	-rwxr-xr-x
save_opts_transport.cgi	636 B	-rwxr-xr-x
save_opts_virtual.cgi	624 B	-rwxr-xr-x
save_rfile.cgi	1.25 KB	-rwxr-xr-x
save_sasl.cgi	2.95 KB	-rwxr-xr-x
smtp.cgi	2.38 KB	-rwxr-xr-x
smtpd.cgi	2.7 KB	-rwxr-xr-x
start.cgi	341 B	-rwxr-xr-x
stop.cgi	337 B	-rwxr-xr-x
transport.cgi	955 B	-rwxr-xr-x
view_mailq.cgi	3.41 KB	-rwxr-xr-x
virtual.cgi	1.05 KB	-rwxr-xr-x

Code Editor : postfinger.cgi

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

require './postfix-lib.pl';

&ReadParse();

$System=$in{'system'}||1;
$Package=$in{'package'}||1;
$Locking=$in{'locking'}||0;
$Tables=$in{'tables'}||0;
$Main=$in{'main'}||1;
$Master=$in{'master'}||1;
$Permissions=$in{'permissions'}||0;
$Libraries=$in{'libraries'}||0;
$Warn=$in{'warn'}||1;
$Defaultsinmain=$in{'defaultsinmain'}||1;

$access{'postfinger'} || &error($text{'postfinger_ecannot'});
&header($text{'postfinger_title'}, "");
if ( !$in{'go'} ) {
	print "<br><form action=postfinger.cgi>\n";
	print "<input type=hidden name=go value=go>\n";
	print "<table border>\n";
	print "<tr $cb> <td><table>\n";
	print "<tr $cb> <td><font color=0000FF size=4><b>Display Options:</b></font></td></tr>\n";
	print "<tr $cb> <td><b>System</b></td> <td colspan=3>\n";
	printf "<input type=radio name=system value=1 %s> %s\n",
	$System eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=system value=no %s> %s\n",
	$System eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $System),"</td> </tr>\n";

print "<tr $cb> <td><b>Package</b></td> <td colspan=3>\n";
	printf "<input type=radio name=package value=1 %s> %s\n",
	$Package eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=package value=no %s> %s\n",
	$Package eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Package),"</td> </tr>\n";

print "<tr $cb> <td><b>Main</b></td> <td colspan=3>\n";
	printf "<input type=radio name=main value=1 %s> %s\n",
	$Main eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=main value=no %s> %s\n",
	$Main eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Main),"</td> </tr>\n";

print "<tr $cb> <td><b>Defaults in Main</b></td> <td colspan=3>\n";
	printf "<input type=radio name=defaultsinmain value=1 %s> %s\n",
	$Defaultsinmain eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=defaultsinmain value=no %s> %s\n",
	$Defaultsinmain eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Defaultsinmain),"</td> </tr>\n";

print "<tr $cb> <td><b>Master</b></td> <td colspan=3>\n";
	printf "<input type=radio name=master value=1 %s> %s\n",
	$Master eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=master value=no %s> %s\n",
	$Master eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Master),"</td> </tr>\n";

print "<tr $cb> <td><b>Locking</b></td> <td colspan=3>\n";
	printf "<input type=radio name=locking value=1 %s> %s\n",
	$Locking eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=locking value=no %s> %s\n",
	$Locking eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Locking),"</td> </tr>\n";

print "<tr $cb> <td><b>Tables</b></td> <td colspan=3>\n";
	printf "<input type=radio name=tables value=1 %s> %s\n",
	$Tables eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=tables value=no %s> %s\n",
	$Tables eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Tables),"</td> </tr>\n";

print "<tr $cb> <td><b>Permissions</b></td> <td colspan=3>\n";
	printf "<input type=radio name=permissions value=1 %s> %s\n",
	$Permissions eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=permissions value=no %s> %s\n",
	$Permissions eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Permissions),"</td> </tr>\n";

print "<tr $cb> <td><b>Libraries</b></td> <td colspan=3>\n";
	printf "<input type=radio name=libraries value=1 %s> %s\n",
	$Libraries eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=libraries value=no %s> %s\n",
	$Libraries eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Libraries),"</td> </tr>\n";

print "<tr $cb> <td><b>Warn</b></td> <td colspan=3>\n";
	printf "<input type=radio name=warn value=1 %s> %s\n",
	$Warn eq 1 ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=warn value=no %s> %s\n",
	$Warn eq 1 ? '' : 'checked', $text{'no'},
	join(" ", $Warn),"</td> </tr>\n";
	print "<tr><td> </td></tr><tr><td><input type=submit value=\"$text{'postfinger_show'}\"></td></tr></form>\n";

print "</table></td> </tr></table>";
	&footer("index.cgi", $text{'index_title'});
} else {
	&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";
		&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>";
&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;
}

${this.title}

Code Editor : postfinger.cgi