| Server IP : 134.236.49.22 / Your IP : 216.73.216.114 Web Server : Apache/2.2.15 (Fedora) System : Linux km10.dyndns.org 2.6.31.5-127.fc12.i686.PAE #1 SMP Sat Nov 7 21:25:57 EST 2009 i686 User : apache ( 48) PHP Version : 5.3.3 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/libexec/webmin/majordomo/ |
Upload File : |
#!/usr/bin/perl
# alias_setup.cgi
# Create the majordomo and majordomo-owner aliases
require './majordomo-lib.pl';
&ReadParse();
$aliases_files = &get_aliases_file();
$program_dir = $config{'smrsh_program_dir'} ? $config{'smrsh_program_dir'}
: $config{'program_dir'};
$wrapper_path = $config{'wrapper_path'} ? $config{'wrapper_path'}
: "$program_dir/wrapper";
&error_setup($text{'alias_err'});
if ($in{'owner_a'}) {
$in{'owner'} =~ /^\S+$/ || &error($text{'alias_eowner'});
$owner = { 'enabled' => 1,
'name' => $in{'owner_a'},
'values' => [ $in{'owner'} ] };
&foreign_call($aliases_module, "create_alias", $owner, $aliases_files);
}
$email = { 'enabled' => 1,
'name' => $in{'email_a'},
'values' => [ "|$wrapper_path majordomo" ] };
&foreign_call("sendmail", "create_alias", $email, $aliases_files);
&redirect("");