From 6c4c2b1d35bcbaa0d6b253b08e2b2cb4e71bdc8d Mon Sep 17 00:00:00 2001 From: Jamie Cameron Date: Sat, 24 Jan 2009 21:26:32 +0000 Subject: [PATCH] More ui-lib conversion --- spam/edit_db.cgi | 31 ++++++++++------------- spam/edit_header.cgi | 2 +- spam/edit_priv.cgi | 38 +++++++++++++++------------- spam/edit_procmail.cgi | 56 ++++++++++++++++-------------------------- spam/save_header.cgi | 5 ++-- spam/save_procmail.cgi | 4 +-- 6 files changed, 61 insertions(+), 75 deletions(-) diff --git a/spam/edit_db.cgi b/spam/edit_db.cgi index 9eef2882e..1c5246771 100755 --- a/spam/edit_db.cgi +++ b/spam/edit_db.cgi @@ -65,42 +65,37 @@ $ldaptable .= &ui_table_end(); # Show backend type selector -print " $text{'db_dsn'} "; -print &ui_radio_table("mode", $mode, +print &ui_table_row($text{'db_dsn'}, + &ui_radio_table("mode", $mode, [ [ 0, $text{'db_mode0'} ], [ 1, $text{'db_mode1'}, $dbtable ], [ 3, $text{'db_mode3'}, $ldaptable ], [ 4, $text{'db_mode4'}, - &ui_textbox("dsn", $dsn, 60) ] ]); -print " \n"; + &ui_textbox("dsn", $dsn, 60) ] ])); -print "
\n"; +print &ui_table_hr(); # DB login -print " $text{'db_user'} "; $user = &find("user_scores_sql_username", $conf); -&opt_field("user_scores_sql_username", $user, 20, undef); -print " \n"; +print &ui_table_row($text{'db_user'}, + &opt_field("user_scores_sql_username", $user, 20, undef)); # DB password -print " $text{'db_pass'} "; $pass = &find("user_scores_sql_password", $conf); -&opt_field("user_scores_sql_password", $pass, 20, undef); -print " \n"; +print &ui_table_row($text{'db_pass'}, + &opt_field("user_scores_sql_password", $pass, 20, undef)); -print "
\n"; +print &ui_table_hr(); # LDAP login -print " $text{'db_luser'} "; $user = &find("user_scores_ldap_username", $conf); -&opt_field("user_scores_ldap_username", $user, 40, undef); -print " \n"; +print &ui_table_row($text{'db_luser'}, + &opt_field("user_scores_ldap_username", $user, 40, undef)); # LDAP password -print " $text{'db_lpass'} "; $pass = &find("user_scores_ldap_password", $conf); -&opt_field("user_scores_ldap_password", $pass, 20, undef); -print " \n"; +print &ui_table_row($text{'db_lpass'}, + &opt_field("user_scores_ldap_password", $pass, 20, undef)); &end_form(undef, $text{'save'}); &ui_print_footer($redirect_url, $text{'index_return'}); diff --git a/spam/edit_header.cgi b/spam/edit_header.cgi index deed8558d..4234a25f2 100755 --- a/spam/edit_header.cgi +++ b/spam/edit_header.cgi @@ -6,7 +6,7 @@ require './spam-lib.pl'; &ReadParse(); &set_config_file_in(\%in); &can_use_check("header"); -&ui_print_header(undef, $text{'header_title'}, ""); +&ui_print_header($header_subtext, $text{'header_title'}, ""); $conf = &get_config(); print "$text{'header_desc'}

\n"; diff --git a/spam/edit_priv.cgi b/spam/edit_priv.cgi index 28695f606..c173f5332 100755 --- a/spam/edit_priv.cgi +++ b/spam/edit_priv.cgi @@ -12,27 +12,31 @@ $conf = &get_config(); print "$text{'priv_desc'}

\n"; &start_form("save_priv.cgi", $text{'priv_header'}); -print " $text{'priv_white'} "; -&opt_field("auto_whitelist_path", $x=&find("auto_whitelist_path", $conf), 40, - "~/.spamassassin/auto-whitelist"); -print " \n"; +# Whitelist file path +$path = &find("auto_whitelist_path", $conf); +print &ui_table_row($text{'priv_white'}, + &opt_field("auto_whitelist_path", $path, 40, + "~/.spamassassin/auto-whitelist")); -print " $text{'priv_mode'} "; -&opt_field("auto_whitelist_file_mode", $x=&find("auto_whitelist_file_mode", $conf), 4, - "0700"); -print " \n"; +# Whitelist file mode +$mode = &find("auto_whitelist_file_mode", $conf); +print &ui_table_row($text{'priv_mode'}, + &opt_field("auto_whitelist_file_mode", $mode, 4, "0700")); -print " $text{'priv_dcc'} "; -&opt_field("dcc_options", $x=&find("dcc_options", $conf), 10, "-R"); -print " \n"; +# DCC options +$dcc = &find("dcc_options", $conf); +print &ui_table_row($text{'priv_dcc'}, + &opt_field("dcc_options", $dcc, 10, "-R")); -print " $text{'priv_log'} "; -&opt_field("timelog_path", $x=&find("timelog_path", $conf), 40, "NULL"); -print " \n"; +# Timing log file +$log = &find("timelog_path", $conf); +print &ui_table_row($text{'priv_log'}, + &opt_field("timelog_path", $log, 40, "NULL")); -print " $text{'priv_razor'} "; -&opt_field("razor_config", $x=&find("razor_config", $conf), 40, "~/razor.conf"); -print " \n"; +# Razor config file +$razor = &find("razor_config", $conf); +print &ui_table_row($text{'priv_razor'}, + &opt_field("razor_config", $razor, 40, "~/razor.conf")); &end_form(undef, $text{'save'}); &ui_print_footer($redirect_url, $text{'index_return'}); diff --git a/spam/edit_procmail.cgi b/spam/edit_procmail.cgi index 4a067b4be..55bb218e2 100755 --- a/spam/edit_procmail.cgi +++ b/spam/edit_procmail.cgi @@ -42,50 +42,36 @@ else { $file = $spamrec->{'action'}; } -print "

