ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ (ｵﾌﾟ
CGI Perl総合
1名無しさん
NGNGNGNG
#どこがイタイのでしょうか？
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";
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";
3none
NGNGあってますか？#!/usr/local/bin/perl
$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;
}
}
$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;
}
}
4obj
NGNGデータファイルを読み込んで@LINESという配列に入れたとします。
配列の中身は
'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);
こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。
配列の中身は
'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);
こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。
5名無しさん
NGNG>>4
何がしたいのかさっぱりわからん。
これで良いのか？
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);
何がしたいのかさっぱりわからん。
これで良いのか？
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);
NGNG
あ、いかんいかん。
foreachにはいるまえに chomp(@LINES)
出力は print OUT join("\n", @LINES);
foreachにはいるまえに chomp(@LINES)
出力は print OUT join("\n", @LINES);
NGNG
>>2
全部。0点。
・sendmail 使うなら -tとか使え。
・ヒアドキュメント使え。
・CGIモジュール使うなら、あえて%formにセットすることないだろ
・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。
・未定義値が欲しいなら eq undefするだろ、ふつー。
でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。
全部。0点。
・sendmail 使うなら -tとか使え。
・ヒアドキュメント使え。
・CGIモジュール使うなら、あえて%formにセットすることないだろ
・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。
・未定義値が欲しいなら eq undefするだろ、ふつー。
でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。
NGNG
>>2
(1)ロックしないの？
(2)$nって何？
runmode用の変数？
(3)ファイルハンドルは大文字に統一すれ
謎の $nをつかった、$cnf_file.tmpをつかって
ロックというか、トランザクションをとってる
つもりなんだったら、たぶん、完全に間違い。
($nの設定時に排他処理してたらすまん）
というわけで、たぶん、あってません。
(1)ロックしないの？
(2)$nって何？
runmode用の変数？
(3)ファイルハンドルは大文字に統一すれ
謎の $nをつかった、$cnf_file.tmpをつかって
ロックというか、トランザクションをとってる
つもりなんだったら、たぶん、完全に間違い。
($nの設定時に排他処理してたらすまん）
というわけで、たぶん、あってません。
9ふさふさ
NGNG>１さん
httpで串刺してきたハゲに
ftpのリクエストを送信する
例の別プロトコル抜きのソースきぼーん！
httpで串刺してきたハゲに
ftpのリクエストを送信する
例の別プロトコル抜きのソースきぼーん！
10教えて
NGNG昼間はいねえのか！ゴラァァァ！
115-8
NGNG129-10
NGNG>>11
ｽﾏｿ、9も10もわいや。
スレ立てといてレスよこさねえとは、ふてえ野郎だなって思って
いらいらしてたんで、一発抜こうかなって思ってたとこだったんだ（*´ρ`*）
アプレットは使ってないよ。Perlだけ。
南国工房で前にみたけど、わかってることはこんな感じ。
串さして来たハゲ→htmlで出力された掲示板でやりたい放題
→出力されたhtmlはフレームが使われている→0%,100%で小さい方はもちろん不可視
→小さい方にftpをリクエストする、何かが仕込まれているらしい。
→ハゲは気づかずにいつも通りかきこを行い、送信ボタンを押す。
→すると自動的にCGI側からハゲにftpのリクエストを行う。
→さすがのハゲもftpは無防備で、掲示板に表示された自分の生ＩＰを見て青くなる。
→このプログラミングを作った人は、ローカルでの実験が出来ないことから
直接Web鯖上で実験をして（しかもプロバイダーの鯖)何度か失敗して
プロバの鯖を落としてしこたま怒られたらしい。
わかっているのはこれだけ、十分だろ？
作ってもらえないかな師匠、お願いだ！
ｽﾏｿ、9も10もわいや。
スレ立てといてレスよこさねえとは、ふてえ野郎だなって思って
いらいらしてたんで、一発抜こうかなって思ってたとこだったんだ（*´ρ`*）
アプレットは使ってないよ。Perlだけ。
南国工房で前にみたけど、わかってることはこんな感じ。
串さして来たハゲ→htmlで出力された掲示板でやりたい放題
→出力されたhtmlはフレームが使われている→0%,100%で小さい方はもちろん不可視
→小さい方にftpをリクエストする、何かが仕込まれているらしい。
→ハゲは気づかずにいつも通りかきこを行い、送信ボタンを押す。
→すると自動的にCGI側からハゲにftpのリクエストを行う。
→さすがのハゲもftpは無防備で、掲示板に表示された自分の生ＩＰを見て青くなる。
→このプログラミングを作った人は、ローカルでの実験が出来ないことから
直接Web鯖上で実験をして（しかもプロバイダーの鯖)何度か失敗して
プロバの鯖を落としてしこたま怒られたらしい。
わかっているのはこれだけ、十分だろ？
作ってもらえないかな師匠、お願いだ！
1311
NGNG1412
NGNGおお、頼もしいこと言う人が、この板にも久々にあらわれたのぉ！
>そこらへんにころがってそうな気がするなあ。
ところがないのよ、あってもソースは公開してないんだよ。
送信ボタン押すとオラの生ＩＰが表示されるだけだっちゅーの。
自分の生ＩＰみて何が面白いと。。。何とかパクろうと思ったけどね。
ディレクトリ掘ってファイルいただくＣＧＩは持っているんだが、
ありゃ同一鯖でしか使えないわな。
オラもC言語でハローワールドをウィンドウに表示させることが出来るが
それじゃ話にならんわなー(T-T)
Ｃ言語の本読んでたら、髪の毛がたくさん抜け落ちてきてな
ハゲになると困るから、1時間くらいで挫折したのよ。
頼むから作ってくだされ、師匠('-';
>そこらへんにころがってそうな気がするなあ。
ところがないのよ、あってもソースは公開してないんだよ。
送信ボタン押すとオラの生ＩＰが表示されるだけだっちゅーの。
自分の生ＩＰみて何が面白いと。。。何とかパクろうと思ったけどね。
ディレクトリ掘ってファイルいただくＣＧＩは持っているんだが、
ありゃ同一鯖でしか使えないわな。
オラもC言語でハローワールドをウィンドウに表示させることが出来るが
それじゃ話にならんわなー(T-T)
Ｃ言語の本読んでたら、髪の毛がたくさん抜け落ちてきてな
ハゲになると困るから、1時間くらいで挫折したのよ。
頼むから作ってくだされ、師匠('-';
1511
NGNG動作サンプルあったのがラクだから
動いてるところ教えてくれー。
# つか、今日、スケジュール遅れで納期のばしてきたのに。
# 客が知ったら激怒だろうな.....。
動いてるところ教えてくれー。
# つか、今日、スケジュール遅れで納期のばしてきたのに。
# 客が知ったら激怒だろうな.....。
1612
NGNGありゃ、本命のサイトがわからなくなっちまった。
こっちの方も同じ仕組みだとは思うんだが
なんかtelnetが起動したぞ。。。？？
ま、いっか。↓
www.tok2.com/home/pat/ipget.html
こっちの方も同じ仕組みだとは思うんだが
なんかtelnetが起動したぞ。。。？？
ま、いっか。↓
www.tok2.com/home/pat/ipget.html
171
NGNG俺は嬉しいぜ、、、、
みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・
>>9-10
FTPから抜くｶｳｿﾀで良いのか・・・？
手持ちのﾔﾂで合ってると思うが
漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
つか違ったら拾ってｸﾚﾖ
http://server2047.virtualave.net/ibzrjp/count_p.txt
みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・
>>9-10
FTPから抜くｶｳｿﾀで良いのか・・・？
手持ちのﾔﾂで合ってると思うが
漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
つか違ったら拾ってｸﾚﾖ
http://server2047.virtualave.net/ibzrjp/count_p.txt
191
NGNGﾂｶﾖ
南国工房じゃ健作してもﾋｯｶｶﾝﾅｲﾖ
正式名称は南国CGI工場
今でもﾛｸﾞか遺跡が有る筈だから暇だったら探しとくさヽ(´,ー`)ノ
確か2ヶ所、、、Logeんﾄｺと、、、、
南国工房じゃ健作してもﾋｯｶｶﾝﾅｲﾖ
正式名称は南国CGI工場
今でもﾛｸﾞか遺跡が有る筈だから暇だったら探しとくさヽ(´,ー`)ノ
確か2ヶ所、、、Logeんﾄｺと、、、、
201
NGNGhttp://server2047.virtualave.net/ibzrjp/env.txt
http://server2047.virtualave.net/ibzrjp/crypt.txt
漏れのﾃﾞｨｽｺに放置されてた工場のﾌﾟﾄﾝのｿｰｽ
つか大したﾓﾝ無いﾈ
http://server2047.virtualave.net/ibzrjp/crypt.txt
漏れのﾃﾞｨｽｺに放置されてた工場のﾌﾟﾄﾝのｿｰｽ
つか大したﾓﾝ無いﾈ
21多段嵐王ntttkyo28209.ppp.infoweb.ne.jp
NGNGC言語なんてオタク臭いものは必要ありません。
239-10-12
NGNG24ちゃりが無くなってる。。。
NGNG>>1
漏れもｲﾀﾀﾞｷました。ﾄﾞﾓﾄﾞﾓ
>漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
って、気になりますがナ
＞確か2ヶ所、、、Logeんﾄｺと、、、、
これも気になりますがナ。
ﾂｶあなたはいったいﾅﾆﾓﾉ？？
漏れもｲﾀﾀﾞｷました。ﾄﾞﾓﾄﾞﾓ
>漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
って、気になりますがナ
＞確か2ヶ所、、、Logeんﾄｺと、、、、
これも気になりますがナ。
ﾂｶあなたはいったいﾅﾆﾓﾉ？？
251
NGNGhttp://www2.synapse.ne.jp/synaqse/pato/
http://yyy-cgi.virtualave.net/
有った、有った
遺跡みっけ♪
ﾛｸﾞはﾐﾂｶﾝﾈけど幾つかｿｰｽ転がってたｿﾞ(´,д`)ノ ﾋﾛｯﾄｹ
ﾂｶﾖ最近思ったんﾀﾞｹﾄﾞﾖ、
ｽｹﾞｪﾄﾞｰﾃﾞﾓ良い事なんだが辞書鍛え過ぎて話しにﾅﾝﾈｰﾖ (ｹﾞﾛｦﾌﾟ
＞ﾂｶあなたはいったいﾅﾆﾓﾉ？？
ﾀﾀﾞのﾁｬﾝｺﾛです.ひろむきがﾊｸﾗ板に板名を戻す事を切に望むｲﾁﾁｬﾝｺﾛﾀだよ。。。
http://yyy-cgi.virtualave.net/
有った、有った
遺跡みっけ♪
ﾛｸﾞはﾐﾂｶﾝﾈけど幾つかｿｰｽ転がってたｿﾞ(´,д`)ノ ﾋﾛｯﾄｹ
ﾂｶﾖ最近思ったんﾀﾞｹﾄﾞﾖ、
ｽｹﾞｪﾄﾞｰﾃﾞﾓ良い事なんだが辞書鍛え過ぎて話しにﾅﾝﾈｰﾖ (ｹﾞﾛｦﾌﾟ
＞ﾂｶあなたはいったいﾅﾆﾓﾉ？？
ﾀﾀﾞのﾁｬﾝｺﾛです.ひろむきがﾊｸﾗ板に板名を戻す事を切に望むｲﾁﾁｬﾝｺﾛﾀだよ。。。
26きゅー
NGNGhttp://www.worldwidemart.com/scripts/formmail.shtml
ここの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">
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
多分、首吊って芯だ方が良いような事だと思うんですけど･･･
思いっきり馬鹿にして下さい
ここの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">
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
多分、首吊って芯だ方が良いような事だと思うんですけど･･･
思いっきり馬鹿にして下さい
27蹂躙希望
NGNG>>26
サーバーのバージョンが古いん違う？
サーバーのバージョンが古いん違う？
28きゅー
NGNG蹂躙希望さん、有難う御座います。
sendmailのバージョンは動作可能な物の様です。
後、readmeを見てもらえると嬉しいのですが、referer設定で
他のサーバーからは呼び出せない様に成っているんで、
この辺りは間違いなく書き換えています。
それで、馬鹿丸出しなんですが、フォームの書き方が良く解って無い
ので(スカラー変数と言うのでしょうか?)しょーも無い間違いを
してるんじゃ無いかと言うわけです
いきなり厨房質問してしまって申し訳ないっす。
sendmailのバージョンは動作可能な物の様です。
後、readmeを見てもらえると嬉しいのですが、referer設定で
他のサーバーからは呼び出せない様に成っているんで、
この辺りは間違いなく書き換えています。
それで、馬鹿丸出しなんですが、フォームの書き方が良く解って無い
ので(スカラー変数と言うのでしょうか?)しょーも無い間違いを
してるんじゃ無いかと言うわけです
いきなり厨房質問してしまって申し訳ないっす。
30きゅー
NGNG>>11さん、有難う御座います。
設置したサーバーはh1.ruです。
症状なのですが、"Thank You For Filling Out This Form"
のメッセージ(デフォルトで送信完了後に表示される様です)は拝んで
居るんですが、メールが送信できていないです。
refererや、sendmailへのパスが間違えていると、その旨を表示して
くれる、馬鹿にも優しいスクリプトなんですけど･･････
日本語が通らないのは問題無いです
>フォームの書き方はスカラー変数とはいいません。
はい、こんな感じのうんこちゃんなんでもっと罵って下さい。
情けない事に、フォームの記述がcgiにどう渡されるかが解って無いです。
recipient"送信先" subject"件名" realname"送信者の名前" だと
思うんですが、本文に相当する部分が解らないのです
それでhelloとかしちゃってるのが原因なのかな････と
つか意味不明すね、厨房らしくお勉強からはじめます。
らくだ本って言うのを買えば、perlを少しは理解できるだろうか･････
設置したサーバーはh1.ruです。
症状なのですが、"Thank You For Filling Out This Form"
のメッセージ(デフォルトで送信完了後に表示される様です)は拝んで
居るんですが、メールが送信できていないです。
refererや、sendmailへのパスが間違えていると、その旨を表示して
くれる、馬鹿にも優しいスクリプトなんですけど･･････
日本語が通らないのは問題無いです
>フォームの書き方はスカラー変数とはいいません。
はい、こんな感じのうんこちゃんなんでもっと罵って下さい。
情けない事に、フォームの記述がcgiにどう渡されるかが解って無いです。
recipient"送信先" subject"件名" realname"送信者の名前" だと
思うんですが、本文に相当する部分が解らないのです
それでhelloとかしちゃってるのが原因なのかな････と
つか意味不明すね、厨房らしくお勉強からはじめます。
らくだ本って言うのを買えば、perlを少しは理解できるだろうか･････
3111
NGNG本文に相当する云々は、
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を見れば解決するとおもわれ。
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(ラマ本;オライリー)がおすすめ。
32きゅー
NGNG>>11さん有難う御座います。
>READMEで、print_configを見れば解決するとおもわれ。
これは理解できました、大感謝です。
なるほど〜、送信完了メッセージの後にコケている可能性がある訳
ですか。それで、それを確認する為の手段がdebug.txtな訳ッスね。
馬鹿相手に順序立てて説明して下さって、マジ感動してます。
と同時に、自分には質問する資格すら怪しい事もよーく理解できたっす。
自分は、亀なんで今からもう一度readmeと睨めっこしながら、
debug.txtを吐かせてみます。
本はラマの絵の奴ッスね、了解です。
必ず結果報告に来るんで、亀の成長振りを見てやって下さい ＾＾;
ホントに有難うございます。
>READMEで、print_configを見れば解決するとおもわれ。
これは理解できました、大感謝です。
なるほど〜、送信完了メッセージの後にコケている可能性がある訳
ですか。それで、それを確認する為の手段がdebug.txtな訳ッスね。
馬鹿相手に順序立てて説明して下さって、マジ感動してます。
と同時に、自分には質問する資格すら怪しい事もよーく理解できたっす。
自分は、亀なんで今からもう一度readmeと睨めっこしながら、
debug.txtを吐かせてみます。
本はラマの絵の奴ッスね、了解です。
必ず結果報告に来るんで、亀の成長振りを見てやって下さい ＾＾;
ホントに有難うございます。
3311
NGNG>>23
>ところで12のURLのところのは、なぜtelnetと関連付けされた
>メーラーが起動するのじゃろか？オラの場合ＯＥが起動したが
見に行ってないから、知らないけど、
たぶん、news:// を使ってるんでしょう。
メーラーじゃなくって、標準のニュースリーダーが起動された
んだと思う。
>ところで12のURLのところのは、なぜtelnetと関連付けされた
>メーラーが起動するのじゃろか？オラの場合ＯＥが起動したが
見に行ってないから、知らないけど、
たぶん、news:// を使ってるんでしょう。
メーラーじゃなくって、標準のニュースリーダーが起動された
んだと思う。
34ﾗﾝﾁﾀｲﾑﾊﾞｯｶｰ
NGNG辞書鍛え過ぎて話しにﾅﾝﾈｰﾖ>25==1
鍛え過ぎたとは？どのように？ﾂｶｵｾｰﾃ。
鍛え過ぎたとは？どのように？ﾂｶｵｾｰﾃ。
35uu
NGNG29のからみなんだけど、送信先設定出来て日本語の通る
Formmail欲しい時は、その辺のスクリプト貰ってきて
改造しちゃってるの?
つか、それ位ならｵｹかな
Formmail欲しい時は、その辺のスクリプト貰ってきて
改造しちゃってるの?
つか、それ位ならｵｹかな
361
NGNGツカネーﾔﾊﾟﾘネタが無いねー
CGI総合っつっても別に新たなﾌﾟﾄﾝ作る必要性が殆ど無いからﾈ
既存のﾓﾉから拾い出すだけで充分ﾀﾞｼ・・・
>>34
辞書ﾌｧｲﾙダヨ。.dicかな？？ｼﾞｮﾑ君とかに読ませるｼﾞｬﾝ？
適当に単語集健作して拾ったんだが多すぎて時間掛かるのﾖ
CGI総合っつっても別に新たなﾌﾟﾄﾝ作る必要性が殆ど無いからﾈ
既存のﾓﾉから拾い出すだけで充分ﾀﾞｼ・・・
>>34
辞書ﾌｧｲﾙダヨ。.dicかな？？ｼﾞｮﾑ君とかに読ませるｼﾞｬﾝ？
適当に単語集健作して拾ったんだが多すぎて時間掛かるのﾖ
37ﾐｯﾄﾞﾅｲﾄﾊﾞｯｶｰ
NGNG381
NGNG39何も知りません。
NGNGぁ事件ってなんですか？
41ああ
NGNGカールおぢさんのAnonmailリレーsmtp探しヴァーヂョンちょうだい
42nanasai
NGNGもったいないｽﾚなので定期age
43名無しさん
NGNG42に同意あげ
4411
NGNG>>41
それって、SMTPサーバーがオープンリレーかどうか
チェックするスクリプト？
とりあえずORBSで遊んでみれば？
http://www.orbs.org/
# 全然CGIじゃねえなあ＞おれ
# というわけで1に期待
それって、SMTPサーバーがオープンリレーかどうか
チェックするスクリプト？
とりあえずORBSで遊んでみれば？
http://www.orbs.org/
# 全然CGIじゃねえなあ＞おれ
# というわけで1に期待
451
NGNGつか、、、、、
廃れてる〜〜 (ﾟДﾟ;) ｱｳｱｳｱ〜
漏れが細い回線をﾌﾙに使って小沢まどかをﾀﾞｳｿしている間に、、、、、(ｹﾞﾛｵﾌﾟ
>>41
anonmail？ﾀﾌﾞﾝAnonWebMailの事ﾀﾞﾄ思うけどﾌﾟﾄﾝ本体じゃ無いよナ？
一般配布されたﾓﾉかな？つぅか正式名称が解らんと、、、、(´ヘ`)ノﾜｶﾝﾈ！
漏れ'sﾃﾞｨｽｺにも入って無いみたいﾀﾞｹﾄﾞ、少し探しちゃるわい。
#小沢まどかと瞳ﾘｮｳｲｲﾈ！
廃れてる〜〜 (ﾟДﾟ;) ｱｳｱｳｱ〜
漏れが細い回線をﾌﾙに使って小沢まどかをﾀﾞｳｿしている間に、、、、、(ｹﾞﾛｵﾌﾟ
>>41
anonmail？ﾀﾌﾞﾝAnonWebMailの事ﾀﾞﾄ思うけどﾌﾟﾄﾝ本体じゃ無いよナ？
一般配布されたﾓﾉかな？つぅか正式名称が解らんと、、、、(´ヘ`)ノﾜｶﾝﾈ！
漏れ'sﾃﾞｨｽｺにも入って無いみたいﾀﾞｹﾄﾞ、少し探しちゃるわい。
#小沢まどかと瞳ﾘｮｳｲｲﾈ！
461
NGNGネタが無いｶﾗﾌｪｲｻﾞｰ厨房に走るかﾅ…･･
なんで最近はﾌｪｲｻﾞｰ撃てる→上級者って構図ﾅﾝﾀﾞﾛ
寂しいよ、、、漏れいつも撃たれる方ﾀﾞｼ。。。。
ｶｰﾙ板はその点良いけどﾒﾝﾄﾞｲよね。。
ｶｰﾙ板破りでもｽﾙｶﾅ。。。。絶対ﾑﾘﾀﾞｹﾄﾞ。
#悲しくなって来たので帝凶ｱｿｸﾞﾗ(核爆
でﾍﾟﾄﾞに走ります････
なんで最近はﾌｪｲｻﾞｰ撃てる→上級者って構図ﾅﾝﾀﾞﾛ
寂しいよ、、、漏れいつも撃たれる方ﾀﾞｼ。。。。
ｶｰﾙ板はその点良いけどﾒﾝﾄﾞｲよね。。
ｶｰﾙ板破りでもｽﾙｶﾅ。。。。絶対ﾑﾘﾀﾞｹﾄﾞ。
#悲しくなって来たので帝凶ｱｿｸﾞﾗ(核爆
でﾍﾟﾄﾞに走ります････
47名無しさん
NGNG>ｶｰﾙ板破りでもｽﾙｶﾅ
面白そう。
XBM攻略法にしませんか？
画像コード無いと簡単だし。
よろしく♪
面白そう。
XBM攻略法にしませんか？
画像コード無いと簡単だし。
よろしく♪
48szok5DS76.szo.mesh.ad.jp
NGNGカール板の設置ができないなぜだろう？
ビッグローブだとだめなんかな
ビッグローブだとだめなんかな
49
NGNG＞カール板の設置ができないなぜだろう？
俺もそうだったけどもう一度スクリプツを落とし直したら設置できたよ
微妙に違うみたい
俺もそうだったけどもう一度スクリプツを落とし直したら設置できたよ
微妙に違うみたい
50４８
NGNGじゃもう一度ダウソしてみるよ
そして何も変更せずにあげてみるためしに
そして何も変更せずにあげてみるためしに
51abc
NGNGｦﾚも設置出来ないｱﾙﾖ、ﾅﾝﾃﾞ？？
ﾊﾟｽも間違ってﾆｬｲｱﾙﾖ
ﾛｶﾙ用のﾊﾟｽにしても
ﾛｶﾙﾃｽﾄも出来ないｱﾙﾖ？誰かｵｼｴﾙｱﾙﾖ;
ﾊﾟｽも間違ってﾆｬｲｱﾙﾖ
ﾛｶﾙ用のﾊﾟｽにしても
ﾛｶﾙﾃｽﾄも出来ないｱﾙﾖ？誰かｵｼｴﾙｱﾙﾖ;
5248
NGNG53名無しさん
NGNGんじゃ、間違ってた設定の書きなよ....。
5451
NGNG設定ﾐｽ？ｶﾓﾅ
ﾊﾟｰﾐｯｼｮﾝの間違いしか考えられないｱﾙ
ﾃﾞﾓ、ﾛｶﾙでも動かないｱﾙﾖ
httpdはapache1.3.9ｱﾙﾖ
ﾊﾟｰﾐｯｼｮﾝの間違いしか考えられないｱﾙ
ﾃﾞﾓ、ﾛｶﾙでも動かないｱﾙﾖ
httpdはapache1.3.9ｱﾙﾖ
551
NGNGweb新撰組に設置してﾓﾗｴﾖ (ｵﾌﾟ
金取るらしいｹﾄﾞ
>>47
つかXBM破りなら、御堂丘とHIDEが大分前にやってなかったｶ?
確かﾀﾝ先生の所で公開ｻﾚﾃﾀｿﾞ
金取るらしいｹﾄﾞ
>>47
つかXBM破りなら、御堂丘とHIDEが大分前にやってなかったｶ?
確かﾀﾝ先生の所で公開ｻﾚﾃﾀｿﾞ
56age
NGNGage
57
NGNG見た事あるなぁ
googleでログ探してくるわ>>55
googleでログ探してくるわ>>55
58
NGNGperlって何？
CGIのプログラムの事？
いい入門書ある？
ハクするスキルとかつく？
難しい？
やるだけの価値はある？
将来役に立つ？
カッコイイ？
CGIのプログラムの事？
いい入門書ある？
ハクするスキルとかつく？
難しい？
やるだけの価値はある？
将来役に立つ？
カッコイイ？
59名無しさん
NGNGスクリプト言語。
CGIによく使われます。
言語としての入門書は「はじめてのPerl」（オライリー）がおすすめ。
ハクするスキルとは直接関係ないかな。言語だからね。
特に難しくない。
価値は自分で判断してね。
将来役に立つかどうかは58次第。
別にかっこいくない。普通。
CGIによく使われます。
言語としての入門書は「はじめてのPerl」（オライリー）がおすすめ。
ハクするスキルとは直接関係ないかな。言語だからね。
特に難しくない。
価値は自分で判断してね。
将来役に立つかどうかは58次第。
別にかっこいくない。普通。
NGNG
インタープリタ言語ってどういう意味なんだっけ？
あとtelnet.cgi使って人のファイル削除できるの？
あとtelnet.cgi使って人のファイル削除できるの？
61うっふ〜ん
NGNG「インタプリタ言語」
プログラムを一行ずつ解読して実行していくタイプの言語です。
使いやすいという反面、大規模なアプリケーション開発には向か
ないという欠点があります。
─荒瀬遥著「初めてのC言語入門」西東社
プログラムを一行ずつ解読して実行していくタイプの言語です。
使いやすいという反面、大規模なアプリケーション開発には向か
ないという欠点があります。
─荒瀬遥著「初めてのC言語入門」西東社
65名無しさん
NGNGネタはないけどあげ
NGNG
つまんないのでさげ
67はあ？
NGNGll
68優しい名無しさん
NGNG（゜Д゜）お断りだ！
69すまんこっちにも
NGNGProxyJudge2.34以降のスクリプトが落ちてる場所を教えてくれ
ほんと頼む
ほんと頼む
701
NGNGﾘﾐｸｿも閉鎖したし久し振りにｶｷｺ♪
>>69
2.35って事ｶｲ？
確か2.34と35の違いは２行ﾀﾞｾﾞ。
大した違いじゃないし気にすんﾅﾖ。
どっかの串板に変え方書いて有るけど場所失念(^^;ﾜﾗ
http://server2047.virtualave.net/ibzrjp/aaaaa/proxyjudge.txt
http://server2047.virtualave.net/ibzrjp/aaaaa/030.zip
↑どうよｺﾚ？
>>69
2.35って事ｶｲ？
確か2.34と35の違いは２行ﾀﾞｾﾞ。
大した違いじゃないし気にすんﾅﾖ。
どっかの串板に変え方書いて有るけど場所失念(^^;ﾜﾗ
http://server2047.virtualave.net/ibzrjp/aaaaa/proxyjudge.txt
http://server2047.virtualave.net/ibzrjp/aaaaa/030.zip
↑どうよｺﾚ？
72あほ
NGNGあ
73あほ
NGNGｍ
7571
NGNG>>70
ｽﾏｿ、もう一回だけ教えてくれ.....
例えばhttp://vivit.freeshell.org/cgi-bin/p234.cgi
のように、snmpチェックの結果が表示されるようにしたいんだけどできん....
初心者のために教えてくだされ。
ｽﾏｿ、もう一回だけ教えてくれ.....
例えばhttp://vivit.freeshell.org/cgi-bin/p234.cgi
のように、snmpチェックの結果が表示されるようにしたいんだけどできん....
初心者のために教えてくだされ。
76１
NGNGｲﾏｲﾁ質問の趣旨が解らんﾖ(;´〜`)
snmpﾁェック?ﾎﾟｰﾄ161？違うって？(ｵﾌﾟ
設置しても正常に動かないって事ｶｲ？
んなもん手動でﾁｪｯｸ(ｵﾌﾟﾌﾟ
・・・・・んで、ﾏｿﾞﾚｽするともう少し詳しく教えて下さい。
流石に状況が良く解らないです。
>>74
ウンコ垂れ流しながら埋めようとしたけど、
どうでも良い事に気付いて桜庭の動画で昇天(´Д`)
snmpﾁェック?ﾎﾟｰﾄ161？違うって？(ｵﾌﾟ
設置しても正常に動かないって事ｶｲ？
んなもん手動でﾁｪｯｸ(ｵﾌﾟﾌﾟ
・・・・・んで、ﾏｿﾞﾚｽするともう少し詳しく教えて下さい。
流石に状況が良く解らないです。
>>74
ウンコ垂れ流しながら埋めようとしたけど、
どうでも良い事に気付いて桜庭の動画で昇天(´Д`)
77名前無し
NGNGこのスレの素晴らしさ
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
１の頑張りが利いてます
ハックラ板には珍しい、沈まないスレ
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
１の頑張りが利いてます
ハックラ板には珍しい、沈まないスレ
78名無しさん
NGNGこのスレの素晴らしさ
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
神 超傑作 傑作 佳作 良作 凡作 惜作 不作 駄作 超駄作 放置
┠──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┨
▲
80オシエテクソ
NGNG81名無しさん
NGNG>>79
ワラタ
ワラタ
82１
NGNGSendmail萎え
83１
NGNGnetfirm
/usr/lib/sendmail
/usr/lib/sendmail
84１
NGNG流石にそんなミスはしないってか。
8580
NGNG＞1さん
レスありがとうございます。一応今確かめたけど、やっぱあってた。
で、ブラウザで逝くと↓でした。
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
レスありがとうございます。一応今確かめたけど、やっぱあってた。
で、ブラウザで逝くと↓でした。
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
86素人名無しさん
NGNGnetfirmsって，TELNET使えるんですか？
なんかココ接続できるんですけど。。
telnet://waza.netfirms.com/
１さん教えてください。
なんかココ接続できるんですけど。。
telnet://waza.netfirms.com/
１さん教えてください。
87名無しさん
NGNG88名無しさん
NGNG前ないっけか、telnetできるところ。
今もやってるかどうか知らないけど。
今もやってるかどうか知らないけど。
89Name_Not_Found
NGNGUNIXはサーバーなのか。それともサーバーになる資格があるのか？
90１
NGNGTelnet is a shell access type program.
Most "free" services do not offer this option.
Try a telnet session and use the command
whereis perl
Good Luck
Most "free" services do not offer this option.
Try a telnet session and use the command
whereis perl
Good Luck
91１
NGNG92１
NGNG93名無し
NGNG元気球
94名無しさん
NGNG優良スレ
95名無しさんば
NGNG下がりすぎ。
96aaaa
NGNGトクトクはTelnet使えなかった？
レスを投稿する
ニュース
- ショートスリーパー堀大輔氏 １日３０分睡眠の１週間ライブ終了「体力はあり余っている」アクシデントありも完走 [Anonymous★]
- 【🦗】「気づかず半分飲んだ」くら寿司汁物に“コオロギ”混入？Threads投稿拡散、運営会社「把握している」保健所に報告 [ぐれ★]
- そりゃホームからなくなるわけだ…「立ち食いそば」が絶滅寸前の危機 哀愁漂う昭和の遺産がなくなりつつある理由 [ぐれ★]
- 「試しに持ち出して出品したところ、すぐ売れたので…」 警察署の道場にあった剣道防具を盗みフリマに出品 巡査を懲戒処分 [煮卵★]
- ラーメンの適正価格はいくら？ラーメン評論家が感じる「違和感」 [muffin★]
- 【MLB】村上宗隆を「ベンチに下げるべき」 消えた打棒に米国人辛辣「彼以外なら誰でもいい」 8月以降は153打数で打率.131、三振率41.8％ [ちょこ★]
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪 ★2
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪 ★2
- サウジアラビア「助けて！東、南、北の3方向から攻撃受けてるの！」トランプ「そう・・・（無関心）」 ★2 [633746646]
- サウジアラビア「助けて！東、南、北の3方向から攻撃受けてるの！」トランプ「そう・・・（無関心）」 [303493227]
- 【悲報】習近平、逝きそう [199590541]