#!/usr/bin/perl

# このスクリプトのあるディレクトリの絶対パス（入れなくても問題なし）
$dir = "";

# Perlget2ch ver 1.00
$ver = "1.00";

$stop=0; # 1にするとこのCGIを停止させます　0に戻すと稼動

# 板リスト
@ita = (
'aa2.2ch.net<>eq<>臨時地震',
'aa2.2ch.net<>eqplus<>臨時地震速報',
'book.2ch.net<>bizplus<>ビジネスnews+',
'news2.2ch.net<>mnewsplus<>芸スポ速報+',
'life.2ch.net<>sale<>バーゲンセール',
'book.2ch.net<>bizplus<>ビジネスnews+',
'news2.2ch.net<>newsplus<>ニュース速報+',
'news2.2ch.net<>mnewsplus<>芸スポ速報+',
'news2.2ch.net<>liveplus<>ニュース実況',
'news4.2ch.net<>news<>ニュース速報',
'tv3.2ch.net<>musicnews<>■芸\能音楽',
'comic.2ch.net<>comicnews<>□アニメ・漫画',
'pc.2ch.net<>pcnews<>□PCニュース',
'news3.2ch.net<>news7<>■私のニュース',
'news3.2ch.net<>news2<>ニュース議論',
'tmp.2ch.net<>asia<>ニュース極東',
'tmp.2ch.net<>bakanews<>バカニュース',
'society.2ch.net<>kokusai<>国際情勢',
'news2.2ch.net<>news4plus<>朝鮮半島情勢+',
'news3.2ch.net<>news5<>イスラム情勢',
'sports2.2ch.net<>iraq<>イラク情勢',
'news2.2ch.net<>news5plus<>イラク情勢+',
'ex.2ch.net<>entrance<>ラウンジ',
'sports2.2ch.net<>entrance2<>ﾗｳﾝｼﾞｸﾗｼｯｸ',
'etc.2ch.net<>qa<>初心者の質問',
'pc2.2ch.net<>pcqa<>PC初心者',
'aa2.2ch.net<>accuse<>2ch批判要望',
'qb.2ch.net<>operate<>2ch運用情報',
'that.2ch.net<>goods<>グッズリスト',
'qb.2ch.net<>sec2ch<>2ch規制情報',
'that.2ch.net<>gline<>ガイドライン',
'qb.2ch.net<>saku2ch<>削除要請',
'qb.2ch.net<>saku<>削除整理',
'qb.2ch.net<>sakud<>削除議論',
'that.2ch.net<>event<>イベント企画',
'ex.2ch.net<>vote<>投票所',
'etc.2ch.net<>intro<>自己紹介',
'human.2ch.net<>honobono<>ほのぼの',
'life.2ch.net<>yume<>夢・独り言',
'off.2ch.net<>offmatrix<>大規模OFF',
'off.2ch.net<>offreg<>定期OFF',
'off.2ch.net<>offevent<>突発OFF',
'aa2.2ch.net<>aasaloon<>AAサロン',
'aa.2ch.net<>mona<>モナー',
'aa.2ch.net<>aastory<>AA長編',
'aa.2ch.net<>kao<>顔文字',
'society.2ch.net<>mass<>マスコミ',
'tmp.2ch.net<>youth<>少年犯罪',
'that.2ch.net<>disaster<>自然災害',
'love.2ch.net<>gender<>男性論女性論',
'society.2ch.net<>giin<>議員・選挙',
'society.2ch.net<>police<>警察',
'society.2ch.net<>soc<>社会・世評',
'society.2ch.net<>atom<>環境・電力',
'society.2ch.net<>traf<>運輸・交通',
'etc.2ch.net<>recruit<>就職',
'school2.2ch.net<>job<>転職',
'society.2ch.net<>volunteer<>福祉介護奉仕',
'society.2ch.net<>mayor<>地方自治知事',
'society.2ch.net<>jsdf<>自衛隊',
'money.2ch.net<>nenga<>郵便・郵政',
'school.2ch.net<>lifework<>生涯学習',
'society.2ch.net<>regulate<>通信行政',
'money.2ch.net<>venture<>ベンチャー',
'money.2ch.net<>manage<>経営学',
'money.2ch.net<>estate<>賃貸不動産',
'society.2ch.net<>koumu<>公務員',
'school.2ch.net<>shikaku<>法律勉強相談',
'school2.2ch.net<>lic<>資格全般',
'money.2ch.net<>haken<>派遣業界',
'society.2ch.net<>hoken<>保険業界',
'money.2ch.net<>tax<>税金経理会計',
'society.2ch.net<>hosp<>病院・医者',
'society.2ch.net<>hikari<>光通信',
'that.2ch.net<>dtp<>DTP・印刷',
'school2.2ch.net<>part<>アルバイト',
'society.2ch.net<>koukoku<>広告業界',
'society.2ch.net<>agri<>農林水産業',
'money.2ch.net<>build<>建設住宅業界',
'tmp.2ch.net<>company<>ちくり裏事情',
'tmp.2ch.net<>ihou<>薬・違法',
'tmp.2ch.net<>ihan<>違反の潰し方',
'book.2ch.net<>bun<>創作文芸',
'book.2ch.net<>poem<>詩・ポエム',
'tv.2ch.net<>movie<>映画一般',
'tv3.2ch.net<>cinema<>映画作品・人',
'hobby4.2ch.net<>occult<>オカルト',
'tv3.2ch.net<>sfx<>特撮！',
'hobby2.2ch.net<>drama<>演劇・役者',
'hobby2.2ch.net<>siki<>宝塚・四季',
'hobby2.2ch.net<>fortune<>占い性格診断',
'hobby2.2ch.net<>uranai<>占術理論実践',
'travel.2ch.net<>kyoto<>神社・仏閣',
'academy2.2ch.net<>gallery<>美術鑑賞',
'hobby2.2ch.net<>rakugo<>伝統芸\能 ',
'science.2ch.net<>rikei<>理系全般',
'science.2ch.net<>sci<>物理',
'science.2ch.net<>life<>生物',
'science.2ch.net<>bake<>化学',
'science.2ch.net<>kikai<>機械・工学',
'that.2ch.net<>robot<>ロボット',
'science.2ch.net<>infosys<>情報システム',
'science.2ch.net<>sim<>シミュレート',
'science.2ch.net<>nougaku<>農学',
'science.2ch.net<>sky<>天文・気象',
'school.2ch.net<>doctor<>医歯薬看護',
'science.2ch.net<>math<>数学',
'science.2ch.net<>doboku<>土木・建築',
'science.2ch.net<>material<>材料物性',
'travel.2ch.net<>space<>航空・船舶',
'science.2ch.net<>future<>未来技術',
'science.2ch.net<>wild<>野生生物',
'science.2ch.net<>earth<>地球科学',
'academy2.2ch.net<>psycho<>心理学',
'academy2.2ch.net<>gengo<>言語学',
'academy2.2ch.net<>sociology<>社会学',
'book.2ch.net<>book<>文学',
'academy2.2ch.net<>history<>日本史',
'academy2.2ch.net<>whis<>世界史',
'academy2.2ch.net<>min<>民俗・神話学',
'academy2.2ch.net<>kobun<>古文・漢文',
'academy2.2ch.net<>english<>ENGLISH',
'ex.2ch.net<>korea<>ハングル',
'academy2.2ch.net<>china<>中国',
'academy2.2ch.net<>taiwan<>台湾',
'academy2.2ch.net<>geo<>地理・人類学',
'travel.2ch.net<>chiri<>地理お国自慢',
'academy2.2ch.net<>gogaku<>外国語',
'academy2.2ch.net<>art<>芸術デザイン',
'academy2.2ch.net<>philo<>哲学',
'school.2ch.net<>shihou<>司法試験',
'that.2ch.net<>kaden<>家電製品',
'hobby2.2ch.net<>sony<>\ソニー',
'etc.2ch.net<>phs<>携帯・ＰＨＳ',
'hobby.2ch.net<>dgoods<>デジタルモノ',
'hobby2.2ch.net<>camera<>カメラ',
'hobby2.2ch.net<>dcamera<>デジカメ',
'hobby.2ch.net<>av<>AV機器',
'hobby3.2ch.net<>pav<>ピュアAU',
'money.2ch.net<>seiji<>政治',
'money.2ch.net<>eco<>経済',
'money.2ch.net<>stock<>株式',
'money.2ch.net<>deal<>先物',
'society.2ch.net<>koumei<>創価・公明',
'money.2ch.net<>kyousan<>共産党',
'tmp.2ch.net<>sisou<>政治思想',
'tmp.2ch.net<>kova<>ゴーマニズム',
'money.2ch.net<>money<>金融',
'food3.2ch.net<>food<>食べ物',
'food3.2ch.net<>candy<>お菓子',
'food3.2ch.net<>juice<>\ソフトドリンク',
'food3.2ch.net<>cook<>料理',
'food3.2ch.net<>ramen<>ラーメン',
'food3.2ch.net<>gurume<>グルメ外食',
'food3.2ch.net<>jfoods<>Ｂ級グルメ',
'food3.2ch.net<>sake<>お酒・Bar',
'food3.2ch.net<>recipe<>レシピ',
'etc.2ch.net<>sousai<>冠婚葬祭',
'life2.2ch.net<>kankon<>生活全般',
'life2.2ch.net<>baby<>育児',
'life.2ch.net<>kagu<>家具',
'that.2ch.net<>diy<>DIY',
'etc.2ch.net<>shop<>通販・買い物',
'life.2ch.net<>model<>モデル',
'life2.2ch.net<>fashion<>ファッション',
'life2.2ch.net<>female<>化粧',
'life2.2ch.net<>diet<>美容',
'life.2ch.net<>seikei<>美容整形',
'life.2ch.net<>world<>一般海外生活',
'life.2ch.net<>northa<>北米海外生活',
'life2.2ch.net<>credit<>クレジット',
'bubble.2ch.net<>middle<>３０代以上',
'life2.2ch.net<>live<>家庭',
'life.2ch.net<>chance<>懸賞',
'life.2ch.net<>cigaret<>たばこ',
'life.2ch.net<>megane<>めがね',
'life.2ch.net<>yuusen<>マイライン',
'life.2ch.net<>conv<>コンビニ',
'life.2ch.net<>sale<>バーゲン',
'that.2ch.net<>stationery<>文房具',
'ex3.2ch.net<>shar<>新シャア専用',
'comic3.2ch.net<>x3<>旧シャア専用',
'etc.2ch.net<>denpa<>電波・お花畑',
'human2.2ch.net<>owarai<>お笑い小咄',
'comic2.2ch.net<>2chbook<>同人ノウハウ',
'human.2ch.net<>uwasa<>\噂話',
'etc.2ch.net<>charaneta<>キャラネタ',
'love.2ch.net<>ex<>カップル',
'human.2ch.net<>nohodame<>のほほんダメ',
'human.2ch.net<>dame<>無職・だめ',
'etc.2ch.net<>hikky<>ヒッキー',
'etc.2ch.net<>mental<>メンヘルサロン',
'human.2ch.net<>wom<>女性',
'human.2ch.net<>sfe<>独身女性限定',
'human2.2ch.net<>ms<>既婚女性',
'human2.2ch.net<>male<>独身男性',
'etc.2ch.net<>employee<>リーマン',
'academy2.2ch.net<>campus<>大学生活',
'comic2.2ch.net<>otaku<>おたく',
'bubble.2ch.net<>nendai<>年代別',
'game.2ch.net<>575<>しりとり',
'game.2ch.net<>tanka<>五七五・短歌',
'human.2ch.net<>4649<>アウトロー',
'live5.2ch.net<>endless<>実況ch',
'live5.2ch.net<>weekly<>番組ch',
'live6.2ch.net<>livenhk<>番組ch(NHK)',
'live6.2ch.net<>liventv<>番組ch(NTV)',
'live5.2ch.net<>livetbs<>番組ch(TBS)',
'live6.2ch.net<>livecx<>番組ch(フジ)',
'live5.2ch.net<>liveanb<>番組ch(朝日)',
'live5.2ch.net<>livetx<>番組ch(TX)',
'live5.2ch.net<>dome<>スポーツch',
'live7.2ch.net<>livebase<>野球ch',
'live3.2ch.net<>dancesite<>芸\能ch',
'live5.2ch.net<>festival<>お祭りch',
'news2.2ch.net<>liveplus<>ニュース実況',
'school.2ch.net<>edu<>教育・先生',
'school2.2ch.net<>kouri<>大学受験',
'school2.2ch.net<>ojyuken<>お受験',
'school.2ch.net<>senmon<>専門学校',
'school.2ch.net<>design<>美術系学校',
'school.2ch.net<>govexam<>公務員試験',
'hobby.2ch.net<>hobby<>趣味一般',
'hobby.2ch.net<>toy<>おもちゃ',
'hobby.2ch.net<>zoid<>ゾイド',
'hobby.2ch.net<>watch<>時計・小物',
'hobby.2ch.net<>doll<>お人形',
'hobby.2ch.net<>engei<>園芸',
'hobby.2ch.net<>dog<>犬猫大好き',
'hobby.2ch.net<>pet<>ペット大好き',
'tmp.2ch.net<>cat<>ペット苦手',
'hobby4.2ch.net<>bike<>バイク',
'hobby4.2ch.net<>car<>車',
'hobby4.2ch.net<>auto<>車種・メーカー',
'hobby3.2ch.net<>army<>軍事',
'hobby.2ch.net<>radio<>無線',
'hobby3.2ch.net<>train<>鉄道総合',
'hobby3.2ch.net<>rail<>鉄道路線・車両',
'hobby.2ch.net<>mokei<>模型・プラモ',
'hobby.2ch.net<>gun<>サバゲー',
'hobby.2ch.net<>warhis<>三国志・戦国',
'hobby.2ch.net<>dance<>ダンス',
'hobby.2ch.net<>bird<>野鳥観察',
'hobby.2ch.net<>collect<>コレクション',
'sports3.2ch.net<>sposaloon<>スポーツサロン',
'sports.2ch.net<>sports<>スポーツ',
'sports.2ch.net<>ski<>スキースノボ',
'sports.2ch.net<>msports<>海スポーツ',
'sports5.2ch.net<>base<>プロ野球',
'sports3.2ch.net<>mlb<>野球総合',
'sports.2ch.net<>kyozin<>アンチ球団',
'sports4.2ch.net<>soccer<>国内サッカー',
'sports2.2ch.net<>wc<>ワールドカップ',
'sports4.2ch.net<>football<>海外サッカー',
'sports.2ch.net<>volley<>バレーボール',
'sports3.2ch.net<>k1<>格闘技',
'sports.2ch.net<>fish<>釣り',
'sports.2ch.net<>bass<>バス釣り',
'sports.2ch.net<>bicycle<>自転車',
'sports3.2ch.net<>wres<>プロレス',
'sports.2ch.net<>f1<>F1',
'sports.2ch.net<>olympic<>オリンピック',
'sports.2ch.net<>budou<>武道・武芸',
'sports.2ch.net<>boxing<>ボクシング',
'sports.2ch.net<>sumou<>相撲',
'sports.2ch.net<>golf<>ゴルフ',
'sports.2ch.net<>xsports<>xsports',
'travel.2ch.net<>oversea<>海外旅行',
'travel.2ch.net<>21oversea<>危ない海外',
'travel.2ch.net<>travel<>国内旅行',
'travel.2ch.net<>park<>遊園地',
'travel.2ch.net<>out<>登山キャンプ',
'tv.2ch.net<>tvsaloon<>テレビサロン',
'sports2.2ch.net<>kouhaku<>年末年始番組',
'tv2.2ch.net<>tv<>テレビ番組',
'bubble.2ch.net<>natsutv<>懐かしテレビ',
'tv2.2ch.net<>tvd<>テレビドラマ',
'bubble.2ch.net<>natsudora<>懐かしドラマ',
'tv2.2ch.net<>kin<>時代劇',
'tv.2ch.net<>am<>ラジオ番組',
'tv.2ch.net<>tv2<>海外テレビ',
'tv.2ch.net<>cs<>ケーブルＴＶ',
'tv.2ch.net<>skyp<>スカパー',
'tv.2ch.net<>bs<>デジタル放送',
'tv.2ch.net<>nhk<>NHK',
'tv.2ch.net<>cm<>広告・ＣＭ',
'tv3.2ch.net<>geino<>芸\能有名人',
'tv.2ch.net<>celebrity<>海外芸\能人',
'tv3.2ch.net<>geinin<>お笑い芸人',
'tv2.2ch.net<>ana<>アナウンサー',
'tv.2ch.net<>ami<>あみ＆あゆ',
'tv.2ch.net<>apple<>椎名林檎',
'ex2.2ch.net<>ainotane<>モ娘（羊）',
'ex2.2ch.net<>morningcoffee<>モ娘（狼）',
'ex2.2ch.net<>zurui<>モ娘（鳩）',
'music2.2ch.net<>mendol<>男性アイドル',
'tv2.2ch.net<>jan<>ジャニーズ',
'tv2.2ch.net<>smap<>スマップ',
'tv2.2ch.net<>jr<>Ｊｒ',
'gamble.2ch.net<>mj<>麻雀・他',
'gamble.2ch.net<>pachi<>パチンコ',
'gamble.2ch.net<>slot<>パチスロ',
'gamble.2ch.net<>keiba<>競馬',
'gamble.2ch.net<>gamble<>ギャンブル',
'game4.2ch.net<>gsaloon<>ゲームサロン',
'game2.2ch.net<>game<>PCゲーム',
'game4.2ch.net<>famicom<>家庭用ゲーム',
'game2.2ch.net<>gamerpg<>家ゲーRPG',
'game2.2ch.net<>gameover<>家ゲー攻略',
'game.2ch.net<>retro<>レトロゲーム',
'game2.2ch.net<>ff<>FF・ドラクエ',
'game4.2ch.net<>poke<>携帯ゲーム',
'game2.2ch.net<>ghard<>ハード・業界',
'game4.2ch.net<>gal<>ギャルゲー',
'game4.2ch.net<>arc<>アーケード',
'game.2ch.net<>fly<>フライトシム',
'game.2ch.net<>cgame<>卓上ゲーム',
'game.2ch.net<>bgame<>囲碁・将棋',
'live4.2ch.net<>mmonews<>ネトゲ速報',
'live4.2ch.net<>mmoqa<>ネトゲ質問',
'live4.2ch.net<>ogame<>ネトゲ実況',
'live4.2ch.net<>ogame2<>ネトゲ実況2',
'live4.2ch.net<>ogame3<>ネトゲ実況3',
'game3.2ch.net<>mmosaloon<>ネトゲサロン',
'game3.2ch.net<>netgame<>ネットゲーム',
'game3.2ch.net<>mmo<>大規模MMO',
'game3.2ch.net<>mmominor<>小規模MMO',
'comic.2ch.net<>comicnews<>マンガnews',
'comic2.2ch.net<>asaloon<>アニメサロン',
'comic2.2ch.net<>anime<>アニメ',
'comic2.2ch.net<>ranime<>懐かしアニメ',
'comic.2ch.net<>cosp<>コスプレ',
'comic3.2ch.net<>voice<>声優',
'comic2.2ch.net<>doujin<>同人コミケ',
'sports2.2ch.net<>comiket<>特設コミケ',
'comic.2ch.net<>csaloon<>漫画サロン',
'comic.2ch.net<>comic<>漫画',
'comic.2ch.net<>rcomic<>懐かし漫画',
'comic3.2ch.net<>ymag<>少年漫画',
'comic3.2ch.net<>wcomic<>週刊少年漫画',
'comic.2ch.net<>gcomic<>少女漫画',
'comic.2ch.net<>sakura<>CCさくら',
'comic2.2ch.net<>iga<>漫画業界',
'comic3.2ch.net<>eva<>エヴァ',
'book.2ch.net<>magazin<>ライトノベル',
'book.2ch.net<>mystery<>ミステリー',
'book.2ch.net<>sf<>ＳＦ',
'book.2ch.net<>zassi<>雑誌',
'book.2ch.net<>books<>一般書籍',
'book.2ch.net<>ehon<>絵本',
'book.2ch.net<>juvenile<>児童書',
'2chplus.2ch.net<>supportdesk<>雑誌編集者',
'tv3.2ch.net<>musicnews<>芸文音楽速報',
'music.2ch.net<>msaloon<>音楽サロン',
'music2.2ch.net<>musicj<>邦楽',
'bubble.2ch.net<>natsumeloj<>懐メロ邦楽',
'tv3.2ch.net<>musice<>洋楽',
'music.2ch.net<>music<>音楽一般',
'bubble.2ch.net<>beatles<>ビートルズ',
'music2.2ch.net<>visual<>ヴィジュアル',
'music.2ch.net<>dj<>ＤＪ・クラブ',
'music.2ch.net<>hiphop<>HIPHOP',
'music.2ch.net<>techno<>TECHNO',
'music2.2ch.net<>compose<>楽器・作曲',
'music2.2ch.net<>classic<>ジャズ',
'music2.2ch.net<>classical<>クラシック',
'music2.2ch.net<>suisou<>吹奏楽',
'music2.2ch.net<>hrhm<>HR・HM',
'music.2ch.net<>asong<>アニ\ソン等',
'music.2ch.net<>wmusic<>ワールド音楽',
'music2.2ch.net<>punk<>パンク',
'music2.2ch.net<>legend<>伝説の',
'music2.2ch.net<>minor<>インディーズ',
'life2.2ch.net<>jinsei<>人生相談',
'etc.2ch.net<>psy<>心と宗教',
'etc.2ch.net<>body<>身体・健康',
'life.2ch.net<>atopi<>アトピー',
'life.2ch.net<>hage<>ハゲ・ズラ',
'love.2ch.net<>pure<>純情恋愛',
'love.2ch.net<>kageki<>過激な恋愛',
'love.2ch.net<>furin<>不倫・浮気',
'love.2ch.net<>gay<>同性愛',
'etc.2ch.net<>utu<>メンタルヘルス',
'etc.2ch.net<>break<>失恋',
'pc.2ch.net<>pcnews<>PCニュース',
'pc2.2ch.net<>win<>Windows',
'pc.2ch.net<>jobs<>旧・mac',
'pc.2ch.net<>mac<>新・mac',
'pc.2ch.net<>os<>OS',
'pc3.2ch.net<>pc<>パ\ソコン一般',
'pc3.2ch.net<>jisaku<>自作PC',
'pc3.2ch.net<>printer<>プリンタ',
'pc3.2ch.net<>hard<>ハードウェア',
'pc3.2ch.net<>cdr<>CD-R,DVD',
'pc2.2ch.net<>software<>\ソフトウェア',
'pc3.2ch.net<>mobile<>モバイル',
'pc2.2ch.net<>bsoft<>ビジネスsoft',
'pc.2ch.net<>unix<>UNIX',
'pc2.2ch.net<>db<>データベース',
'pc.2ch.net<>linux<>Linux',
'pc.2ch.net<>prog<>プログラマー',
'pc2.2ch.net<>tech<>プログラム',
'pc.2ch.net<>cg<>ＣＧ',
'pc3.2ch.net<>dtm<>DTM',
'pc.2ch.net<>avi<>DTV',
'pc4.2ch.net<>swf<>FLASH',
'pc2.2ch.net<>gamedev<>ゲ製作技術',
'bubble.2ch.net<>i4004<>昔のPC',
'tmp.2ch.net<>download<>Download',
'pc2.2ch.net<>hp<>Web制作',
'pc2.2ch.net<>hosting<>レンタル鯖',
'pc2.2ch.net<>mysv<>自宅サーバ',
'pc2.2ch.net<>php<>WebProg',
'pc.2ch.net<>hack<>初級ネット',
'pc.2ch.net<>sec<>セキュリティ',
'pc.2ch.net<>network<>通信技術',
'pc.2ch.net<>friend<>ポスペ・irc',
'pc4.2ch.net<>isp<>プロバイダー',
'pc.2ch.net<>nifty<>Nifty',
'pc.2ch.net<>mmag<>メルマガ',
'that.2ch.net<>nanmin<>難民',
'pc.2ch.net<>ad<>宣伝掲示板',
'pc2.2ch.net<>esite<>ネットサービス',
'ex.2ch.net<>net<>ネットwatch',
'pc4.2ch.net<>yahoo<>オークション',
'pc.2ch.net<>nntp<>nntp',
'that.2ch.net<>wall<>壁',
'that.2ch.net<>bobby<>おいらロビー',
'tmp.2ch.net<>lobby<>ロビー',
'oyster.2ch.net<>maru<>●',
'tmp.2ch.net<>mog2<>なんでもあり',
'bubble.2ch.net<>mukashi<>昔',
'tmp.2ch.net<>kitchen<>厨房！',
'tmp.2ch.net<>tubo<>最悪',
'tmp.2ch.net<>joke<>学歴',
'tmp.2ch.net<>rights<>人権問題',
'2chplus.2ch.net<>superfree<>スーパーフリー'
);

