トップ> perl scripts> メール送信のcgi/perlスクリプト関数
メール送信のcgi/perlスクリプト関数
メール送信のcgi/perlスクリプト関数です。どこかでmimeエンコードしないといけないけど。
sub SendMAIL
{
my( $from, $to, $reply, $subject, $data ) = @_;
my $send_buf='';
$send_buf .= "From: $from¥n";
$send_buf .= "To: $to¥n";
$send_buf .= "Return-Path: $reply¥n";
$send_buf .= "Subject: $subject¥n";
$send_buf .= "Content-Type: text/plain; charset=ISO-2022-JP¥n";
$send_buf .= "¥n";
$send_buf .= $data;
&Jcode::convert(¥$send_buf, 'jis');
if(!open(MAIL, "| $SENDMAIL -t ")){
return -1;
}
print MAIL $send_buf;
close MAIL ;
return 0;
}
カテゴリ内の記事
- 404ファイルが存在しないを自前で作る(2005/09/14)
- .htaccessでSSIを有効に(2005/09/24)
- HTMLのタグ変換、改行変換などのCGI/PERLスクリプト(2005/10/01)
- メール送信のcgi/perlスクリプト関数(2005/10/01)
- 配列の個数(2005/10/05)
- FTPコマンドで自動ログイン(2006/04/11)
- お気に入り追加(2006/05/02)
- 続)メールのヘッダをMIMEエンコード(2006/05/08)
- Perl Net::ftpで単純なFTP送信(2006/05/12)
- Perlでsocketのタイムアウト(2006/07/12)