\n"; +print &ui_form_start("save_procmail.cgi", "post"); +print &ui_table_start(undef, undef, 2); print $form_hiddens; -print "\n"; # Spam destination inputs -print "\n"; - -printf "\n", - $mode == 0 ? "checked" : "", $text{'setup_null'}; - -printf "\n", - $mode == 4 ? "checked" : "", $text{'setup_default'}; - -printf "\n", - $mode == 1 ? "checked" : "", $text{'setup_file'}; -printf "\n", - $mode == 1 ? $file : undef; - -printf "\n", - $mode == 2 ? "checked" : "", $text{'setup_maildir'}; -printf "\n", - $mode == 2 ? $file : undef; - -printf "\n", - $mode == 3 ? "checked" : "", $text{'setup_mhdir'}; -printf "\n", - $mode == 3 ? $file : undef; - -printf "\n", - $mode == 5 ? "checked" : "", $text{'setup_email'}; -printf "\n", - $mode == 5 ? $email : undef; - -print "
$text{'setup_to'} %s
%s
%s
%s
%s
%s

\n"; +print &ui_table_row($text{'setup_to'}, + &ui_radio_table("to", $mode, + [ [ 0, $text{'setup_null'} ], + [ 4, $text{'setup_default'} ], + [ 1, $text{'setup_file'}, + &ui_textbox("mbox", $mode == 1 ? $file : "", 40) ], + [ 2, $text{'setup_maildir'}, + &ui_textbox("maildir", $mode == 2 ? $file : "", 40) ], + [ 3, $text{'setup_mhdir'}, + &ui_textbox("mhdir", $mode == 3 ? $file : "", 40) ], + [ 5, $text{'setup_email'}, + &ui_textbox("email", $mode == 5 ? $email : "", 40) ] ])); +# Message about path if ($module_info{'usermin'}) { - print "$text{'setup_rel'}

\n"; + $msg = "$text{'setup_rel'}

\n"; } else { - print "$text{'setup_home'}

\n"; + $msg = "$text{'setup_home'}

\n"; } -print "$text{'setup_head'}

\n"; +$msg .= "$text{'setup_head'}

\n"; +print &ui_table_row(undef, $msg, 2); -print "

\n"; +print &ui_table_end(); +print &ui_form_end([ [ undef, $text{'procmail_ok'} ] ]); &ui_print_footer($redirect_url, $text{'index_return'}); diff --git a/spam/save_header.cgi b/spam/save_header.cgi index c87dacb8d..1d3410a03 100755 --- a/spam/save_header.cgi +++ b/spam/save_header.cgi @@ -3,9 +3,10 @@ # Save custom header and body tests require './spam-lib.pl'; +&ReadParse(); +&set_config_file_in(\%in); &can_use_check("header"); &error_setup($text{'header_err'}); -&ReadParse(); &execute_before("header"); &lock_spam_files(); $conf = &get_config(); @@ -40,7 +41,7 @@ if (!$module_info{'usermin'}) { &unlock_spam_files(); &execute_after("header"); &webmin_log("header"); -&redirect(""); +&redirect($redirect_url); # header_parser(rowname, value, ...) sub header_parser diff --git a/spam/save_procmail.cgi b/spam/save_procmail.cgi index 67fd2ad0f..480623c1d 100755 --- a/spam/save_procmail.cgi +++ b/spam/save_procmail.cgi @@ -13,8 +13,8 @@ if ($in{'to'} == 0) { $file = "/dev/null"; } elsif ($in{'to'} == 1) { - $in{'file'} =~ /^\S+$/ || &error($text{'setup_efile'}); - $file = $in{'file'}; + $in{'mbox'} =~ /^\S+$/ || &error($text{'setup_efile'}); + $file = $in{'mbox'}; } elsif ($in{'to'} == 2) { $in{'maildir'} =~ /^\S+$/ || &error($text{'setup_emaildir'});