cgi/var-auth/auth.cgi

#!/usr/bin/perl

if ($ENV{AUTH_TYPE} || $ENV{HTTP_AUTHORIZATION}) {
  print "Content-Type: text/plain; charset=us-ascii

AUTH_TYPE : $ENV{AUTH_TYPE}
HTTP_AUTHORIZATION : $ENV{HTTP_AUTHORIZATION}
REMOTE_USER : $ENV{REMOTE_USER}
";
} else {
  print qq(Status: 401 Unauthorized
Content-Type: text/plain; charset=us-ascii
WWW-Authenticate: basic realm="foo"

AUTH_TYPE : $ENV{AUTH_TYPE}
HTTP_AUTHORIZATION : $ENV{HTTP_AUTHORIZATION}
REMOTE_USER : $ENV{REMOTE_USER}
401);
}
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			}