webmin/edit_referers.cgi

   1 #!/usr/local/bin/perl
   2 # edit_referers.cgi
   3 # Display a list of trusted referers
   4
   5 require './webmin-lib.pl';
   6 &ui_print_header(undef, $text{'referers_title'}, "");
   7
   8 print $text{'referers_desc'},"<br>\n";
   9 print &ui_form_start("change_referers.cgi");
  10 print &ui_table_start(undef, undef, 2);
  11
  12 print &ui_table_row($text{'referers_referer'},
  13         &ui_radio("referer", $gconfig{'referer'},
  14                   [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
  15
  16 print &ui_table_row($text{'referers_list'},
  17         &ui_textarea("referers",
  18                 join("\n", split(/\s+/, $gconfig{'referers'})),
  19                 5, 60)."<br>\n".
  20         &ui_checkbox("referers_none", 1, $text{'referers_none'},
  21                      !$gconfig{'referers_none'}));
  22
  23 print &ui_table_end();
  24 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  25
  26 &ui_print_footer("", $text{'index_return'});
  27