use Socket;
use FileHandle;

require 'jcode.pl';

# 環境変数取得
 if ($ENV{'REQUEST_METHOD'} eq "POST"){
 	read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
 } else {
 	$query = $ENV{'QUERY_STRING'};
 }

 @q = split(/=/,$query);
 
 $url = $q[1];
 $q[1] =~ s/%3A/:/g;
 $q[1] =~ s/%2F/\//g;
print "Content-type: text/html\n\n";

if(!$url){&form;}
else{&httpget;}

sub form{


	print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="content-type" content="text/html; charset=Shift_JIS">
<title>Perlget2ch</title>
</head>
<style type="text/css">
<!--
.urlform { width:27em; }
.submitbutton { width:10em; }
-->
</style>
<body>

<div id="title">
<h1>Perlget2ch</h1>
</div>

<div id="form">
<h2>入力フォーム</h2>
<p>2chのスレッドで最新50件\表\示の状態のURL\を\貼\り\付けてGETボタンを押してください。
そのスレッドのその時点でのレスが保存されます。</p>
<form method="post" action="perlget2ch.cgi">
<p><input type="text" name="url" value="http://" class="urlform"></p>
<p><input type="submit" value="GET" class="submitbutton"></p>
</form>
</div>

<p align="right" id="copyright"><small><a href="http://www.h3.dion.ne.jp/~m_sakura/">Perlget2ch ver $ver</a></small></p>

</body>
</html>
EOM

exit;

}

