webmin/edit_sendmail.cgi

   1 #!/usr/local/bin/perl
   2 # Show mail sending options
   3
   4 require './webmin-lib.pl';
   5 &ui_print_header(undef, $text{'sendmail_title'}, "");
   6 &foreign_require("mailboxes");
   7 %mconfig = &foreign_config("mailboxes");
   8
   9 print $text{'sendmail_desc'},"<p>\n";
  10
  11 print &ui_form_start("save_sendmail.cgi", "post");
  12 print &ui_table_start($text{'sendmail_header'}, undef, 2);
  13
  14 # Mail server type
  15 $ms = $mconfig{'mail_system'};
  16 print &ui_table_row($text{'sendmail_system'},
  17         $mailboxes::text{'index_system'.$ms});
  18
  19 # SMTP server
  20 $smtp = $mconfig{'send_mode'};
  21 $mode = $smtp eq "" ? 0 :
  22         $smtp eq "localhost" || $smtp eq "127.0.0.1" ? 1 : 2;
  23 print &ui_table_row($text{'sendmail_smtp'},
  24         &ui_radio("mode", $mode, [ [ 0, $text{'sendmail_smtp0'}."<br>" ],
  25                                    [ 1, $text{'sendmail_smtp1'}."<br>" ],
  26                                    [ 2, $text{'sendmail_smtp2'} ] ]).
  27         " ".&ui_textbox("smtp", $mode == 2 ? $smtp : "", 40));
  28
  29 # SMTP login and password
  30 $user = $mconfig{'smtp_user'};
  31 $pass = $mconfig{'smtp_pass'};
  32 print &ui_table_row($text{'sendmail_login'},
  33         &ui_radio("login_def", $user ? 0 : 1,
  34                   [ [ 1, $text{'sendmail_login1'}."<br>" ],
  35                     [ 0, $text{'sendmail_login0'} ] ])." ".
  36         &ui_textbox("login_user", $user, 20)." ".
  37         $text{'sendmail_pass'}." ".
  38         &ui_textbox("login_pass", $pass, 20));
  39
  40 # Authentication method
  41 $auth = $mconfig{'smtp_auth'};
  42 print &ui_table_row($text{'sendmail_auth'},
  43         &ui_select("auth", $auth,
  44                    [ [ undef, $text{'default'} ],
  45                      "Cram-MD5", "Digest-MD5", "Plain", "Login" ]));
  46
  47 # From address
  48 $from = $mconfig{'webmin_addr'};
  49 $fromdef = "webmin\@".&get_system_hostname();
  50 print &ui_table_row($text{'sendmail_from'},
  51         &ui_opt_textbox("from", $from, 40,
  52                         &text('sendmail_fromdef', $fromdef)."<br>",
  53                         $text{'sendmail_fromaddr'}));
  54
  55 print &ui_table_end();
  56 print &ui_form_end([ [ "", $text{'save'} ] ]);
  57
  58 &ui_print_footer("", $text{'index_return'});
  59