filter/edit_forward.cgi

   1 #!/usr/local/bin/perl
   2 # Show a page for just adding, editing or removing forwarding addresses
   3
   4 require './filter-lib.pl';
   5 &ReadParse();
   6
   7 &ui_print_header(undef, $text{'forward_title'}, "");
   8
   9 # Get the forwarding filter, if any
  10 @filters = &list_filters();
  11 ($filter) = grep { $_->{'actiontype'} eq '!' && $_->{'nocond'} } @filters;
  12 $dis = !$filter;
  13
  14 print &ui_form_start("save_forward.cgi", "post");
  15 print &ui_table_start($text{'forward_header'}, "width=100%", 2);
  16
  17 # Forwarding enabled?
  18 @names = ( "forward", "continue" );
  19 $dis1 = &js_disable_inputs(\@names, [ ]);
  20 $dis2 = &js_disable_inputs([ ], \@names);
  21 print &ui_table_row($text{'forward_enabled'},
  22         &ui_radio("enabled", $filter ? 1 : 0,
  23                   [ [ 1, $text{'yes'}, "onClick='$dis2'" ],
  24                     [ 0, $text{'no'}, "onClick='$dis1'" ] ]));
  25
  26 # Destination address(s)
  27 print &ui_table_row($text{'forward_to'},
  28         &ui_textarea("forward", join("\n", split(/,/, $filter->{'action'})),
  29                      5, 70, undef, $dis));
  30
  31 # Continue processing?
  32 print &ui_table_row($text{'forward_cont'},
  33         &ui_yesno_radio("continue", $filter->{'continue'}, undef, undef,
  34                         $dis));
  35
  36 print &ui_table_end();
  37 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  38
  39 &ui_print_footer("", $text{'index_return'});