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	<?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	?>