| Code Perl |
sub MailDo {local($To,$From,$Cc,$Subject,$Html,$NoHtml) = @_;
local $x = "";
$x .= "To: ".$To."\nFrom: ".$From."\n".(($Cc ne "")?"Cc: ".$Cc."\n":"")."Subject: ".$Subject."\n";
if ($Html eq "") {
$x .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n\n".$NoHtml."\n";
return $x;
}
local %Timg = ();
$x .= "Content-Type: multipart/related; type=\"multipart/alternative\"; boundary=\"----=1\"\n\n";
$x .= "------=1\n";
$x .= "Content-Type: multipart/alternative; boundary=\"----=2\"\n\n";
$x .= "\n";
local($y,$y1,$y2);
$x .= "------=2\n";
$x .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n\n".$NoHtml."\n";
while($Html=~/src=\"\.\.\/\.\.\/dircad\/\w+\/(\w+)\.(\w+)\"/) {
$Timg{$1.".".$2} = "true";
$Html =~ s/src=\"\.\.\/\.\.\/dircad\/\w+\/(\w+)\.(\w+)\"/src=\"cid:$1\@mailer\"/;
}
$x .= "------=2\n";
$x .= "Content-Type: text/html; charset=\"iso-8859-1\"\n\n".$Html."\n";
$x .= "------=2--\n\n";
foreach $y (keys %Timg) {
$y=~/(\w+)\.(\w+)/; $y1 = $1; $y2 = $2;
$x .= "------=1\n";
$x .= "Content-Type: ".(($y2 eq "gif")?"image/gif":(($y2 eq "jpg")||($y2 eq "jpeg")?"image/jpeg":"text/plain"))."; name=\"".$y1.".".$y2."\"\n";
$x .= "Content-Transfer-Encoding: base64\n";
$x .= "Content-ID: <".$y1."\@mailer>\n";
$x .= "\n";
if ($y1 eq "CADEMENA2") {
$x .= "R0lGODlhnAFKAPcAAAAAAGtjKc6lSs7GSvf33v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$x .= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAACcAUoA\n";
$x .= "AAj+AAsIHEiwoMGDCBMqXMiwocOHECNKnEixosWLGDNq3Mixo8ePIEOKHEmypMmQAVKqXMmypcuX\n";
$x .= "K0/KnEmzps2bOEHC3MlzZ86fQIMKHUq0YsoBSJMqXcq0qdOURaNKnUq1KsoATrNqzQrVqtevYMN6\n";
$x .= "Pbq1bNmuYtOqXctWJFmzcJuibUu3rt2wASS+jcsX6VyDee8KHkzYpMqIe/vG/UswcOHHkCMbxXq4\n";
$x .= "YWLFZhkL1Cy5s+fPbysvvIx5q2bOn1OrFnwZ9UDSpbk6fj17te3bbWG7hh1bbu0Crj0DAFBwOO7j\n";
$x .= "UXkPEF1QeW+lc5njHk6cunHk2IE6X34a6/Ozjin+Zxdo3fr48zW3J/2r/jla8efLU0dP37D3xbPb\n";
$x .= "9+4KP7584hCZl5OA9VWlH3T83fedbEf9hh6BDkFok4QFFnXgUiwtaBpZDn4kn1cUKhTiTCNWGNSF\n";
$x .= "vvWk4op+lfQfgFWVaJCMJtFo4k8oYrjijju1ONKL88V4XUNB/lTkjVOpVNpKBDTp5JNQRimllJR1\n";
$x .= "yBGENho5JENb4nQkklShmBIBY05p5plRVkkShVl62aWIMA74JphSHVhmmWjmOWWVVm705UB/EhUo\n";
$x .= "nYQipqBWeOKp56JNUsbdj4MOKpSkhVbKEI+YwoSmko+KROmcQ1Fq6agJZWoqk3sqGNxFbU4lKqn+\n";
$x .= "E4F6G6caPhUAlYeuatGrQsoKa6y+BhWsRrTWypSiZB7aqYe8LoTlsBERmGV5wILKK7XVRnsktOQV\n";
$x .= "CW2rcDYLbnGRDlessQg6SZquFDWb0H+AckvkhwXQ+KJEIdoLr7by7ltvnO8CCfCM9Lbrb7jykjun\n";
$x .= "gDn2Naay6/W5q7sHCUyxsxYPTHDBEbKpL8cdX5sxlxYjPC5BApN8cbd/YgscjwLELDOmiEpc0cko\n";
$x .= "X3evRkHuHPB8+b7pcrwlUhv0wCAj1PPBSuucNNHG4Wx00T4rjLTHRWIq88w81szsykTnPPTEcTJt\n";
$x .= "NYyBPiuh2SwPmfa2bIst9sdzWyttwm2j/Xb+yhsDDHLB+m0dM35ee4Rz22fz/OXTUMvdd91lx612\n";
$x .= "xXBH7evaH/s9otoaIzx3305jrTnnWUPslOACEC7b153Pq/HhG1MuKeave2t55E/T3rTeoYcre+ss\n";
$x .= "/y68wgG2fPXiY/+Lu/Jylx4X6qrbyrrBdgP/6uazV1672wDafvv2o+8edvC7d/6p8XuPfrX4IYMP\n";
$x .= "9NC9k+88UsNpBT1cyrHLL/C+s+//zz9rHfIWtrTxKa866SOe7MjHwNgN73+NeyDiyAVBz4EOSPEy\n";
$x .= "4NJg9Jb6ZeV+mTGdX2xWLf4BUIIEc135AqjAx/1rfAISXQsdWLkTJs6Gn3NhBNvHw/JhsFv+MOQe\n";
$x .= "B0XIFBCCp3BXOly5LmdC5qHQcTtUoPcYmEAoptCJBnTgDRcIOhR6rIIsFF8M4+fEKW7GOx78oOCi\n";
$x .= "5xvDgQ2LW7wg/KonqwEez2nNM6PVckjDLi3xd3UkYBUnSEEuuk6AggRiBuE4vzSebo34I6L+HqJE\n";
$x .= "OiLyhw2sGw6PhkfE1VCHVOve8cDIuBcC8my8E9olKcnE7SmyjFtyHnW2YsQNIdFPb0yfJf8myOyJ\n";
$x .= "8ovvSyUje5k3AKKvgnEzJSoh90sC4jCA1kukGT/5sgE48pFbY+OxSLg/6gHSfKI84AyhVr0DHjOY\n";
$x .= "jYsl+hAoo/cZcpzmJOYFyfm9RD7xlCv+jJ062cnHo1yzKbWs2S0Vh7cs0vOd/UNo3hjXu31yTo6i\n";
$x .= "cqcW4fm9J6IznlXL2TMtqNDg7XOYQ0rJLGkJyRAONCPJU9kd39ZDjeoypbBEYB7hidFhSZSmutOl\n";
$x .= "PuuJSZpm0oer7OhNGyhSAKBLRyfFCEwTysyJMjWD62ynEGvox14ykZykVCU/u+i4e5USjk714VMN\n";
$x .= "utAZFvWoCEoqq052zgGycpRRNaH3qipTK8aTZFgVKl1/ystmblCureTfV/84TysGYKRo5Y5a11rQ\n";
$x .= "tn70rVd0a0Qdqr5RQg5jmkTo2P6ax+WVlZBg5CNQw6jDvBr2n+jKHzf310S7cha0KpP+4l7P51Cu\n";
$x .= "WjGZIA2qaeU3V3Fii2NSBWwrwWpX0RZzhohNrGpZF809BjGjKtUoITf4VBlOlIxODaVL9cg3TCbP\n";
$x .= "l1c0bjoDCc51vhO1qZXkaouHPfVpELrRpeI0lxi+OL63mV70pd7EKV9/VY2TErRuH+1p0aMRLbFp\n";
$x .= "XR1zK4vKu+EWqNpz2XeP6VyI7pa/4qVn6IB7sA7T173infCGOwpbDDcYAERcSkBls1jGTk10m/0q\n";
$x .= "NElH47uGtb0SfvHeMPbbjDKNXgzVsVZXirsiezafGa5pipWyYlu12MV8Y6b7WntiOZ7YwKVtqpQJ\n";
$x .= "O2MNE9mQySxZlssaY/MslbgmZmb+4Ep6ROl5SsxWJnH7rDrllO4Ywlcup8mMbLc565dtnAR0T/V6\n";
$x .= "SeusOZuRdPObB21fN+oUwnr26XGvvFHKFdbFaPZyeTcd5AffWayHlpk2RyiTM0t3Tc2NL5zk/Eok\n";
$x .= "V7p4BP2lqqkn41YRuGm0eR6bbamjX/m6mz+FVEHTs+SkNNk3vf61smf9xtSEenCJjtiEhr1ssOgO\n";
$x .= "Sc9OXbSXRZNmV7tXlr1RtlU3ya99mzBBo9O4E11uc59bMOVSd7GRcuxtttvRVH43uFl9Hq0JLlNa\n";
$x .= "8ra+J8VSee8IdZgCCuwGHqo+M/zhEOcXvyNO8YgXvOIYzzhsBa7xjhOqx9T2uMgSPx7lkZv83fA9\n";
$x .= "ucqVzfGVQyQgADs=\n";
next;
}
local($x0,$k);
open(F1,"<"."wwImages.txt"); $x0 = join("",<F1>); close(F1);
if (($k=index($x0,"\/#(".$y.":\n"))==-1) {next}; $x0 = substr($x0,$k+length($y)+5);
if (($k=index($x0,"\/#)\n"))==-1) {next}; $x0 = substr($x0,0,$k);
$x .= $x0;
}
$x .= "------=1--\n\n";
return $x;
}
|
| Code JavaScript |
function MailDo(To,From,Cc,Subject,Html,NoHtml) {
var x = "";
x += "To: "+To+"\nFrom: "+From+"\n"+((Cc!="")?"Cc: "+Cc+"\n":"")+"Subject: "+Subject+"\n";
if (Html=="") {
x += "Content-Type: text/plain; charset=\"iso-8859-1\"\n\n"+NoHtml+"\n";
return x;
}
var Timg = Array();
x += "Content-Type: multipart/related; type=\"multipart/alternative\"; boundary=\"----=1\"\n\n";
x += "------=1\n";
x += "Content-Type: multipart/alternative; boundary=\"----=2\"\n\n";
x += "\n";
var y,y1,y2;
x += "------=2\n";
x += "Content-Type: text/plain; charset=\"iso-8859-1\"\n\n"+NoHtml+"\n";
while(Html.match(/src=\"\.\.\/\.\.\/dircad\/\w+\/(\w+)\.(\w+)\"/)) {
Timg[RegExp.$1+"."+RegExp.$2] = "true";
Html = Html.replace(/src=\"\.\.\/\.\.\/dircad\/\w+\/(\w+)\.(\w+)\"/,"src=\"cid:$1\@mailer\"");
}
x += "------=2\n";
x += "Content-Type: text/html; charset=\"iso-8859-1\"\n\n"+Html+"\n";
x += "------=2--\n\n";
for(y in Timg) {
y.match(/(\w+)\.(\w+)/); y1 = RegExp.$1; y2 = RegExp.$2;
x += "------=1\n";
x += "Content-Type: "+((y2=="gif")?"image/gif":((y2=="jpg")||(y2=="jpeg")?"image/jpeg":"text/plain"))+"; name=\""+y1+"."+y2+"\"\n";
x += "Content-Transfer-Encoding: base64\n";
x += "Content-ID: <"+y1+"\@mailer>\n";
x += "\n";
if (y1=="CADEMENA2") {
x += "R0lGODlhnAFKAPcAAAAAAGtjKc6lSs7GSvf33v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
x += "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAACcAUoA\n";
x += "AAj+AAsIHEiwoMGDCBMqXMiwocOHECNKnEixosWLGDNq3Mixo8ePIEOKHEmypMmQAVKqXMmypcuX\n";
x += "K0/KnEmzps2bOEHC3MlzZ86fQIMKHUq0YsoBSJMqXcq0qdOURaNKnUq1KsoATrNqzQrVqtevYMN6\n";
x += "Pbq1bNmuYtOqXctWJFmzcJuibUu3rt2wASS+jcsX6VyDee8KHkzYpMqIe/vG/UswcOHHkCMbxXq4\n";
x += "YWLFZhkL1Cy5s+fPbysvvIx5q2bOn1OrFnwZ9UDSpbk6fj17te3bbWG7hh1bbu0Crj0DAFBwOO7j\n";
x += "UXkPEF1QeW+lc5njHk6cunHk2IE6X34a6/Ozjin+Zxdo3fr48zW3J/2r/jla8efLU0dP37D3xbPb\n";
x += "9+4KP7584hCZl5OA9VWlH3T83fedbEf9hh6BDkFok4QFFnXgUiwtaBpZDn4kn1cUKhTiTCNWGNSF\n";
x += "vvWk4op+lfQfgFWVaJCMJtFo4k8oYrjijju1ONKL88V4XUNB/lTkjVOpVNpKBDTp5JNQRimllJR1\n";
x += "yBGENho5JENb4nQkklShmBIBY05p5plRVkkShVl62aWIMA74JphSHVhmmWjmOWWVVm705UB/EhUo\n";
x += "nYQipqBWeOKp56JNUsbdj4MOKpSkhVbKEI+YwoSmko+KROmcQ1Fq6agJZWoqk3sqGNxFbU4lKqn+\n";
x += "E4F6G6caPhUAlYeuatGrQsoKa6y+BhWsRrTWypSiZB7aqYe8LoTlsBERmGV5wILKK7XVRnsktOQV\n";
x += "CW2rcDYLbnGRDlessQg6SZquFDWb0H+AckvkhwXQ+KJEIdoLr7by7ltvnO8CCfCM9Lbrb7jykjun\n";
x += "gDn2Naay6/W5q7sHCUyxsxYPTHDBEbKpL8cdX5sxlxYjPC5BApN8cbd/YgscjwLELDOmiEpc0cko\n";
x += "X3evRkHuHPB8+b7pcrwlUhv0wCAj1PPBSuucNNHG4Wx00T4rjLTHRWIq88w81szsykTnPPTEcTJt\n";
x += "NYyBPiuh2SwPmfa2bIst9sdzWyttwm2j/Xb+yhsDDHLB+m0dM35ee4Rz22fz/OXTUMvdd91lx612\n";
x += "xXBH7evaH/s9otoaIzx3305jrTnnWUPslOACEC7b153Pq/HhG1MuKeave2t55E/T3rTeoYcre+ss\n";
x += "/y68wgG2fPXiY/+Lu/Jylx4X6qrbyrrBdgP/6uazV1672wDafvv2o+8edvC7d/6p8XuPfrX4IYMP\n";
x += "9NC9k+88UsNpBT1cyrHLL/C+s+//zz9rHfIWtrTxKa866SOe7MjHwNgN73+NeyDiyAVBz4EOSPEy\n";
x += "4NJg9Jb6ZeV+mTGdX2xWLf4BUIIEc135AqjAx/1rfAISXQsdWLkTJs6Gn3NhBNvHw/JhsFv+MOQe\n";
x += "B0XIFBCCp3BXOly5LmdC5qHQcTtUoPcYmEAoptCJBnTgDRcIOhR6rIIsFF8M4+fEKW7GOx78oOCi\n";
x += "5xvDgQ2LW7wg/KonqwEez2nNM6PVckjDLi3xd3UkYBUnSEEuuk6AggRiBuE4vzSebo34I6L+HqJE\n";
x += "OiLyhw2sGw6PhkfE1VCHVOve8cDIuBcC8my8E9olKcnE7SmyjFtyHnW2YsQNIdFPb0yfJf8myOyJ\n";
x += "8ovvSyUje5k3AKKvgnEzJSoh90sC4jCA1kukGT/5sgE48pFbY+OxSLg/6gHSfKI84AyhVr0DHjOY\n";
x += "jYsl+hAoo/cZcpzmJOYFyfm9RD7xlCv+jJ062cnHo1yzKbWs2S0Vh7cs0vOd/UNo3hjXu31yTo6i\n";
x += "cqcW4fm9J6IznlXL2TMtqNDg7XOYQ0rJLGkJyRAONCPJU9kd39ZDjeoypbBEYB7hidFhSZSmutOl\n";
x += "PuuJSZpm0oer7OhNGyhSAKBLRyfFCEwTysyJMjWD62ynEGvox14ykZykVCU/u+i4e5USjk714VMN\n";
x += "utAZFvWoCEoqq052zgGycpRRNaH3qipTK8aTZFgVKl1/ystmblCureTfV/84TysGYKRo5Y5a11rQ\n";
x += "tn70rVd0a0Qdqr5RQg5jmkTo2P6ax+WVlZBg5CNQw6jDvBr2n+jKHzf310S7cha0KpP+4l7P51Cu\n";
x += "WjGZIA2qaeU3V3Fii2NSBWwrwWpX0RZzhohNrGpZF809BjGjKtUoITf4VBlOlIxODaVL9cg3TCbP\n";
x += "l1c0bjoDCc51vhO1qZXkaouHPfVpELrRpeI0lxi+OL63mV70pd7EKV9/VY2TErRuH+1p0aMRLbFp\n";
x += "XR1zK4vKu+EWqNpz2XeP6VyI7pa/4qVn6IB7sA7T173infCGOwpbDDcYAERcSkBls1jGTk10m/0q\n";
x += "NElH47uGtb0SfvHeMPbbjDKNXgzVsVZXirsiezafGa5pipWyYlu12MV8Y6b7WntiOZ7YwKVtqpQJ\n";
x += "O2MNE9mQySxZlssaY/MslbgmZmb+4Ep6ROl5SsxWJnH7rDrllO4Ywlcup8mMbLc565dtnAR0T/V6\n";
x += "SeusOZuRdPObB21fN+oUwnr26XGvvFHKFdbFaPZyeTcd5AffWayHlpk2RyiTM0t3Tc2NL5zk/Eok\n";
x += "V7p4BP2lqqkn41YRuGm0eR6bbamjX/m6mz+FVEHTs+SkNNk3vf61smf9xtSEenCJjtiEhr1ssOgO\n";
x += "Sc9OXbSXRZNmV7tXlr1RtlU3ya99mzBBo9O4E11uc59bMOVSd7GRcuxtttvRVH43uFl9Hq0JLlNa\n";
x += "8ra+J8VSee8IdZgCCuwGHqo+M/zhEOcXvyNO8YgXvOIYzzhsBa7xjhOqx9T2uMgSPx7lkZv83fA9\n";
x += "ucqVzfGVQyQgADs=\n";
continue;
}
var x0,k;
x0 = "";
if ((k=x0.indexOf("\/#("+y+":\n"))==-1) {continue}; x0 = x0.substr(k+y.length+5);
if ((k=x0.indexOf("\/#)\n"))==-1) {continue}; x0 = x0.substr(0,k);
x += x0;
}
x += "------=1--\n\n";
return x;
}
|