■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
　　　　　　　　　　　　　　ＣＧＩ３分クッキング
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　  Vol:020
　　　　　　　　　　　　　　　　　　　　　　　　　発行日：  1999年9月14日
　　　　　　　　　　　　　　　　　　　　　　　総発行部数：　　　　 1226部
　　　　　　　　　　　　　　　　　　　　　　　　　（1999年9月13日現在）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆---------------------------------------------------------
●「いづつ屋」ホームページ開設！！
　Web新撰組ご用達のお肉屋さん「いづつ屋」が、この度
　インターネット通信販売を始めました。
　お味は、Web新撰組メンバー一同が保証いたします！！
　めちゃくちゃ美味しいお肉を、是非ご賞味下さいませ。
　http://www.tanba-izutsuya.com/
---------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆目次◆
●Ｗｅｂ新撰組ニュース
●今日の献立：出張ぜんまいはぎちゃんその３
●予告
●はぎちゃん今日のひとこと
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆---------------------------------------------------------
┏━━━━━━━━━━━━▼全商品　送料無料▼━━━━━━━━━━━━━┓
┃　ケータイ編集王2000・着メロ編集王・デジカメ編集王　他　　特価販売中！┃

click< http://a.clickincome.net/md/dk?mid=e39071378b7111c8dd274a7b87bac9e0 >
---------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●Ｗｅｂ新撰組ニュース
　　Ｗｅｂ新撰組メンバー執筆のCGI参考書。
　　「Perlで作る楽しいCGI」は、エーアイ出版のエーアイムックNo.237。
　　内容についての御質問は、新撰組ＭＬ(http://www.web-kyoto.com/ml/)へ。

●今日の献立：出張ぜんまいはぎちゃんその３

　　今回は、よそのチャットのデータを引っぱってくる部分を考えます。

　　その１でお話したように、ソケットを使ってメールを送るサブルーチンを改造
します。
　　このサブルーチンは、CGI100番勝負の「はぎちゃん郵便局」の中に入っていま
すのでそれを使います。(http://www.web-kyoto.com/100/chat/no32)
　　はぎちゃん郵便局のセットの中にhsmtp.plというファイルが入っていますので、
それをコピーしてwww.plという名前にして下さい。

　　www.plのsub smtpSend {　}をごっそり書き換えますので、その部分を削除して
下さい。かわりに、httpdGetという名前のサブルーチンを作ります。

-------------------
sub httpSend {
  local ($url, $wwwhost, $buf_flag, $timeout_value) = @_;

  #タイムアウトの設定#
  $timeout_value=180 if(!$timeout_value);
  $SIG{'ALRM'}="time_to_exit";
  alarm($timeout_value);

  #HTTPという名前のファイルハンドルでソケットを開く#
  &openSocket (HTTP, $wwwhost, 80, '') || return(0);

  #アクセスする#
  print HTTP "GET $url \n";
  if($buf_flag){
    @buf = <HTTP>;
  }
  print HTTP "\n";

  #アラームをデフォルトに戻す#
  $SIG{'ALRM'}="DEFAULT";

  close (HTTP);

  #正常終了時1を返す#
  return(1);
}
-------------------

　　簡単に解説します。

　　$url, $wwwhost, $buf_flag, $timeout_valueは、このサブルーチ
ンに与える変数です。

　　$url　　：アクセスするページのURL（チャットCGI）
　　$wwwhost：アクセスするhttpdホスト名
　　$buf_flag：アクセス先から送られたデータを変数に入れるかどうかのフラグ
　　　　　　　　チャットへの書き込みの場合は、得られたデータは棄てます。
　　$timeout_value：タイムアウトまでの秒数を設定。時間がかかる場合は、CGI
　　　　　　　　　　を終了させます。
　　　　　　　　　　次の３行でタイムアウトの設定をしています。

&openSocket (HTTP, $wwwhost, 80, '') || return(0);
　　は、hsmtp.plの&openSocket (SMTP, $mailhost, smtp, $localhost) || return(0);
と同じです。openSocketサブルーチンは変更していません。$localhostは設定しなく
ても動く筈です。（又は、''の部分に、このCGIを設置するサーバーのホスト名を
入れて下さい）
　　エラー時は0を返してこのサブルーチンを終了します。

print HTTP "GET $url \n";
　　$urlにアクセスします。

if($buf_flag){
  @buf = <HTTP>;
}
　　もし$buf_flagが設定されていれば、@buf変数に、GET $urlで返ってきたデータを
代入します（いわゆるページのソースが入ります）。
　　チャットに書き込む場合は@bufにソースを保存しません。

print HTTP "\n";
　　httpサーバーとの通信は、GET $urlの後、データが送られてきた時点で切れる筈で
すが、念のため空行を送って切ります。

$SIG{'ALRM'}="DEFAULT";
　　タイムアウトの設定でアラームを$timeout_valueサブルーチンに設定したので、それ
を元に戻します。

close (HTTP);
　　HTTPをクローズします。

return(1);
　　1を返して終了。


　　・・・・・・・・・・・・・・・・・・・・・続く

◆予告◆--------------------------------------------------------
●次回は今回のサブルーチンを使って、チャットの書き込みの中から
　　　　最新の書き込みを切り出します。
--------------------------------------------------------◆予告◆
◆PR◆---------------------------------------------------------
☆学校の授業や家庭学習、自由研究や調べ学習、エンターテインメントもお任せ。
☆子供のための新型検索エンジン『JERFI（じぇるふぃ〜）』お試し下さい。

click< http://a.clickincome.net/md/dk?mid=75f2587e87ffc2d024315d65433e0425 >

やりたいって言ったら、今すぐやりたいんだい！！
いや〜んえっちぃ〜〜、、、じゃないよ、ゲームのお話し。
欲しいソフトが発売日に手元に届きます。こりゃええわい。
てなわけで、こちらにどうぞ。
http://takafumi.grabit.net/powersoft/
---------------------------------------------------------◆PR◆
このメールマガジンは、
Subject部が、CGI3分クッキング【Vol.番号】は、まぐまぐ様にて、
（  http://www.mag2.com/  ）
Subject部が、CGI3分クッキング Vol.【番号】は、Macky様にて、
（  http://macky.nifty.ne.jp/  ）
Subject部が、CGI3分クッキング番号 は、Pubzine様にて、
配布致しています。

メールマガジンの解除について
まぐまぐ様の解除は、
http://www.web-kyoto.com/dp/3min/
に、削除及び登録フォームを用意致しております。
Macky様の解除は、
http://macky.nifty.ne.jp/
を参考して下さい。
Pubzine様の解除は、
http://www.pubzine.com/srchid.asp?keyword=1379
に、削除及び登録フォームを用意致しております。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆はぎちゃん今日のひとこと◆------------------------------------------

　●立ち読みしないで買ってくれよぅ・・・

------------------------------------------◆はぎちゃん今日のひとこと◆
◆お願い◆
このマガジンについてのお問い合わせは、WEB新撰組メーリングリストで、
お願い致します。 
参加方法は、
http://www.web-kyoto.com/ml/
を参考にして下さい。 
◆担当者◆
本文文責　　　　：Web新撰組プログラマー萩原逸郎
Ｗｅｂ新撰組　　：http://www.web-kyoto.com/
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■