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

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

web裏技
http://www.rescue.ne.jp/
簡易ショッピングバスケットプロV6 (cagopro6.04)のメール送信部分
を改造し、送信文字数の制限ははずします。

1-----
cart.cgi
821行目 if (!open(OUT,"| $sendmail〜
から
881行目 close(OUT);
までをすべて行頭に#をつけ、コメント行にする。
2-----
さらにそのあとに以下の行を追加
#----------------------------------
$msg = "";
foreach (@in) {
s/"/"/g;
s/&/&/g;
s/&lt;/</g;
s/&gt;/>/g;
if (/^\.\t(.*)/) { $msg = "$msg" . "$1\n"; }
elsif (/(.*)\t(.*)/) {$msg = "$msg" . "[$1]\n$2\n\n"; }
}
$msg = "$msg\n" . "$sign\n";
use Win32::OLE;
$oBasp = Win32::OLE->new('basp21');
$oBasp->SendMail("mail.rocket3.net","$mailto_order","$in{'_email'}","[$date_num] $mail_subject","$msg","");

$msg = "$mail_mes\n";
foreach (@in) {
s/&quot;/"/g;
s/&amp;/&/g;
s/&lt;/</g;
s/&gt;/>/g;
if (/^\.\t(.*)/) { $msg = "$msg" . "$1\n"; }
elsif (/(.*)\t(.*)/) { $msg = "$msg" . "[$1]\n$2\n\n"; }
}
$msg = "$msg\n" . "--- 特定商取引に関する法律による表\示 ---\n\n";
foreach (@info) { $msg = "$msg" . "$_"; }
$msg = "\n$msg" . "$sign\n";
$oBasp->SendMail("mail.rocket3.net","$in{'_email'}","$mailto_order","[$date_num] $copy_subject","$msg","");
#----------------------------------


※残念ながら再配布は禁止ということなので修正版はUPできません。


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

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

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



- Web Forum -