【l.cgi】

#!/usr/bin/perl
###################################################################
#▼リンクまとめ
###################################################################
require 'cgi-bin/lib/util.pl';
&parseInput();
###################################################################
#◆初期設定
$n = $in{'n'};
###################################################################
#◆URL設定
if($n eq 'b01'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm&Kubun=V5"; } #■ゲー着感想掲示板
if($n eq 'b02'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm&Kubun=K2"; } #■なんでも掲示板
if($n eq 'b03'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm&Kubun=K1"; } #■投稿者掲示板
if($n eq 'b04'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=game0002&P=0&Kubun=K1"; } #■議論用掲示板
if($n eq 'b05'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm03&Kubun=K3"; } #■音色掲示板
if($n eq 'b06'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=yuuryou&Kubun=K2"; } #■ＰＣ着メロ掲示板
if($n eq 'b07'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm4&Kubun=K4"; } #■荒らし報告板
if($n eq 'b08'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm&Kubun=K4"; } #■板管理人募集板
if($n eq 'b09'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm&Kubun=K3"; } #■ゲー着バグ報告板
if($n eq 'b10'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=game0001&Kubun=K1"; } #■ゲー音バグ報告板
if($n eq 'b11'){ $URL = "http://ip.tosp.co.jp/i.asp?i=saytrm09"; } #■リクエスト掲示板
if($n eq 'b12'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=yuuryou&Kubun=K1"; } #■着メロ話掲示板
if($n eq 'b13'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=saytrm04&Kubun=V5"; } #■チャット掲示板
if($n eq 'b14'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=game0001&P=0&Kubun=K3"; } #■ゲー音雑談掲示板
if($n eq 'b15'){ $URL = "http://ip.tosp.co.jp/Kj/Tospi200.asp?I=game0002&P=0&Kubun=K2"; } #■最新お知らせ掲示板
if($n eq 'c01'){ $URL = "http://game-melo.com/"; } #■ゲーム着メロ館
if($n eq 'c02'){ $URL = "http://game-melody.com/cgi-bin/toukou/pichar.cgi?n=index"; } #■投稿フォーム
if($n eq 'c03'){ $URL = "http://game-melo.com/main/pichar.cgi?n=keizi"; } #■掲示板注意書き
if($n eq 'c04'){ $URL = "http://game-melo.com/gamebbs/pichar.cgi?n=index"; } #■ゲームを語ろう！
if($n eq 'c05'){ $URL = "http://game-melo.com/gamebbs/pichar.cgi?n=kanrinin"; } #■板管理人規約
if($n eq 'c06'){ $URL = "http://game-melo.com/kouza/pichar.cgi?n=index"; } #■着メロ講座
if($n eq 'c07'){ $URL = "http://game-melo.com/hato/pichar.cgi?n=index"; } #■伝書バト紹介
if($n eq 'c08'){ $URL = "http://game-melo.com/main/pichar.cgi?n=jouren"; } #■常連ＨＰリンク
if($n eq 'c09'){ $URL = "http://game-melo.com/main/pichar.cgi?n=osusume"; } #■おすすめＨＰリンク
if($n eq 'c10'){ $URL = "http://game-melo.com/main/pichar.cgi?n=hazimeni"; } #■利用注意書き
if($n eq 'c11'){ $URL = "http://game-melo.com/main/pichar.cgi?n=kako"; } #■整理前の新作
if($n eq 'c12'){ $URL = "http://game-melo.com/main/pichar.cgi?n=cool"; } #■過去のおすすめ
if($n eq 'o01'){ $URL = "http://game-melody.com/"; } #■ゲーム音楽館
if($n eq 'o02'){ $URL = "http://game-melody.com/main/pichar.cgi?n=kako"; } #■整理前の新作
if($n eq 'o03'){ $URL = "http://game-melody.com/main/pichar.cgi?n=cool"; } #■過去のおすすめ
if($n eq 'o04'){ $URL = "http://game-melody.com/main/pichar.cgi?n=tani"; } #■たにっちルーム
if($n eq 'o05'){ $URL = "http://game-melody.com/gamebbs/"; } #■ゲームを語ろう
if($n eq 'o06'){ $URL = "http://game-melody.com/main/pichar.cgi?n=hazimeni"; } #■ご利用前に
if($n eq 'o07'){ $URL = "http://game-melody.com/keywiki.cgi?key=%a5%b2%a1%bc%c3%e5%a1%f5%a5%b2%a1%bc%b2%bb%2f%c3%e5%a5%e1%a5%ed%c2%d0%b1%fe%b5%a1%bc%ef"; } #■着メロ対応機種
if($n eq 'o08'){ $URL = "http://game-melody.com/main/pichar.cgi?n=kansou"; } #■感想の書き方とマナー
if($n eq 'o09'){ $URL = "http://game-melody.com/main/pichar.cgi?n=faq"; } #■よくある質問と答え
if($n eq 'o10'){ $URL = "http://game-melody.com/souko/entrance.html"; } #■ジャンル別倉庫入り口
if($n eq 'o11'){ $URL = "http://game-melody.com/main/pichar.cgi?n=keizi"; } #■掲示板注意書き
if($n eq 'o12'){ $URL = "http://game-melody.com/gamebbs/pichar.cgi?n=kanrinin"; } #■掲示板管理人について
if($n eq 'o13'){ $URL = "http://game-melody.com/log.cgi?n=logmmf&Case=mmf"; } #■感想掲示板(16和音)
if($n eq 'o14'){ $URL = "http://game-melody.com/log.cgi?n=logma3&Case=ma3"; } #■感想掲示板(40和音)
if($n eq 'o15'){ $URL = "http://game-melody.com/log.cgi?n=logself&Case=self"; } #■メッセージ掲示板
if($n eq 'o16'){ $URL = "http://game-melody.com/log.cgi?n=logpublic&Case=public"; } #■ファイル公開板(感想)
if($n eq 'o17'){ $URL = "http://game-melody.com/uploader.cgi"; } #■ゲー音アップローダ
if($n eq 'o21'){ $URL = "http://game-melody.com/log.cgi?n=logfilemmf&Case=public"; } #■ファイル公開板(着メロ)
if($n eq 'o22'){ $URL = "http://game-melody.com/log.cgi?n=logfilejpg&Case=public"; } #■ファイル公開板(画像)
if($n eq 'l01'){ $URL = "http://merumo.ne.jp/j/00007087.html"; } #■伝書バト詳細
#□ゲーム着メロ館/着メロダウンロード方法
if($n eq 'w01'){ $URL = "http://game-melody.com/keywiki.cgi?key=K00042"; }
#□ゲー着＆ゲー音/着メロ対応機種
if($n eq 'w02'){ $URL = "http://game-melody.com/keywiki.cgi?key=K00045"; }
print "Location: $URL\n\n";

---