Project

General

Profile

1
<?php
2
function login__from_env()
3
{
4
	return $_SERVER["PHP_AUTH_USER"]
5
		.($_SERVER["PHP_AUTH_PW"] !== "" ? ":".$_SERVER["PHP_AUTH_PW"] : "");
6
}
7

    
8
function user2path($user) # multiple @ and nested . OK: a@b.c@url -> url?b.c.a
9
{
10
	$path = $user;
11
	
12
	# remove padding used to visually separate elements: x__@y__@url -> x@y@url
13
	# also remove leading __ that indicates internal field: __x@url -> x@url
14
	# this leaves embedded __ (eg. x__y) untouched
15
	$path = preg_replace('/\b__|__\b/', '', $path);
16
	
17
	# remove insertion comments: [c]x[d]@url -> x@url
18
	# use [] because in writing, [] denotes insertion
19
	# insertion indicates that the semantic meaning of the [] portion also
20
	#  applies, even though it's not included in the linked term name
21
	$path = preg_replace('/\[.*?\]/', '', $path);
22
	
23
	# remove deletion comments: (-c_-)x@url -> c_x@url
24
	# use () because in editing, () denotes something to remove
25
	# the -...- indicate strikethrough (deletion)
26
	# deletion indicates that the semantic meaning of the () portion does not
27
	#  apply, even though it's included in the linked term name
28
	$path = preg_replace('/\(-([^)]*?)-\)/', '$1', $path);
29
	
30
	# translate reverse @-paths into forward .-paths
31
	$path = implode(".", array_reverse(explode("@", $path)));
32
	
33
	# undo transposes: _y~x@url -> x_y@url , Y~x@url -> xY@url
34
	# these can be used to put the category in a column name first
35
	# the _ should go first so that _y~ lines up vertically with [y_] paths
36
	# can't use : for this because Firefox will not update the "password" for
37
	#  the website with the new value after the :
38
	$path = preg_replace('/([^.]*)~([^.]*)/', '$2$1', $path);
39
	
40
	return $path;
41
}
42

    
43
if (!isset($_SERVER["PHP_AUTH_USER"])) # browser first omits Authorization
44
{
45
	header('WWW-Authenticate: Basic realm="'
46
.'please leave username/password blank or as filled in. '
47
.'**IMPORTANT**: to visit the homepage of this site, you should always '
48
.'append \".\": \"'.$_SERVER["HTTP_HOST"].'.\" "');
49
}
50
else
51
{
52
	$dest = preg_replace('!\b/!', "./", $_SERVER["SCRIPT_URI"])."?";
53
		# append trailing . to host to prevent infinite redirect loop
54
	if ($_SERVER["PHP_AUTH_USER"] !== "") # prepend to query string
55
		$dest .= "."/*force dotpath*/.user2path(login__from_env());
56
	$dest .= $_SERVER["QUERY_STRING"];
57
	
58
	header("Location: ".$dest);
59
}
60
?>
(32-32/34)