Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.12 KB	-rw-r--r--
acl_security.pl	1.69 KB	-rwxr-xr-x
apply.cgi	229 B	-rwxr-xr-x
backup_config.pl	890 B	-rwxr-xr-x
cgi_args.pl	189 B	-rwxr-xr-x
config	236 B	-rw-r--r--
config-debian-linux	246 B	-rw-r--r--
config-freebsd	288 B	-rw-r--r--
config-pardus-linux	224 B	-rw-r--r--
config-syno-linux	277 B	-rw-r--r--
config.info	1.43 KB	-rw-r--r--
config.info.ca	1.64 KB	-rw-r--r--
config.info.ca.UTF-8	1.66 KB	-rw-r--r--
config.info.cz	1.32 KB	-rw-r--r--
config.info.cz.UTF-8	1.41 KB	-rw-r--r--
config.info.de	1.73 KB	-rw-r--r--
config.info.de.UTF-8	1.73 KB	-rw-r--r--
config.info.el	637 B	-rw-r--r--
config.info.es	482 B	-rw-r--r--
config.info.es.UTF-8	482 B	-rw-r--r--
config.info.fr	502 B	-rw-r--r--
config.info.fr.UTF-8	502 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	1.45 KB	-rw-r--r--
config.info.nl.UTF-8	1.45 KB	-rw-r--r--
config.info.no	1.43 KB	-rw-r--r--
config.info.no.UTF-8	1.43 KB	-rw-r--r--
defaultacl	71 B	-rw-r--r--
delete_awl.cgi	1.17 KB	-rwxr-xr-x
deleteall_awl.cgi	806 B	-rwxr-xr-x
deleteone_awl.cgi	560 B	-rwxr-xr-x
edit_amavisd.cgi	4.85 KB	-rwxr-xr-x
edit_awl.cgi	3.54 KB	-rwxr-xr-x
edit_db.cgi	3.17 KB	-rwxr-xr-x
edit_header.cgi	4.21 KB	-rwxr-xr-x
edit_manual.cgi	1.06 KB	-rwxr-xr-x
edit_priv.cgi	1.2 KB	-rwxr-xr-x
edit_procmail.cgi	1.87 KB	-rwxr-xr-x
edit_report.cgi	4.23 KB	-rwxr-xr-x
edit_score.cgi	3.18 KB	-rwxr-xr-x
edit_setup.cgi	1.57 KB	-rwxr-xr-x
edit_simple.cgi	1.5 KB	-rwxr-xr-x
edit_user.cgi	2.76 KB	-rwxr-xr-x
edit_white.cgi	4.38 KB	-rwxr-xr-x
index.cgi	5.18 KB	-rwxr-xr-x
install_check.pl	423 B	-rwxr-xr-x
langs	718 B	-rw-r--r--
locales	69 B	-rw-r--r--
log_parser.pl	329 B	-rwxr-xr-x
module.info	197 B	-rw-r--r--
module.info.ca	114 B	-rw-r--r--
module.info.ca.UTF-8	126 B	-rw-r--r--
module.info.cz	35 B	-rw-r--r--
module.info.cz.UTF-8	42 B	-rw-r--r--
module.info.de	141 B	-rw-r--r--
module.info.de.UTF-8	153 B	-rw-r--r--
module.info.es	40 B	-rw-r--r--
module.info.es.UTF-8	46 B	-rw-r--r--
module.info.fr	40 B	-rw-r--r--
module.info.fr.UTF-8	46 B	-rw-r--r--
module.info.hu	38 B	-rw-r--r--
module.info.hu.UTF-8	47 B	-rw-r--r--
module.info.ms_MY	144 B	-rw-r--r--
module.info.ms_MY.UTF-8	156 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.nl.UTF-8	40 B	-rw-r--r--
module.info.no	35 B	-rw-r--r--
module.info.no.UTF-8	41 B	-rw-r--r--
save_amavisd.cgi	2.54 KB	-rwxr-xr-x
save_db.cgi	1.87 KB	-rwxr-xr-x
save_header.cgi	2.99 KB	-rwxr-xr-x
save_manual.cgi	727 B	-rwxr-xr-x
save_priv.cgi	879 B	-rwxr-xr-x
save_procmail.cgi	1.75 KB	-rwxr-xr-x
save_report.cgi	2.07 KB	-rwxr-xr-x
save_score.cgi	2.05 KB	-rwxr-xr-x
save_simple.cgi	2.75 KB	-rwxr-xr-x
save_user.cgi	1.64 KB	-rwxr-xr-x
save_white.cgi	2.1 KB	-rwxr-xr-x
setup.cgi	2.71 KB	-rwxr-xr-x
spam-amavis-lib.pl	2.72 KB	-rwxr-xr-x
spam-lib.pl	27.95 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display a menu of spamassassin config category icons

require './spam-lib.pl';
&ReadParse();
$hsl = $module_info{'usermin'} ? undef :
		&help_search_link("spamassassin procmail amavisd", "man","doc", "google");
&set_config_file_in(\%in);

