/[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 - (hide annotations) (download)
Sun Jan 22 02:31:05 2012 UTC (13 years, 5 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Current

1 wakaba 1.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