CGI 質問掲示板
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

このプログラム正しいですか? 投稿者:りんこ 投稿日: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]";
}


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
お名前
Eメール 非表示
URL
タイトル
メッセージ    手動改行 強制改行 図表モード   プレビュー
パスワード (記事のメンテ時に使用。英数字で8文字以内)
タイトル色

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


- KENT -
- Edit : Alchemia -