spam/edit_priv.cgi

   1 #!/usr/local/bin/perl
   2 # edit_priv.cgi
   3 # Display various privileged settings
   4
   5 require './spam-lib.pl';
   6 &ReadParse();
   7 &set_config_file_in(\%in);
   8 &can_use_check("priv");
   9 &ui_print_header($header_subtext, $text{'priv_title'}, "");
  10 $conf = &get_config();
  11
  12 print "$text{'priv_desc'}<p>\n";
  13 &start_form("save_priv.cgi", $text{'priv_header'});
  14
  15 # Whitelist file path
  16 $path = &find("auto_whitelist_path", $conf);
  17 print &ui_table_row($text{'priv_white'},
  18         &opt_field("auto_whitelist_path", $path, 40,
  19                    "~/.spamassassin/auto-whitelist"));
  20
  21 # Whitelist file mode
  22 $mode = &find("auto_whitelist_file_mode", $conf);
  23 print &ui_table_row($text{'priv_mode'},
  24         &opt_field("auto_whitelist_file_mode", $mode, 4, "0700"));
  25
  26 # DCC options
  27 $dcc = &find("dcc_options", $conf);
  28 print &ui_table_row($text{'priv_dcc'},
  29         &opt_field("dcc_options", $dcc, 10, "-R"));
  30
  31 # Timing log file
  32 $log = &find("timelog_path", $conf);
  33 print &ui_table_row($text{'priv_log'},
  34         &opt_field("timelog_path", $log, 40, "NULL"));
  35
  36 # Razor config file
  37 $razor = &find("razor_config", $conf);
  38 print &ui_table_row($text{'priv_razor'},
  39         &opt_field("razor_config", $razor, 40, "~/razor.conf"));
  40
  41 &end_form(undef, $text{'save'});
  42 &ui_print_footer($redirect_url, $text{'index_return'});
  43
  44