Fixed logfile writing in installation phase, .revision is now ignored
[mailer.git] / inc / libs / newsletter_functions.php
1 <?php
2 /************************************************************************
3  * MXChange v0.2.1                                    Start: 04/25/2004 *
4  * ================                             Last change: 04/29/2004 *
5  *                                                                      *
6  * -------------------------------------------------------------------- *
7  * File              : newsletter_functions.php                          *
8  * -------------------------------------------------------------------- *
9  * Short description : Functions for the HTML extension                 *
10  * -------------------------------------------------------------------- *
11  * Kurzbeschreibung  : Funktionen fuer die HTML-Erweiterung             *
12  * -------------------------------------------------------------------- *
13  * $Revision:: 856                                                    $ *
14  * $Date:: 2009-03-06 20:24:32 +0100 (Fr, 06. Mär 2009)              $ *
15  * $Tag:: 0.2.1-FINAL                                                 $ *
16  * $Author:: stelzi                                                   $ *
17  * Needs to be in all Files and every File needs "svn propset           *
18  * svn:keywords Date Revision" (autoprobset!) at least!!!!!!            *
19  * -------------------------------------------------------------------- *
20  * Copyright (c) 2003 - 2008 by Roland Haeder                           *
21  * For more information visit: http://www.mxchange.org                  *
22  *                                                                      *
23  * This program is free software; you can redistribute it and/or modify *
24  * it under the terms of the GNU General Public License as published by *
25  * the Free Software Foundation; either version 2 of the License, or    *
26  * (at your option) any later version.                                  *
27  *                                                                      *
28  * This program is distributed in the hope that it will be useful,      *
29  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
30  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
31  * GNU General Public License for more details.                         *
32  *                                                                      *
33  * You should have received a copy of the GNU General Public License    *
34  * along with this program; if not, write to the Free Software          *
35  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
36  * MA  02110-1301  USA                                                  *
37  ************************************************************************/
38
39 // Some security stuff...
40 if (!defined('__SECURITY')) {
41         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
42         require($INC);
43 }
44
45 //
46 function NL_ADD_VALID_TAGS () {
47         $OUT = "";
48         if (!is_array($GLOBALS['html_tags'])) return "";
49         foreach ($GLOBALS['html_tags'] as $tag) {
50                 $OUT .= ", ".strtoupper($tag);
51         }
52         $OUT = substr($OUT, 2);
53         return $OUT;
54 }
55
56 //
57 function NL_CHECK_TAGS ($html) {
58         $test = stripslashes($html);
59         while (ereg("<", $test) && ereg(">", $test)) {
60                 $check = strtolower(substr($test, strpos($test, "<") + 1, strpos($test, ">") - strpos($test, "<") - 1));
61                 $check = str_replace("/", "", $check);
62                 if (!in_array($check, $GLOBALS['html_tags'])) {
63                         // Invalid tag found!
64                         return "";
65                 }
66                 $test = substr($test, strpos($test, ">") + 1);
67         }
68         // Return tested code
69         return $html;
70 }
71
72 //
73 function NL_INSERT_URLS ($text) {
74         $test = $text;
75
76         // First replace URLs...
77         while (ereg("http://", $test)) {
78                 $check = substr($test, strpos($test, "http://")); $check2 = $check;
79
80                 // See ext-html.php if you want to add more URL ends...
81                 foreach ($GLOBALS['url_ends'] as $end) {
82                         if (ereg($end, $check)) $check = substr($check, 0, strpos($check, $end));
83                 }
84
85                 // Now replace the URL against anchor container and pray...
86                 $text = substr($text, 0, strpos($text, $check2)) . DEREFERER($check) . substr($text, strpos($text, $check2) + strlen($check));
87
88                 // Finally remove the url from testing string (or we have a loop and maybe server overload!)
89                 $test = substr($test, strpos($test, $check) + strlen($check));
90         }
91
92         // Now do the (nearly) same thing with email addresses
93         // but now we have the problem that email addresses didn't have
94         // a start mark like http:// and our templates are lame didn't have
95         // a mailto: ... :-(
96         $test = $text;
97
98         // ... what will the email address be out the @... ;-)
99         $PARTS = array();
100         while (ereg("@", $test)) {
101                 $pos = strpos($test, "@");
102                 $test2 = substr($test, 0, $pos);
103
104                 // First check backwards
105                 $idx = $pos - 1;
106                 while ($idx > 0) {
107                         $check = substr($test2, $idx, 1);
108                         if (!in_array($check, $GLOBALS['valid_email_chars']))
109                         {
110                                 // Char found so we end here
111                                 break;
112                         }
113                         $idx--;
114                 }
115
116                 if ($idx > 0) {
117                         // Starting mark is found
118                         $check2 = substr($test, 0, ($idx + 1));
119                         $test = substr($test, ($idx + 1));
120                 }
121
122                 // And now go forward...
123                 $idx = 0;
124                 while ($idx < strlen($test)) {
125                         $check = substr($test, $idx, 1);
126                         if ((!in_array($check, $GLOBALS['valid_email_chars'])) && ($check != "@")) {
127                                 // Char found so end here again
128                                 break;
129                         }
130                         $idx++;
131                 }
132
133                 if ($idx > 0) {
134                         // Maybe this is the email address?
135                         $check = substr($test, 0, $idx);
136                 }
137
138                 // Now replace the email against anchor with mailto and pray...
139                 $PARTS[] = $check2.$check;
140
141                 // Remove email from testing string (see above why...)
142                 $test = substr($test, strlen($check));
143         }
144
145         // Now put all parts together
146         $text = ""; $PARTS[] = $test;
147         foreach ($PARTS as $part) {
148                 $text .= $part;
149         }
150
151         // Compile possible own HTML tags out...
152         return COMPILE_CODE($text);
153 }
154
155 //
156 function SEND_NEWSLETTER ($TO, $SUBJECT, $MSG, $MODE) {
157         // Send mail away as HTML
158         if (REQUEST_POST('auto_urls') == "Y") {
159                 // Automatically insert URLs into newsletter
160                 if ((EXT_IS_ACTIVE("html")) && ($MODE == "html")) {
161                         // Send HTML mail
162                         SEND_EMAIL($TO, $SUBJECT, HTML_INSERT_URLS($MSG), "Y");
163                 } else {
164                         // Send normal mail
165                         SEND_EMAIL($TO, $SUBJECT, NL_INSERT_URLS($MSG), "N");
166                 }
167         } else {
168                 // Regular send-out
169                 if ((EXT_IS_ACTIVE("html")) && ($MODE == "html")) {
170                         SEND_EMAIL($TO, $SUBJECT, $MSG, "Y");
171                 } else {
172                         SEND_EMAIL($TO, $SUBJECT, $MSG, "N");
173                 }
174         }
175 }
176
177 //
178 ?>