【l.cgiの編集】
設定
改名
履歴
G-System
/ 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";
■G-ID
■添付ファイルアップロード
KeyWiki
Ver 0.6.9
(c) 2004
Ryota