if (!&has_command($config{'spamassassin'}) ||
    (!$module_info{'usermin'} && !($vers = &get_spamassassin_version(\$out)))) {
	# Program not found
	&ui_print_header($header_subtext, $text{'index_title'}, "", undef, 1, 1,
			 undef, $hsl);

if ($module_info{'usermin'}) {
		print &text('index_ecmd2',
			 "<tt>$config{'spamassassin'}</tt>"),"\n";
		}
	else {
		print &text('index_ecmd', "<tt>$config{'spamassassin'}</tt>",
		 "$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";

# Offer to install package
		&foreign_require("software", "software-lib.pl");
		$lnk = &software::missing_install_link(
				"spamassassin", $text{'index_spamassassin'},
				"../$module_name/", $text{'index_title'});
		if ($lnk) {
			print $lnk,"\n";
			}
		elsif (&foreign_available("cpan")) {
			# Offer to install perl module
			$modname = "Mail::SpamAssassin";
			print &text('index_cpan', "<tt>$modname</tt>",
				 "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"\n";
			}
		}
	}
else {
	$vtext = $module_info{'usermin'} ? undef :
			&text('index_version', $vers);
	&ui_print_header($header_subtext, $text{'index_title'}, "", undef,
			 1, 1, undef, $hsl, undef, undef, $vtext);

if (!-r $local_cf && !-d $local_cf && !$module_info{'usermin'}) {
		# Config not found
		print &text('index_econfig',
			"<tt>$local_cf</tt>",
			"../config.cgi?$module_name"),"\n";
		}
	elsif ($dberr = &check_spamassassin_db()) {
		# Cannot contact the DB
		print &text('index_edb', $dberr,
			 "../config.cgi?$module_name"),"\n";
		}
	else {
		# Work out if SpamAssassin is enabled in procmail
		if ($warn_procmail && &foreign_check("procmail")) {
			&foreign_require("procmail", "procmail-lib.pl");
			$spam_enabled = 0;	# Found call to spamassassin
			$delivery_enabled = 0;	# Found X-Spam: header rule
			@pmrcs = &get_procmailrc();
			foreach $pmrc (@pmrcs) {
				local @recipes =
					&procmail::parse_procmail_file($pmrc);
				local $isglobal = $pmrc eq
					 $config{'global_procmailrc'};
				if (&find_spam_recipe(\@recipes)) {
					$spam_enabled ||= 1;
					}
				if (&find_file_recipe(\@recipes)) {
					if ($isglobal) {
						# Enabled globally, and so
						# cannot be changed by user
						$delivery_enabled ||= -2;
						}
					else {
						$delivery_enabled ||= 1;
						}
					}
				if (&find_virtualmin_recipe(\@recipes)) {
					# Controlled by Virtualmin
					if ($isglobal &&
					 &find_force_default_receipe(
					 \@recipes)) {
						# User .procmailrc files are
						# prevented
						$spam_enabled ||= -2;
						$delivery_enabled ||= -2;
						}
					else {
						# Users can have a .procmailrc
						$spam_enabled ||= -2;
						$delivery_enabled ||= 1;
						}
					}
				}
			}
		else {
			# don't know, or checking disabled
			$spam_enabled = -1;
			$delivery_enabled = -1;
			}
		if ($spam_enabled == 0) {
			if ($module_info{'usermin'}) {
				print &ui_alert_box(&text('index_warn_usermin',
					 "<tt>$pmrcs[0]</tt>","<tt>$pmrcs[1]</tt>"), 'warn');
				}
			else {
				print &ui_alert_box(&text('index_warn_webmin',
					 "<tt>$pmrcs[0]</tt>"), 'warn');
				}
			}

# Check if razor is set up
		if ($module_info{'usermin'} &&
		    -r "$remote_user_info[7]/.razor/identity") {
			$razor = 1;
			}

# Show icons
		@pages = ( 'white', 'score', 'report', 'user' );
		push(@pages, 'simple') if (!$module_info{'usermin'} ||
					   &find_default("allow_user_rules",0));
		push(@pages, 'priv') if (!$module_info{'usermin'});
		push(@pages, 'mail') if ($module_info{'usermin'} &&
					 $userconfig{'spam_file'});
		push(@pages, 'razor') if (!$razor && $module_info{'usermin'});
		push(@pages, 'setup') if ($spam_enabled == 0);
		push(@pages, 'procmail') if ($delivery_enabled == 1);
		push(@pages, 'amavisd') if ($spam_enabled == -1);
		push(@pages, 'db') if (!$module_info{'usermin'});
		push(@pages, 'awl') if (&supports_auto_whitelist());
		push(@pages, 'manual');
		@pages = grep { &can_use_page($_) } @pages;
		$sfolder = $module_info{'usermin'} ? &spam_file_folder()
						   : undef;
		if (!$sfolder) {
			@pages = grep { $_ ne 'mail' } @pages;
			}
		@links = map { $_ eq "mail" ? "../mailbox/index.cgi?folder=$sfolder->{'index'}" : "edit_${_}.cgi" } @pages;
		if ($in{'file'}) {
			foreach my $l (@links) {
				if ($l !~ /\//) {
					$l .= "?file=".&urlize($in{'file'}).
					      "&title=".&urlize($in{'title'});
					}
				}
			}
		@icons = map { "images/${_}.gif" } @pages;
		@titles = map { $text{"${_}_title"} } @pages;
		&icons_table(\@links, \@titles, \@icons);

# Show buttons for HUPing spamd processes (if any)
		if (!$module_info{'usermin'} &&
		 (@pids = &get_process_pids())) {
			print &ui_hr();
			print &ui_buttons_start();
			print &ui_buttons_row("apply.cgi",
				$text{'index_apply'},
				&text('index_applydesc',
				 "<tt>".join(" and ", &unique(
				 map { $_->[1] } @pids))."</tt>"));
			print &ui_buttons_end();
			}
		}
	}

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi