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

投稿時間:01/11/14(Wed) 20:12
投稿者名:りょうぞう
Eメール:ryozo@r-ken.co.jp
URL :
タイトル:ショッピングバスケットプロV5 iMode(web裏技)

ショッピングバスケットプロのiMode専用対応版Ver5.06iのメール部分
の改造です。

修正ファイルは icago.cgi の1つです。

コメントにする
557 if ($hiho) {
から
606 close(OUT);
まで


614 if ($hiho) {
から
634 close(OUT);
まで


追加する
634のあと
$msg = "$head\n" . "受付番号\n$in{'_order'}\n" . "\n$ORDERs2\n" . "$signature\n";
use Win32::OLE;
$oBasp = Win32::OLE->new('basp21');
$oBasp->SendMail("mail.rocket3.net","$in{'_EMAIL'}","$mailto","\[$in{'_order'}\] $SUBJECT(受付)","$msg","");

606のあと
$msg = "";
foreach $value (@ORDER) {
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/&lt;/</g;
$value =~ s/&gt;/>/g;
$msg = "$msg\n" . "$value\n";
}

foreach $value (@MAIL) {
($name,$value) = split(/\0/,$value);
$name =~ s/&amp;/&/g;
$name =~ s/&quot;/"/g;
$name =~ s/&lt;/</g;
$name =~ s/&gt;/>/g;
$value =~ s/&amp;/&/g;
$value =~ s/&quot;/"/g;
$value =~ s/&lt;/</g;
$value =~ s/&gt;/>/g;
$msg = "$msg\n" . "$value\n";
}

$msg = "$msg\n" . "\n";
$msg = "$msg\n" . "User-Agent : $ENV{'HTTP_USER_AGENT'}\n";
$msg = "$msg\n" . "Remote-host: $host\n";
$msg = "$msg\n" . "Remote-Addr: $ENV{'REMOTE_ADDR'}\n";

use Win32::OLE;
$oBasp = Win32::OLE->new('basp21');
$oBasp->SendMail("mail.rocket3.net","$mailto","$in{'_EMAIL'}","\[$in{'_order'}\] $SUBJECT","$msg","");

以上です。
再配布禁止のため、修正版はUPできません。


このメッセージに返信する場合は下記フォームから投稿して下さい

おなまえ
Eメール
題   名
メッセージ    手動改行 強制改行 図表モード
URL
削除キー (記事削除時に使用。英数字で8文字以内)
プレビュー

以下のフォームから自分の投稿した記事を削除できます
■記事No ■削除キー



- Web Forum -