majordomo/alias_setup.cgi

   1 #!/usr/local/bin/perl
   2 # alias_setup.cgi
   3 # Create the majordomo and majordomo-owner aliases
   4
   5 require './majordomo-lib.pl';
   6 &ReadParse();
   7 $aliases_files = &get_aliases_file();
   8 $program_dir = $config{'smrsh_program_dir'} ? $config{'smrsh_program_dir'}
   9                                             : $config{'program_dir'};
  10 $wrapper_path = $config{'wrapper_path'} ? $config{'wrapper_path'}
  11                                         : "$program_dir/wrapper";
  12 &error_setup($text{'alias_err'});
  13 if ($in{'owner_a'}) {
  14         $in{'owner'} =~ /^\S+$/ || &error($text{'alias_eowner'});
  15         $owner = { 'enabled' => 1,
  16                    'name' => $in{'owner_a'},
  17                    'values' => [ $in{'owner'} ] };
  18         &foreign_call($aliases_module, "create_alias", $owner, $aliases_files);
  19         }
  20 $email = { 'enabled' => 1,
  21            'name' => $in{'email_a'},
  22            'values' => [ "|$wrapper_path majordomo" ] };
  23 &foreign_call("sendmail", "create_alias", $email, $aliases_files);
  24 &redirect("");
  25