sub httpget{

if($stop){print "<html><body><p>Can't use now.</p></body></html>";exit;}

$url =~ s/test%2Fread.cgi%2F//;

$url =~ m/([0-9]{8,})/;
$no = $1;

$url =~ s/([0-9]){8,}//;

$url =~ s/(%2F){2}(l50)//;

$url =~ s/http%3A%2F%2F//;

$server = $url;
$server =~ s/%2F([a-z0-9]+)//;

$url =~ s/%2F/\//;

if(!$server){print "error code-1";exit;}

### dat 取得
   $addr = (gethostbyname("$server"))[4];
   $name = pack("S n a4 x8", 2, 80, $addr);
   socket(S, 2, 1, 0);
   connect(S, $name);
   binmode(S);
   select(S); $| = 1; select(stdout);
   print S "GET http://$url\/dat/$no.dat HTTP/1.0\r\n";
   print S "User-Agent:Monazilla/1.00 (Perlget2ch)\r\n\r\n";

	# ヘッダ部分を受け取る
	while (<S>){
	# 改行のみの行ならループを抜ける
	m/^\r\n$/ and last;
	}

	# ボディ部分を受け取り、表示
	while (<S>){
	$i++;
	$log[$i] = $_;
	}
	close(S);
	
if(!@log){print "error code-2";exit;}

### subject.txt 取得
   $addr = (gethostbyname("$server"))[4];
   $name = pack("S n a4 x8", 2, 80, $addr);
   socket(S, 2, 1, 0);
   connect(S, $name);
   binmode(S);
   select(S); $| = 1; select(stdout);
   print S "GET http://$url\/subject.txt HTTP/1.0\r\n";
   print S "User-Agent:Monazilla/1.00 (Perlget2ch)\r\n\r\n";

	# ヘッダ部分を受け取る
	while (<S>){
	# 改行のみの行ならループを抜ける
	m/^\r\n$/ and last;
	}

	# ボディ部分を受け取り、表示
	while (<S>){
	$i++;
	$sub[$i] = $_;
	}
	close(S);
	
if(!@sub){print "error code-3";exit;}

foreach (@sub) {
  ($datfile,$title) = split(/<>/);
if($datfile eq "$no.dat"){last;}
}
$title =~ s/(\([0-9]{1,4}\))//;
$res = $1;
$res =~ s/\(//;
$res =~ s/\)//;
$itamei = $url;
$itamei =~ s/$server\///;
foreach (@ita) {
  ($saba,$ita,$itaname) = split(/<>/);
if($saba eq "$server" and $itamei eq "$ita"){$hit=1;last;}
}
if(!$hit){print " error code-4";exit;}


$html = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
$html .= "<html lang=\"ja\">\n<head>\n";
#$html .= "<style type=\"text/css\">\n";
#$html .= "<!--\n";
#$html .= "h1{font-size:80%;color:red;}\n";
#$html .= "-->\n";
#$html .= "</style>\n";
$html .= "<meta http-equiv=\"content-type\" content=\"text/html; charset=Shift_JIS\">\n</head>\n";
$html .= "<body bgcolor=#efefef text=black link=blue alink=red vlink=#660099>\n<p>$res レス　板　<a href=\"http://$url/\">$itaname</a> 　元スレ <a href=\"$q[1]\">$q[1]</a></p><hr><p><font size=+1 color=red>$title</font></p><dl>";

$i="";
foreach (@log) {

  ($name,$mail,$dateid,$main) = split(/<>/);
 
if($name){
	$i++;
	$main =~ s/<a href=\"([.\/a-zA-z0-9]+)\" target=\"_blank\">&gt;&gt;([0-9]+)<\/a>/<a href=\"\#no$2\">\&gt;\&gt;$2<\/a>/g;
	$main =~ s/[^&gt;]&gt;([0-9]+)/<a href=\"\#no$1\">\&gt;$1<\/a>/g;
	$main =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\">$2<\/a>/g;
$html .= "<dt id=\"no$i\">$i ：";
if($mail){$html .= "<a href=\"mailto:$mail\"><b>$name</b></a>";}
else{$html .= "<font color=\"forestgreen\"><b>$name</b></font>";}
$html .= " ：$dateid</dt>\n";
$html .= "<dd>$main</dd><br><br>\n";
}

}

$html .= "\n</dl><p align=\"right\"><small><a href=\"http://www.h3.dion.ne.jp/~m_sakura/\">Perlget2ch ver $ver</a></small></p></body></html>";


 	open(OUT,">$no.html");
 	print OUT $html;
 	close(OUT);

print "<html><BODY><p>完了</p><P><a href=\"$dir$no.html\">$dir$no.html</a></p><p align=\"right\"><small><a href=\"http://www.h3.dion.ne.jp/~m_sakura/\">Perlget2ch ver $ver</a></small></p></body></html>";


exit;

}