From 6d14d895fb7e17b4adfd6111bd6591776dba6188 Mon Sep 17 00:00:00 2001 From: deva Date: Sat, 13 Feb 2010 15:28:38 +0000 Subject: Viewer parts of a newsletter module (the functionality to actually send mails are still to be made.) --- utils/modules/newsletter.php | 232 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 232 insertions(+) create mode 100644 utils/modules/newsletter.php (limited to 'utils') diff --git a/utils/modules/newsletter.php b/utils/modules/newsletter.php new file mode 100644 index 0000000..528b0a5 --- /dev/null +++ b/utils/modules/newsletter.php @@ -0,0 +1,232 @@ +"; +$replyto = $sender; +$footer = " + +Stay Brutal! +// DIE +http://www.executionroom.com +info@executionroom.com +"; + +class Email { + public $timestamp; + public $email; + + public function Email($email, $timestamp) + { + $this->email = $email; + $this->timestamp = $timestamp; + } + + function send($subject, $message) { + global $subject_prefix; + global $sender; + global $replyto; + global $footer; + + $message .= $footer; + $message .= "\nTo stop receiving this newsletter, click the following link: http://www.executionroom.com/?page=news&action=unsubscribe&email=". $this->email . "\n"; + $headers = "From: " . $sender . "\r\n"; + $headers .= "Reply-To: " . $replyto . "\r\n"; + $headers .= "Content-Type: text/plain; charset=iso-8859-1\r\n"; + $headers .= "X-Mailer: PHP/" . phpversion(); + $subject = "[".$subject_prefix."] " . $subject; + + $ret = mail($this->email, $subject, $message, $headers); + if(!$ret) echo "Fail(".$this->email.")"; + + //usleep(100000); + } +} + +class Mailinglist { + private $file; + private $mailinglist = array(); + + public function add($email) { + $key = $email->email; + if(array_key_exists($key, $this->mailinglist)) return false; + $this->mailinglist[$key] = $email; + return true; + } + + public function remove($email) { + if(array_key_exists($email, $this->mailinglist)) { + unset($this->mailinglist[$email]); + return true; + } + return false; + } + + public function write() + { + $fp = fopen($this->file, "w"); + fwrite($fp, "\n"); + + fwrite($fp, "\n"); + foreach($this->mailinglist as $email) { + fwrite($fp, " email, ENT_QUOTES, "UTF-8") . "\"\n"); + fwrite($fp, " timestamp=\"" . $email->timestamp . "\">\n"); + fwrite($fp, " \n"); + } + fwrite($fp, "\n"); + + fclose($fp); + } + + private function read() + { + $dom = new DomDocument; + $dom->preserveWhiteSpace = FALSE; + $dom->load($this->file); + $params = $dom->getElementsByTagName('email'); + + foreach ($params as $param) { + $email = new Email($param->getAttribute('email'), + $param->getAttribute('timestamp')); + $this->add($email); + } + } + + public function subscribe($emailaddr) + { + $str = ""; + if($emailaddr == "your@email.here") return ""; + $email = new EMail($emailaddr, time()); + if($this->add($email)) { + $this->write(); + $str .= "
The email: " . $emailaddr . " has now been subscribed.
"; + } else { + $str .= "
The email: " . $emailaddr . " is already subscribed.
"; + } + return $str; + } + + public function unsubscribe($emailaddr) + { + $str = ""; + if($this->remove($emailaddr)) { + $this->write(); + $str .= "
The email: " . $emailaddr . " has now been unsubscribed.
"; + } else { + $str .= "
The email: " . $emailaddr . " is not subscribed.
"; + } + return $str; + } + + public function post($subject, $message) + { + $sz = sizeof($this->mailinglist); + + echo "
Sending ". $sz ." mails
\n<"; + ob_flush(); + flush(); + + $num = 0; + $lvl = 0; + $steps = floor($sz / 10) + 1; + + foreach($this->mailinglist as $email) { + $email->send($subject, $message); + $pct = $num / $sz * 100; + if($pct >= $lvl) { + printf("%.0f%%", $lvl); + $lvl += 100/$steps; + } else { + echo "."; + } + ob_flush(); + flush(); + $num++; + } + echo "[100%]>\n
done
\n"; + echo "[CLOSE]"; + echo "
\n"; + ob_flush(); + flush(); + } + + public function Mailinglist($file) + { + $this->file = $file; + if(file_exists($file)) $this->read(); + } +} + +class Newsletter { + + private $file; + private $mailinglist; + + // Admin config + public $admin_title = "NewsLetter"; + public $admin_submodules = array("Send newsletter" => "create"); + + public function admin($sub, $action, $vars) + { + switch($sub) { + case "create": + // $this->admin_add($action, $vars); + break; + } + } + + public function run($params) + { + global $page; + global $newsletter_action; + global $_POST, $GLOBALS; + $email = $_POST["newsletter_email"]; // get from lineedit. + if($email == "") $email = $GLOBALS["newsletter_email"]; // get from link. + + $str = ""; + + $str .= "
\n"; + $str .= "
\n"; + $str .= "
\n"; + $str .= " \n"; + $str .= " \n"; + $str .= "
\n"; + $str .= "
\n"; + $str .= "
\n"; + + if($newsletter_action == "subscribe") { + $str .= $this->mailinglist->subscribe($email); + } + + if($newsletter_action == "unsubscribe") { + $str .= $this->mailinglist->unsubscribe($email); + } + + return $str; + } + + private function read() + { + $this->mailinglist = new Mailinglist($this->file); + } + + public function Newsletter($file) + { + $this->file = $file; + if(file_exists($file)) $this->read(); + } +} + + +function newsletter_init() +{ + global $DATA_DIR; + return new Newsletter($DATA_DIR . "/newsletter.xml"); +} + +?> \ No newline at end of file -- cgit v1.2.3