ぜろちゃんねるアシストスクリプト

195 ：名無しさん＠ぜろちゃんねる：03/11/21 18:15 ID:???: ime.meのパクリ(?がいらない)

.htaccess
ErrorDocument 404 /jump.cgi

jump.cgi
#!/usr/local/bin/perl

$url = $ENV{'REQUEST_URI'};
$url =~ s|/||;

print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=http://$url>http://$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@ime.st";
print "<a href=http://ime.st>Powered by ime</a>021126\n";

index.html
適当に
196 ：名無しさん＠ぜろちゃんねる：03/11/21 18:37 ID:???: >>195
ime.meではなく、ime.nuですが。
そのスクリプトありがたく使わせていただきます
197 ：◆nt3lRJU9w2 ：03/11/21 19:04 ID:KSetniTo: 上のだと、「http://」を入れるとそれまで読み込んじゃうので
#!/usr/local/bin/perl

$url = $ENV{'REQUEST_URI'};
$url =~ s|/||;
if($url =~ /http:/ ) {
$url = "$url";
}else{
$url = "http://$url";
}
print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=$url>$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@ime.st";
print "<a href=http://ime.st>Powered by ime</a>021126\n";

にするとOk

209KB

掲示板に戻る全部前100 次100 最新50

READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス