sendmail/save_trusts.cgi

   1 #!/usr/local/bin/perl
   2 # save_trusts.cgi
   3 # Save trusted users list
   4
   5 require './sendmail-lib.pl';
   6 &ReadParseMime();
   7 $access{'trusts'} || &error($text{'trusts_ecannot'});
   8 &error_setup($text{'trusts_err'});
   9 &lock_file($config{'sendmail_cf'});
  10 $conf = &get_sendmailcf();
  11 @tlist = split(/\s+/, $in{'tlist'});
  12 foreach $u (@tlist) {
  13         @uinfo = getpwnam($u);
  14         @uinfo || &error(&text('trusts_euser', $u));
  15         }
  16 @tlist = &unique(@tlist);
  17
  18 # Update trusted users
  19 &save_file_or_config($conf, "t", \@tlist, "T");
  20
  21 &unlock_file($config{'sendmail_cf'});
  22 &restart_sendmail();
  23 &webmin_log("trusts");
  24 &redirect("");
  25