version 1.93, 2017/10/13 20:37:35
|
version 1.94, 2019/06/16 05:33:45
|
Line 67 sub handler {
|
Line 67 sub handler {
|
} |
} |
} |
} |
my $origurl = $env{'form.origurl'}; |
my $origurl = $env{'form.origurl'}; |
$origurl =~ s{^https?://}{}; |
if ($origurl =~ m{^https?://[^/]+(.*)$}) { |
|
$origurl =~ $1; |
|
} |
$origurl =~ s/(`)//g; |
$origurl =~ s/(`)//g; |
$origurl =~ s/\$/\(\$\)/g; |
$origurl =~ s/\$/\(\$\)/g; |
my $command = $env{'form.command'}; |
my $command = $env{'form.command'}; |
Line 887 $lt{'date'}: $reporttime
|
Line 889 $lt{'date'}: $reporttime
|
$env{'form.'.$field} =~ s/\s+$//; |
$env{'form.'.$field} =~ s/\s+$//; |
} |
} |
if ($env{'form.uname'} =~ /^$match_username$/) { |
if ($env{'form.uname'} =~ /^$match_username$/) { |
$requdom = $env{'form.udom'}; |
$requname = $env{'form.uname'}; |
} |
} |
if ($env{'form.udom'} =~ /^$match_domain$/) { |
if ($env{'form.udom'} =~ /^$match_domain$/) { |
$requdom = $env{'form.udom'}; |
$requdom = $env{'form.udom'}; |