1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/local/bin/perl
# edit_newdom.cgi
# Display the current new domain email
require './virtual-server-lib.pl';
&master_admin() || &error($text{'newuser_ecannot'});
&ui_print_header(undef, $text{'newuser_title'}, "");
print "<form action=save_newuser.cgi method=post enctype=multipart/form-data>\n";
$file = $config{'user_template'};
$file = "$module_config_directory/user-template"
if ($file eq "none" || $file eq 'default');
print &text($config{'user_template'} eq "none" ?
'newuser_descdis' : 'newuser_desc', "<tt>$file</tt>"),"<p>\n";
$text{'sub_USER'} = $text{'sub_POP3'};
$text{'sub_HOME'} = $text{'sub_POP3HOME'};
&print_subs_table("MAILBOX", "USER", "DOM", "FTP", "HOME");
print &email_template_input($file,
$config{'newuser_subject'} || $text{'mail_usubject'},
$config{'newuser_cc'});
print "<br>\n";
print "<input type=submit value='$text{'save'}'>\n";
print "<input type=reset value='$text{'newweb_undo'}'>\n";
print "</form>\n";
&ui_print_footer("", $text{'index_return'});
|
