canvas/remote/proxy.php

<?php
if (!isset($_SERVER['PHP_AUTH_USER'])) {
    header("WWW-Authenticate: Basic realm=\"Remote Canvas / Hatena Haiku\"");
    header("HTTP/1.0 401 Unauthorized");
    echo "401\n";
    exit;
} else {
    foreach (array(
      "SERVER_NAME", "SCRIPT_NAME", "QUERY_STRING",
      "REQUEST_METHOD",
      "HTTP_REFERER", "HTTP_USER_AGENT", "HTTP_X_DATA_URL",
      "PHP_AUTH_USER", "PHP_AUTH_PW",
    ) as $n) {
      putenv($n . '=' . $_SERVER[$n]);
    }
#    $boundary = md5(rand() . rand());
#    putenv('BOUNDARY=' . $boundary);
#    header("Content-Type: multipart/form-data; boundary=" . $boundary);
    putenv('VIA_PHP_PROXY=1');
    $result = exec ('perl server.cgi');
    if ($result == 401) {
      header("WWW-Authenticate: Basic realm=\"Remote Canvas / Hatena Haiku\"");
      header("HTTP/1.0 401 Unauthorized");
    }
}
?>
1	wakaba	1.1	<?php
2			if (!isset($_SERVER['PHP_AUTH_USER'])) {
3			header("WWW-Authenticate: Basic realm=\"Remote Canvas / Hatena Haiku\"");
4			header("HTTP/1.0 401 Unauthorized");
5			echo "401\n";
6			exit;
7			} else {
8			foreach (array(
9			"SERVER_NAME", "SCRIPT_NAME", "QUERY_STRING",
10			"REQUEST_METHOD",
11			"HTTP_REFERER", "HTTP_USER_AGENT", "HTTP_X_DATA_URL",
12			"PHP_AUTH_USER", "PHP_AUTH_PW",
13			) as $n) {
14			putenv($n . '=' . $_SERVER[$n]);
15			}
16			# $boundary = md5(rand() . rand());
17			# putenv('BOUNDARY=' . $boundary);
18			# header("Content-Type: multipart/form-data; boundary=" . $boundary);
19			putenv('VIA_PHP_PROXY=1');
20			$result = exec ('perl server.cgi');
21			if ($result == 401) {
22			header("WWW-Authenticate: Basic realm=\"Remote Canvas / Hatena Haiku\"");
23			header("HTTP/1.0 401 Unauthorized");
24			}
25			}
26			?>