ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ (ｵﾌﾟ
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欲しい時は、その辺のスクリプト貰ってきて
改造しちゃってるの?
つか、それ位ならｵｹかな
レスを投稿する
ニュース
- ショートスリーパー堀大輔氏 １日３０分睡眠の１週間ライブ終了「体力はあり余っている」アクシデントありも完走 [Anonymous★]
- 【🦗】「気づかず半分飲んだ」くら寿司汁物に“コオロギ”混入？Threads投稿拡散、運営会社「把握している」保健所に報告 [ぐれ★]
- そりゃホームからなくなるわけだ…「立ち食いそば」が絶滅寸前の危機 哀愁漂う昭和の遺産がなくなりつつある理由 [ぐれ★]
- 「試しに持ち出して出品したところ、すぐ売れたので…」 警察署の道場にあった剣道防具を盗みフリマに出品 巡査を懲戒処分 [煮卵★]
- ラーメンの適正価格はいくら？ラーメン評論家が感じる「違和感」 [muffin★]
- 【MLB】村上宗隆を「ベンチに下げるべき」 消えた打棒に米国人辛辣「彼以外なら誰でもいい」 8月以降は153打数で打率.131、三振率41.8％ [ちょこ★]
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪 ★2
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪
- 【実況】博衣こよりのえちえちカプコンスポットライト🧪 ★2
- サウジアラビア「助けて！東、南、北の3方向から攻撃受けてるの！」トランプ「そう・・・（無関心）」 ★2 [633746646]
- サウジアラビア「助けて！東、南、北の3方向から攻撃受けてるの！」トランプ「そう・・・（無関心）」 [303493227]
- 【悲報】習近平、逝きそう [199590541]