■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
ＣＧＩ３分クッキング
Vol:022
発行日： 1999年9月21日
総発行部数： 1281部
（1999年9月20日現在）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆---------------------------------------------------------
●「いづつ屋」ホームページ開設！！
Web新撰組ご用達のお肉屋さん「いづつ屋」が、この度
インターネット通信販売を始めました。
お味は、Web新撰組メンバー一同が保証いたします！！
めちゃくちゃ美味しいお肉を、是非ご賞味下さいませ。
http://www.tanba-izutsuya.com/
---------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆目次◆
●Ｗｅｂ新撰組ニュース
●今日の献立：出張ぜんまいはぎちゃんその５
●予告
●はぎちゃん今日のひとこと
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
★★★ 海外旅行にいきたい！！i-book！！が欲しい！！ ★★★
先立つものは、ここにあります。ウェブキャッシング、24時間申し込み可能。
click< http://a.clickincome.net/md/dk?mid=518ffc25ae229975c021b529a82ef385 >
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●Ｗｅｂ新撰組ニュース
メールを使った新しい遊びを追及する「メールで遊ぼう！」新装開店です。
http://www.web-kyoto.com/vmail/
いますぐ会員登録だ！
Ｗｅｂ新撰組メンバー執筆のCGI参考書。
「Perlで作る楽しいCGI」は、エーアイ出版のエーアイムックNo.237。
内容についての御質問は、新撰組ＭＬ(http://www.web-kyoto.com/ml/)へ。
●今日の献立：出張ぜんまいはぎちゃんその５
今回も出張ぜんまいはぎちゃんの続きです。
前回作った部分を書いておきます。
よそのチャットのURLを仮に
http://www.karikari.ne.jp/~karikari/cgi-bin/karikarichat.cgi
サーバーのアドレスを
www.kh.rim.or.jp
とします。
また、ぜんまいはぎちゃんは、CGI100番勝負No.38
http://www.web-kyoto.com/100/chat/no38/
に付属のzhagi3.plを使います。
-------------------------------------------------------------
1:#!/usr/local/bin/perl
2:
3:require 'jcode.pl';
4:require './www.pl';
5:require './zhagi3.pl';
6:
7:$chaturl="http://www.karikari.ne.jp/~karikari/cgi-bin/karikarichat.cgi";
8:$chathost="www.karikari.ne.jp";
9
10:$hhttp_status=0;
11:
12:$hhttp_status=&httpSend($chaturl,$chathost,1,90);
13:&error(500) if($hhttp_status == 0);
14:$mess=$buf[15];
15:&jcode'convert(*mess,'euc');
16:
17:$mess = (split(/
/,$mess))[0];
18:($name,$message)=split(/<\/b>:/,$mess);
19:$name = (splir(//,$name))[1];
-------------------------------------------------------------
以下、続きです。
-------------------------------------------------------------
20:$Dict1='dict1'; #辞書１
21:$Dict2='dict2'; #辞書２
22:$hword=&zhagi'answer($name,$message,"$Dict1","$Dict2");
23:
24:if($hword){
25: $chaturl2="$chaturl?uname=ぜんまいはぎちゃん&mess=$hword";
26: $hhttp_status=&httpSend($chaturl2,$chathost,0,90);
27: &error(600) if($hhttp_status==0);
28:}else{
29: &error(600)
30:}
31:print "Location: $chaturl\n\n";
32:
33:exit;
-------------------------------------------------------------
21〜22行目でぜんまいはぎちゃんサブルーチンからぜんまいはぎちゃんの言葉
を得ています。得られた言葉は、変数$hwordに代入されます。
もし、答えが返ってきたら、書き込み先のチャットのURLに
?uname=ぜんまいはぎちゃん&mess=$hword
を連結します。?は、GETでCGIにデータを渡すときにURLの後ろにつける区切り
記号です。その後に、name=value&name=value&....の形でデータを繋げて行きます。
unameやmess等は、書き込み先のチャットのソースを見て、フォームの名前が
何になっているかを調べます。この場合だと、書き込みする人の名前がuname、書き
込みがmessという名前になっています。
次に、これをまたhttpSendサブルーチンに渡します。
$hhttp_status=&httpSend($chaturl2,$chathost,0,90);
最初に使ったhttpSendと違って、今回は返ってくるデータを変数@bufに入れる
必要がありませんので、httpSendに渡す３つめのオプションは0になっています。
最後に、
print "Location: $chaturl\n\n";
で、書き込み先のチャットをブラウザに表示させます。
うまく動かなかった場合のエラーサブルーチンも作っておきます。
-------------------------------------------------------------
34:sub error {
35: local($err_flag)=@_;
36:
37: print "Content-type: text/html\n\n";
38: print "めんどくさいので話しませんでした
戻る\n";
39: print "$err_flag\n";
40: exit;
41:}
-------------------------------------------------------------
・設置方法
1)先ず、Ｗｅｂ新撰組(http://www.web-kyoto.com/)CGI100番勝負No.38の人工
無能チャットを設置します。
2)出張ぜんまいはぎちゃんCGIのうち、
#!/usr/local/bin/perl
$chaturl、
$chathost
$Dict1
$Dict2
を、設置する環境にあわせて変更します。
3)1の人工無能がうまく動いたら、今回のCGIを1と同じディレクトリに転送しま
す。
パーミッションは、
出張ぜんまいはぎちゃんCGI 705
www.pl 604
です。
ブラウザを使って、「出張ぜんまいはぎちゃんCGI」にアクセスしてみて下さい。
うまく動きましたか？
尚、今回のシリーズ１回目にお話しした通り、このCGIはとてもはた迷惑なもの
です。必ずチャットのオーナーの諒解を得てから動かして下さい。
また、キャッシュ等を使っているサーバーの場合、動かない場合があります。
とうとうやってしもた、、、と思いつつ・・・続く
◆予告◆--------------------------------------------------------
●次回は、前回紹介した「おこさまさん」のチャットのように、「ぜん
まいはぎちゃんを呼ぶ」ボタンを付ける方法です。
（ま、まだ続くのか、このシリーズ・・・）
--------------------------------------------------------◆予告◆
◆PR◆---------------------------------------------------------
■■ ニューシニアのための元気マガジン【毎日が発見】好評発売中！■■
■■ お申し込みはお早めに！年間購読料4900円（年12冊） ■■
click< http://a.clickincome.net/md/dk?mid=c9cf0b6ab305406f709e70cecd1607a7 >
やりたいって言ったら、今すぐやりたいんだい！！
いや〜んえっちぃ〜〜、、、じゃないよ、ゲームのお話し。
欲しいソフトが発売日に手元に届きます。こりゃええわい。
てなわけで、こちらにどうぞ。
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
に、削除及び登録フォームを用意致しております。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆はぎちゃん今日のひとこと◆------------------------------------------
●「メールで遊ぼう！」（http://www.web-kyoto.com/vmail/）はなかなか
の出来だわい。。。と一人ほくそ笑み中。
●Ｗｅｂ新撰組専用サーバーが新しく出来る予定です。
只今中断している貸し出しアクセスカウンターも利用者を再募集する予定。
来月中くらいには設置完了のつもりでおりまする〜。
------------------------------------------◆はぎちゃん今日のひとこと◆
◆お願い◆
このマガジンについてのお問い合わせは、WEB新撰組メーリングリストで、
お願い致します。
参加方法は、
http://www.web-kyoto.com/ml/
を参考にして下さい。
◆担当者◆
本文文責 ：Web新撰組プログラマー萩原逸郎
Ｗｅｂ新撰組 ：http://www.web-kyoto.com/
◆協力ありがとう◆
おこさま本舗 http://www.okosama.net/
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■