/[suikacvs]/www/test/cgi/var-auth/auth.cgi
Suika

Contents of /www/test/cgi/var-auth/auth.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Sun Jan 22 02:31:05 2012 UTC (13 years, 5 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Error occurred while calculating annotation data.
Current

1 #!/usr/bin/perl
2
3 if ($ENV{AUTH_TYPE} || $ENV{HTTP_AUTHORIZATION}) {
4 print "Content-Type: text/plain; charset=us-ascii
5
6 AUTH_TYPE : $ENV{AUTH_TYPE}
7 HTTP_AUTHORIZATION : $ENV{HTTP_AUTHORIZATION}
8 REMOTE_USER : $ENV{REMOTE_USER}
9 ";
10 } else {
11 print qq(Status: 401 Unauthorized
12 Content-Type: text/plain; charset=us-ascii
13 WWW-Authenticate: basic realm="foo"
14
15 AUTH_TYPE : $ENV{AUTH_TYPE}
16 HTTP_AUTHORIZATION : $ENV{HTTP_AUTHORIZATION}
17 REMOTE_USER : $ENV{REMOTE_USER}
18 401);
19 }

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24