mirror of
https://github.com/crystalidea/qt6windows7.git
synced 2024-11-27 14:38:28 +08:00
18 lines
389 B
Perl
18 lines
389 B
Perl
#!/usr/bin/perl
|
|
|
|
use CGI;
|
|
|
|
$queryString = $ENV{'QUERY_STRING'};
|
|
my $message;
|
|
if ($queryString eq "407-proxy-authorization-required") {
|
|
$status = 407;
|
|
} else {
|
|
$status = 401;
|
|
}
|
|
|
|
$q = new CGI;
|
|
print $q->header(-status=>$status,
|
|
-type=>"text/plain",
|
|
-WWW_Authenticate=>'WSSE realm="Test", profile="TestProfile"'),
|
|
"authorization required";
|