version 1.84, 2004/07/03 20:45:23
|
version 1.85, 2004/07/19 17:58:10
|
Line 174 sub print_user_modification_page {
|
Line 174 sub print_user_modification_page {
|
my $ccuname=$ENV{'form.ccuname'}; |
my $ccuname=$ENV{'form.ccuname'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
|
|
$ccuname=~s/\W//gs; |
$ccuname=~s/[\W|_]//gs; |
$ccdomain=~s/\W//gs; |
$ccdomain=~s/[\W|_]//gs; |
|
|
unless (($ccuname) && ($ccdomain)) { |
unless (($ccuname) && ($ccdomain)) { |
&print_username_entry_form($r); |
&print_username_entry_form($r); |