qmailadmin/save_locals.cgi.bak

   1 #!/usr/local/bin/perl
   2 # save_locals.cgi
   3 # Save the list of local domains
   4
   5 require './qmail-lib.pl';
   6 &ReadParseMime();
   7
   8 if ($in{'locals_def'}) {
   9         &save_control_file("locals", undef);
  10         }
  11 else {
  12         $in{'locals'} =~ s/\r//g;
  13         @dlist = split(/\s+/, $in{'locals'});
  14         &save_control_file("locals", \@dlist);
  15         }
  16 &webmin_log("locals", undef, undef, \%in);
  17 &redirect("");
  18