mitsudori
dce359389d
new file: @hi-ho/getlog.cgi new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/bbscgi.txt new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/getlogcgi.txt new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/locationcgi.txt new file: [1999-05-04 - present] REMIX/bbs.txt new file: [1999-05-04 - present] REMIX/getlog_m.txt new file: [1999-05-04 - present] REMIX/jcode.txt new file: [1999-05-04 - present] REMIX/location.txt new file: [1999-05-04 - present] REMIX/loveyou.dat new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/bbs.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/count0.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/delete.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/getlog.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/jcode.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/location.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/loveyou.dat new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/readme.html new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/update.html new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/bbs.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/getlog_m.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/jcode.pl new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/list.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/loveyou.dat new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/readme.txt new file: source.txt
85 lines
848 B
Plaintext
85 lines
848 B
Plaintext
#! /usr/local/bin/perl
|
||
|
||
#
|
||
|
||
#ろけーしょん
|
||
|
||
#1997.9.14製作
|
||
|
||
#すくりぷと ばい ゆいちゃっと
|
||
|
||
# Since 1996
|
||
|
||
#
|
||
|
||
|
||
|
||
&decode;
|
||
|
||
&html if($url);
|
||
|
||
&html2;
|
||
|
||
|
||
|
||
sub html{
|
||
|
||
|
||
|
||
print "Location: $url\n\n";
|
||
|
||
print "Pragma: no cache\n";
|
||
|
||
print "Expires: Thu, 16 Dec 1994 16:00:GMT\n\n";
|
||
|
||
exit;
|
||
|
||
}#html END
|
||
|
||
|
||
|
||
sub decode{ #一般的なデコード＆変数への代入
|
||
|
||
$buffer = $ENV{'QUERY_STRING'};
|
||
|
||
@pairs = split(/&/,$buffer);
|
||
|
||
foreach $pair (@pairs) {
|
||
|
||
($name, $value) = split(/=/, $pair);
|
||
|
||
$value =~ tr/+/ /;
|
||
|
||
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|
||
|
||
$value =~ s/\n//g; $value =~ s/\r//g;
|
||
|
||
$FORM{$name} = $value;
|
||
|
||
}
|
||
|
||
$url = $FORM{'url'};
|
||
|
||
}#decode END
|
||
|
||
|
||
|
||
sub html2{
|
||
|
||
print "Content-type: text/html\n\n";
|
||
|
||
print <<"_HTML_";
|
||
|
||
<HTML><HEAD>
|
||
|
||
<TITLE>フォームで移動。</TITLE>
|
||
|
||
</HEAD></HTML>
|
||
|
||
_HTML_
|
||
|
||
exit;
|
||
|
||
}#html2 END
|
||
|
||
__END__ |