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	#!/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	}