CGI Perl総合
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ (ｵﾌﾟ
open(OUT,"|$mailer $address") || die "送信できませんでした\n";
$cgi = new CGI;
:
die if($cgi->param("realname") eq "");
$Etitle = $form{'titlename'};
$Ename = $form{'realname'};
$emale = $form{'mailaddr'};
$comment = $form{'comm'};
print OUT "Mail From Web\n";
print OUT "$Etitle\n";
print OUT "氏 名：$Ename\n";
print OUT "E-Mail：$emale\n";
print OUT "コメント：$comment\n";
print OUT "IPアドレス：$ENV{'REMOTE_ADDR'}\n";
close(OUT);
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>index.htm</TITLE></HEAD>\n";
print "<BODY>\n";
print "<CENTER>\n";
print "<H3>メールは送られました。</H3>\n";
print "</CENTER>\n";
print "</BODY></HTML>\n";
$cnt_file = 'cnt.dat';
open(fp,"$cnt_file");
$cnt = <fp>;
close(fp);
++$cnt;
$len = length $cnt;
if ($len < $n) {
$imgfile = "0";
} else {
$imgfile = substr($cnt, $len-$n, 1);
}
open(IN,"img/$imgfile.gif");
@lines = <IN>;
close(IN);
print "Content-type: image/gif\n\n";
print @lines;
if ($n == 1) {
open(fp,">$cnt_file.tmp");
print fp $cnt;
close(fp);
rename("$cnt_file.tmp", $cnt_file);
}
sub frmdec
{
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$name} = $value;
}
}
配列の中身は
'23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9'
だったとして、$xxという変数にa～dのいずれかの文字が入ります。
例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3'
の3を1増減、4にして
'23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9'
になった配列をデータファイルに上書き保存したいのですが
どのように組めばよいのでしょうか？
open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
$i = "0";
foreach (@LINES){
($t1,$t2,$t3)=split(/<>/,$_);
if ($xx =~ /\Q$t2/) { last; }
$i++;
}
$t3++;
$all = $t1;
$all .= '<>';
$all .= $t2;
$all .= '<>';
$all .= $t3;
$all .= '\n';
$LINES[$i] = $all;
open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
print OUT (@LINES);
close (OUT);
こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。
何がしたいのかさっぱりわからん。
これで良いのか？
open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
$xx = "c";
foreach (@LINES) {
my ($t1, $t2, $t3) = split /<>/;
next unless $t2 eq $xx;
$t3++; $_ = join ("<>",$t1,$t2,$t3);
last;
}
open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
print OUT (@LINES);
close (OUT);
foreachにはいるまえに chomp(@LINES)
出力は print OUT join("\n", @LINES);
全部。0点。
・sendmail 使うなら -tとか使え。
・ヒアドキュメント使え。
・CGIモジュール使うなら、あえて%formにセットすることないだろ
・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。
・未定義値が欲しいなら eq undefするだろ、ふつー。
でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。
(1)ロックしないの？
(2)$nって何？
runmode用の変数？
(3)ファイルハンドルは大文字に統一すれ
謎の $nをつかった、$cnf_file.tmpをつかって
ロックというか、トランザクションをとってる
つもりなんだったら、たぶん、完全に間違い。
($nの設定時に排他処理してたらすまん）
というわけで、たぶん、あってません。
httpで串刺してきたハゲに
ftpのリクエストを送信する
例の別プロトコル抜きのソースきぼーん！
>>8
すまん ×>>2 ○>>3
>>9
おれ、UGの人じゃないんで（爆）、それしらない。
JAVAアプレット連携させるのかなあ。
それとも 擬似サーバー立てといて、そのポートに
ftp://www.server:niseport/
とかでHTTPプロキシを外してアクセスさせるのかなあ。
>>10
つか1はどこに行った。。。
ｽﾏｿ、9も10もわいや。
スレ立てといてレスよこさねえとは、ふてえ野郎だなって思って
いらいらしてたんで、一発抜こうかなって思ってたとこだったんだ（*´ρ`*）
アプレットは使ってないよ。Perlだけ。
南国工房で前にみたけど、わかってることはこんな感じ。
串さして来たハゲ→htmlで出力された掲示板でやりたい放題
→出力されたhtmlはフレームが使われている→0%,100%で小さい方はもちろん不可視
→小さい方にftpをリクエストする、何かが仕込まれているらしい。
→ハゲは気づかずにいつも通りかきこを行い、送信ボタンを押す。
→すると自動的にCGI側からハゲにftpのリクエストを行う。
→さすがのハゲもftpは無防備で、掲示板に表示された自分の生ＩＰを見て青くなる。
→このプログラミングを作った人は、ローカルでの実験が出来ないことから
直接Web鯖上で実験をして（しかもプロバイダーの鯖)何度か失敗して
プロバの鯖を落としてしこたま怒られたらしい。
わかっているのはこれだけ、十分だろ？
作ってもらえないかな師匠、お願いだ！
南国工房ってとこもはじめて聞いた(^^;
手法は、11で書いた手法と同一だね。
書いてもいいけど、これぐらいなら、
そこらへんにころがってそうな気がするなあ。
誰か知らない？
>そこらへんにころがってそうな気がするなあ。
ところがないのよ、あってもソースは公開してないんだよ。
送信ボタン押すとオラの生ＩＰが表示されるだけだっちゅーの。
自分の生ＩＰみて何が面白いと。。。何とかパクろうと思ったけどね。
ディレクトリ掘ってファイルいただくＣＧＩは持っているんだが、
ありゃ同一鯖でしか使えないわな。
オラもC言語でハローワールドをウィンドウに表示させることが出来るが
それじゃ話にならんわなー(T-T)
Ｃ言語の本読んでたら、髪の毛がたくさん抜け落ちてきてな
ハゲになると困るから、1時間くらいで挫折したのよ。
頼むから作ってくだされ、師匠('-';
動いてるところ教えてくれー。
# つか、今日、スケジュール遅れで納期のばしてきたのに。
# 客が知ったら激怒だろうな.....。
こっちの方も同じ仕組みだとは思うんだが
なんかtelnetが起動したぞ。。。？？
ま、いっか。↓
www.tok2.com/home/pat/ipget.html
みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・
>>9-10
FTPから抜くｶｳｿﾀで良いのか・・・？
手持ちのﾔﾂで合ってると思うが
漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
つか違ったら拾ってｸﾚﾖ
http://server2047.virtualave.net/ibzrjp/count_p.txt
頂きます。
有難うごぜーますだ。
南国工房じゃ健作してもﾋｯｶｶﾝﾅｲﾖ
正式名称は南国CGI工場
今でもﾛｸﾞか遺跡が有る筈だから暇だったら探しとくさヽ(´,ー`)ノ
確か2ヶ所、、、Logeんﾄｺと、、、、
http://server2047.virtualave.net/ibzrjp/crypt.txt
漏れのﾃﾞｨｽｺに放置されてた工場のﾌﾟﾄﾝのｿｰｽ
つか大したﾓﾝ無いﾈ
漏れも同意ﾀﾞﾖ
うんこと串は漏れてる方が良いよな ヤッパ。
俺なんか撃つにしても手で撃った方が早ｨぜ
秒速5Rだぜ
とりあえずSSI許可してる自由鯖を探さないといけんわな・・
ところで12のURLのところのは、なぜtelnetと関連付けされた
メーラーが起動するのじゃろか？オラの場合ＯＥが起動したが
普段は関連付けしていない、Veckyを使ってるので
ＯＥは何も設定して無いけどね（ｗ
くそ>>18 漏れが頼んだんだから漏れにも例を言うのが人道的だろ？ちゃうか？
>>21
ようわからんが、眠くなることは確かだな。
ありゃ、つかおめえ荒らす側じゃねえか！
オラは荒らされる側だ！自分のスレに帰れ！この（荒らすなよ)
漏れもｲﾀﾀﾞｷました。ﾄﾞﾓﾄﾞﾓ
>漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
って、気になりますがナ
＞確か2ヶ所、、、Logeんﾄｺと、、、、
これも気になりますがナ。
ﾂｶあなたはいったいﾅﾆﾓﾉ？？
http://yyy-cgi.virtualave.net/
有った、有った
遺跡みっけ♪
ﾛｸﾞはﾐﾂｶﾝﾈけど幾つかｿｰｽ転がってたｿﾞ(´,д`)ノ ﾋﾛｯﾄｹ
ﾂｶﾖ最近思ったんﾀﾞｹﾄﾞﾖ、
ｽｹﾞｪﾄﾞｰﾃﾞﾓ良い事なんだが辞書鍛え過ぎて話しにﾅﾝﾈｰﾖ (ｹﾞﾛｦﾌﾟ
＞ﾂｶあなたはいったいﾅﾆﾓﾉ？？
ﾀﾀﾞのﾁｬﾝｺﾛです.ひろむきがﾊｸﾗ板に板名を戻す事を切に望むｲﾁﾁｬﾝｺﾛﾀだよ。。。
ここのFormmailってスクリプトを貰ってきて、sendmail可能な
サーバーに設置して見たんですけど、上手く行かないです。
sendmailのパスとスクリプトへのフルパスは間違えていないと
思いまス。
多分、フォームの記述が間違えてると思うのですが････
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
<form method=POST action="http://***************/cgi-bin/afw/FormMail.pl">
To:<input type=text name="recipient" size=40><br>
Yourname:<input type=text name="realname" size=40><br>
Subuject:<input type=text name="subject" size=40><br>
<textarea name="hello" rows=15 cols=80 wrap=hard>hello</textarea><br>
<input type=submit value="tlanslate"><input type=reset value="cancel">
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
多分、首吊って芯だ方が良いような事だと思うんですけど･･･
思いっきり馬鹿にして下さい
サーバーのバージョンが古いん違う？
sendmailのバージョンは動作可能な物の様です。
後、readmeを見てもらえると嬉しいのですが、referer設定で
他のサーバーからは呼び出せない様に成っているんで、
この辺りは間違いなく書き換えています。
それで、馬鹿丸出しなんですが、フォームの書き方が良く解って無い
ので(スカラー変数と言うのでしょうか?)しょーも無い間違いを
してるんじゃ無いかと言うわけです
いきなり厨房質問してしまって申し訳ないっす。
どう動かないのか、おしえれ。
フォームの書き方はスカラー変数とはいいません。
フォームの書き方といいます。
ところで、これ、日本語通らないけど、いいの？
設置したサーバーはh1.ruです。
症状なのですが、"Thank You For Filling Out This Form"
のメッセージ(デフォルトで送信完了後に表示される様です)は拝んで
居るんですが、メールが送信できていないです。
refererや、sendmailへのパスが間違えていると、その旨を表示して
くれる、馬鹿にも優しいスクリプトなんですけど･･････
日本語が通らないのは問題無いです
>フォームの書き方はスカラー変数とはいいません。
はい、こんな感じのうんこちゃんなんでもっと罵って下さい。
情けない事に、フォームの記述がcgiにどう渡されるかが解って無いです。
recipient"送信先" subject"件名" realname"送信者の名前" だと
思うんですが、本文に相当する部分が解らないのです
それでhelloとかしちゃってるのが原因なのかな････と
つか意味不明すね、厨房らしくお勉強からはじめます。
らくだ本って言うのを買えば、perlを少しは理解できるだろうか･････
READMEで、print_configを見れば解決するとおもわれ。
Mattさんのスクリプトはわかりやすいっちゃわかりやすいけど
冗長なので、今日はみたくない。ｽﾏｿ。
順番が
# Return HTML Page or Redirect User
&return_html;
# Send E-Mail
&send_mail;
なので、終了メッセージがでたからといってメールが
おくれてるかどうかチェックでけん。
とりあえず、
open(MAIL,"|$mailprog -t");
を ">>debug.txt"にでもして、debug.txtの出力を
確認すべし。(debug.txtはCGIの実行ユーザーが
書き出しができるパミッションで先につくっとくか、
ディレクトリのパミッションがCGIの実行ユーザーで
書き込みができるか確認しといて）
入門書は 初めてのPerl(ラマ本;オライリー)がおすすめ。
>READMEで、print_configを見れば解決するとおもわれ。
これは理解できました、大感謝です。
なるほど～、送信完了メッセージの後にコケている可能性がある訳
ですか。それで、それを確認する為の手段がdebug.txtな訳ッスね。
馬鹿相手に順序立てて説明して下さって、マジ感動してます。
と同時に、自分には質問する資格すら怪しい事もよーく理解できたっす。
自分は、亀なんで今からもう一度readmeと睨めっこしながら、
debug.txtを吐かせてみます。
本はラマの絵の奴ッスね、了解です。
必ず結果報告に来るんで、亀の成長振りを見てやって下さい ＾＾;
ホントに有難うございます。
>ところで12のURLのところのは、なぜtelnetと関連付けされた
>メーラーが起動するのじゃろか？オラの場合ＯＥが起動したが
見に行ってないから、知らないけど、
たぶん、news:// を使ってるんでしょう。
メーラーじゃなくって、標準のニュースリーダーが起動された
んだと思う。
鍛え過ぎたとは？どのように？ﾂｶｵｾｰﾃ。
Formmail欲しい時は、その辺のスクリプト貰ってきて
改造しちゃってるの?
つか、それ位ならｵｹかな
CGI総合っつっても別に新たなﾌﾟﾄﾝ作る必要性が殆ど無いからﾈ
既存のﾓﾉから拾い出すだけで充分ﾀﾞｼ・・・
>>34
辞書ﾌｧｲﾙダヨ。.dicかな？？ｼﾞｮﾑ君とかに読ませるｼﾞｬﾝ？
適当に単語集健作して拾ったんだが多すぎて時間掛かるのﾖ
>辞書ﾌｧｲﾙダヨ。.dicかな？？ｼﾞｮﾑ君とかに読ませるｼﾞｬﾝ？
それわかってたけど、ｽｹﾞｰﾋｯﾄ率の高い単語集でも作ったと思ってね。
ただ拾いﾏｸｯﾀだけﾀﾞﾖ(;´д`)
でも総当りﾖﾘはﾏｼだからね
エロ動画でも探すかな (ｦﾌﾟ
それって、SMTPサーバーがオープンリレーかどうか
チェックするスクリプト？
とりあえずORBSで遊んでみれば？
http://www.orbs.org/
# 全然CGIじゃねえなあ＞おれ
# というわけで1に期待
廃れてる～～ (ﾟДﾟ;) ｱｳｱｳｱ～
漏れが細い回線をﾌﾙに使って小沢まどかをﾀﾞｳｿしている間に、、、、、(ｹﾞﾛｵﾌﾟ
>>41
anonmail？ﾀﾌﾞﾝAnonWebMailの事ﾀﾞﾄ思うけどﾌﾟﾄﾝ本体じゃ無いよナ？
一般配布されたﾓﾉかな？つぅか正式名称が解らんと、、、、(´ヘ`)ノﾜｶﾝﾈ！
漏れ'sﾃﾞｨｽｺにも入って無いみたいﾀﾞｹﾄﾞ、少し探しちゃるわい。
#小沢まどかと瞳ﾘｮｳｲｲﾈ！
なんで最近はﾌｪｲｻﾞｰ撃てる→上級者って構図ﾅﾝﾀﾞﾛ
寂しいよ、、、漏れいつも撃たれる方ﾀﾞｼ。。。。
ｶｰﾙ板はその点良いけどﾒﾝﾄﾞｲよね。。
ｶｰﾙ板破りでもｽﾙｶﾅ。。。。絶対ﾑﾘﾀﾞｹﾄﾞ。
#悲しくなって来たので帝凶ｱｿｸﾞﾗ(核爆
でﾍﾟﾄﾞに走ります････
面白そう。
XBM攻略法にしませんか？
画像コード無いと簡単だし。
よろしく♪
ビッグローブだとだめなんかな
俺もそうだったけどもう一度スクリプツを落とし直したら設置できたよ
微妙に違うみたい
そして何も変更せずにあげてみるためしに
ﾊﾟｽも間違ってﾆｬｲｱﾙﾖ
ﾛｶﾙ用のﾊﾟｽにしても
ﾛｶﾙﾃｽﾄも出来ないｱﾙﾖ？誰かｵｼｴﾙｱﾙﾖ;
ただ単に設定ミスってる可能性大です。
今設置できました。
ﾊﾟｰﾐｯｼｮﾝの間違いしか考えられないｱﾙ
ﾃﾞﾓ、ﾛｶﾙでも動かないｱﾙﾖ
httpdはapache1.3.9ｱﾙﾖ
金取るらしいｹﾄﾞ
>>47
つかXBM破りなら、御堂丘とHIDEが大分前にやってなかったｶ?
確かﾀﾝ先生の所で公開ｻﾚﾃﾀｿﾞ
googleでログ探してくるわ>>55
CGIのプログラムの事？
いい入門書ある？
ハクするスキルとかつく？
難しい？
やるだけの価値はある？
将来役に立つ？
カッコイイ？
CGIによく使われます。
言語としての入門書は「はじめてのPerl」（オライリー）がおすすめ。
ハクするスキルとは直接関係ないかな。言語だからね。
特に難しくない。
価値は自分で判断してね。
将来役に立つかどうかは58次第。
別にかっこいくない。普通。
あとtelnet.cgi使って人のファイル削除できるの？
プログラムを一行ずつ解読して実行していくタイプの言語です。
使いやすいという反面、大規模なアプリケーション開発には向か
ないという欠点があります。
─荒瀬遥著「初めてのC言語入門」西東社
パミッションが許せばね。
ようはコンパイルする必要がないってことですね
>>62
パーミッションは７５５とかなら余裕なの？
suexecされてなきゃ、755でも削除できるだろね。
されてりゃ、普通は グループに +wが必要だろうね。
ほんと頼む
>>69
2.35って事ｶｲ？
確か2.34と35の違いは２行ﾀﾞｾﾞ。
大した違いじゃないし気にすんﾅﾖ。
どっかの串板に変え方書いて有るけど場所失念(^^;ﾜﾗ
http://server2047.virtualave.net/ibzrjp/aaaaa/proxyjudge.txt
http://server2047.virtualave.net/ibzrjp/aaaaa/030.zip
↑どうよｺﾚ？
〈 ﾄﾞﾓｯ、ｽﾐﾏｾﾝ....。
∨￣￣￣￣￣￣
（´Д｀;）ヾ
∨）
（（
心からあんがと。あんた優しいね。
あんたイイ奴だな
でもディレクトリは埋めなくて良いのか？ヽ(;´Д`)ﾉ
ｽﾏｿ、もう一回だけ教えてくれ.....
例えばhttp://vivit.freeshell.org/cgi-bin/p234.cgi
のように、snmpチェックの結果が表示されるようにしたいんだけどできん....
初心者のために教えてくだされ。
snmpﾁェック?ﾎﾟｰﾄ161？違うって？(ｵﾌﾟ
設置しても正常に動かないって事ｶｲ？
んなもん手動でﾁｪｯｸ(ｵﾌﾟﾌﾟ
・・・・・んで、ﾏｿﾞﾚｽするともう少し詳しく教えて下さい。
流石に状況が良く解らないです。
>>74
ウンコ垂れ流しながら埋めようとしたけど、
どうでも良い事に気付いて桜庭の動画で昇天(´Д`)
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
１の頑張りが利いてます
ハックラ板には珍しい、沈まないスレ
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
に設置したんたけどうまく動きません。
ここには設置できないの？
ワラタ
/usr/lib/sendmail
レスありがとうございます。一応今確かめたけど、やっぱあってた。
で、ブラウザで逝くと↓でした。
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, Your Webmaster and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log
なんかココ接続できるんですけど。。
telnet://waza.netfirms.com/
１さん教えてください。
フリ鯖でtelnetはできんだろ。
CGI使えば擬似的に出来るかもしれないがな(ﾜﾗ
今もやってるかどうか知らないけど。
Most "free" services do not offer this option.
Try a telnet session and use the command
whereis perl
Good Luck
今は知らんが前は使えたような気がするﾅ
使える
http://tok2.com/image/rg05.gif
独自シェルなり、コマンド制限されてるとかなんとかだったと思ふ
100～のスレッドの続きを読む