+++ /dev/null
-<?php
-/************************************************************************
- * MXChange v0.2.1 Start: 04/25/2004 *
- * ================ Last change: 04/29/2004 *
- * *
- * -------------------------------------------------------------------- *
- * File : newsletter_functions.php *
- * -------------------------------------------------------------------- *
- * Short description : Functions for the HTML extension *
- * -------------------------------------------------------------------- *
- * Kurzbeschreibung : Funktionen fuer die HTML-Erweiterung *
- * -------------------------------------------------------------------- *
- * *
- * -------------------------------------------------------------------- *
- * Copyright (c) 2003 - 2008 by Roland Haeder *
- * For more information visit: http://www.mxchange.org *
- * *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or *
- * (at your option) any later version. *
- * *
- * This program is distributed in the hope that it will be useful, *
- * but WITHOUT ANY WARRANTY; without even the implied warranty of *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
- * GNU General Public License for more details. *
- * *
- * You should have received a copy of the GNU General Public License *
- * along with this program; if not, write to the Free Software *
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
- * MA 02110-1301 USA *
- ************************************************************************/
-
-// Some security stuff...
-if (ereg(basename(__FILE__), $_SERVER['PHP_SELF']))
-{
- $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
- require($INC);
-}
-//
-function NL_ADD_VALID_TAGS()
-{
- global $HTML_TAGS; $OUT = "";
- if (!is_array($HTML_TAGS)) return "";
- foreach ($HTML_TAGS as $tag)
- {
- $OUT .= ", ".strtoupper($tag);
- }
- $OUT = substr($OUT, 2);
- return $OUT;
-}
-//
-function NL_CHECK_TAGS($html)
-{
- global $HTML_TAGS;
- $test = stripslashes($html);
- while (ereg("<", $test) && ereg(">", $test))
- {
- $check = strtolower(substr($test, strpos($test, "<") + 1, strpos($test, ">") - strpos($test, "<") - 1));
- $check = str_replace("/", "", $check);
- if (!in_array($check, $HTML_TAGS))
- {
- // Invalid tag found!
- return "";
- }
- $test = substr($test, strpos($test, ">") + 1);
- }
- // Return tested code
- return $html;
-}
-//
-function NL_INSERT_URLS($text)
-{
- global $URL_ENDS, $VALID_EMAIL_CHARS;
- $test = $text;
-
- // First replace URLs...
- while (ereg("http://", $test))
- {
- $check = substr($test, strpos($test, "http://")); $check2 = $check;
-
- // See ext-html.php if you want to add more URL ends...
- foreach ($URL_ENDS as $end)
- {
- if (ereg($end, $check)) $check = substr($check, 0, strpos($check, $end));
- }
-
- // Now replace the URL against anchor container and pray...
- $text = substr($text, 0, strpos($text, $check2)) . DEREFERER($check) . substr($text, strpos($text, $check2) + strlen($check));
-
- // Finally remove the url from testing string (or we have a loop and maybe server overload!)
- $test = substr($test, strpos($test, $check) + strlen($check));
- }
-
- // Now do the (nearly) same thing with email addresses
- // but now we have the problem that email addresses didn't have
- // a start mark like http:// and our templates are lame didn't have
- // a mailto: ... :-(
- $test = $text;
-
- // ... what will the email address be out the @... ;-)
- $PARTS = array();
- while (ereg("@", $test))
- {
- $pos = strpos($test, "@");
- $test2 = substr($test, 0, $pos);
-
- // First check backwards
- $idx = $pos - 1;
- while ($idx > 0)
- {
- $check = substr($test2, $idx, 1);
- if (!in_array($check, $VALID_EMAIL_CHARS))
- {
- // Char found so we end here
- break;
- }
- $idx--;
- }
- if ($idx > 0)
- {
- // Starting mark is found
- $check2 = substr($test, 0, ($idx + 1));
- $test = substr($test, ($idx + 1));
- }
-
- // And now go forward...
- $idx = 0;
- while ($idx < strlen($test))
- {
- $check = substr($test, $idx, 1);
- if ((!in_array($check, $VALID_EMAIL_CHARS)) && ($check != "@"))
- {
- // Char found so end here again
- break;
- }
- $idx++;
- }
- if ($idx > 0)
- {
- // Maybe this is the email address?
- $check = substr($test, 0, $idx);
- }
-
- // Now replace the email against anchor with mailto and pray...
- $PARTS[] = $check2.$check;
-
- // Remove email from testing string (see above why...)
- $test = substr($test, strlen($check));
- }
- // Now put all parts together
- $text = ""; $PARTS[] = $test;
- foreach ($PARTS as $part)
- {
- $text .= $part;
- }
-
- // Compile possible own HTML tags out...
- return COMPILE_CODE($text);
-}
-//
-function SEND_NEWSLETTER($TO, $SUBJECT, $MSG, $MODE)
-{
- global $_POST;
- // Send mail away as HTML
- if ($_POST['auto_urls'] == "Y") {
- // Automatically insert URLs into newsletter
- if ((EXT_IS_ACTIVE("html")) && ($MODE == "html")) {
- // Send HTML mail
- SEND_EMAIL($TO, $SUBJECT, HTML_INSERT_URLS($MSG), "Y");
- } else {
- // Send normal mail
- SEND_EMAIL($TO, $SUBJECT, NL_INSERT_URLS($MSG), "N");
- }
- } else {
- // Regular send-out
- if ((EXT_IS_ACTIVE("html")) && ($MODE == "html")) {
- SEND_EMAIL($TO, $SUBJECT, $MSG, "Y");
- } else {
- SEND_EMAIL($TO, $SUBJECT, $MSG);
- }
- }
-}
-//
-?>