[リストへもどる]
一括表示

このプログラム正しいですか? 投稿者:りんこ 投稿日:05/13-23:39 No.259
はじめまして。
藁をも掴む思いでご相談させてください。

flashからデータを受け取り、
flashへ値を返すメールCGIを作っていますが、
このプログラムが正しいのかどうか、わかりません。
これではメールが送られないのです。
どうか、アドバイスお願いします。

#!/usr/bin/perl

$sendmail = '/usr/lib/sendmail';
require 'jcode.pl';
$mail_to = 'メアド';
$mail_from = 'メアド';
$Subject = 'testCGI';


sub FormDecord{
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
foreach (split(/&/,$buffer)){
($name,$value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack('C',hex($1))/eg;
$value =~ s/\r/\n/g;
$value =~ s/\n\n/\n/g;
&jcode'convert(*value,'sjis');
$param{$name}=$value;
}

sub Sendmail {
&jcode'convert(*Subject,'jis');
&jcode'convert(*Body,'jis');
if(open(OUT,"|$sendmail| -t -f $mail_from")){
print OUT "$param{'name'}.\n";
print OUT "$param{'mail'}.\n";
print OUT "$param{'address'}.\n"
print OUT "$param{'question'}.\n";
close(OUT);
&returnflash(1);
}elsif(!open(OUT,"$Sendmail"){
&returnflash(9);
}
exit;

sub returnflash{
print "Content-type: text/html\n\n";
print "result=$_[0]";
}

Re: このプログラム正しいですか? 投稿者:りんこ 投稿日:05/14-14:32 No.260
失礼しました。
場違いだったようです。

スルーしてください。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード


- KENT -
- Edit : Alchemia -