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
	# can't use : for this because Firefox will not update the "password" for
36
	#  the website with the new value after the :
37
	$path = preg_replace('/([^.]*)~([^.]*)/', '$2$1', $path);
38
	
39
	# apply substitutions: x."_y@url , x.""_y@url -> x.x_y@url
40
	# these can be used when a table name is repeated in a column name
41
	# "" is supported because Postgres doubles " to escape them
42
	$path = preg_replace('/(([^.]+)\.[^."]*)"{1,2}/', '$1$2', $path);
43
	
44
	return $path;
45
}
46

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