【荒らしお断り】 BBQを組み込んでる人【システム】 [sc](★0)
-
- 250
- 2007/03/26(月) 14:28:26
-
試してないけどこんな感じ？
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
if(join('.', unpack('C*', gethostbyname(join('.', reverse(split(/\./, $ENV{'REMOTE_ADDR'}))) . '.niku.2ch.net'))) eq '127.0.0.2')
{print "<p>Proxy</p>";}
else{
print <<"_HTML";
<head>
<title>test</title>
</head>
<body>
<p>test</p>
</body>
</html>
_HTML
このページを共有する
おすすめワード