2 /***************************************************************************
3 * Copyright (C) 2003-2011 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once("massmailer.inc.php");
24 // {{{ class NewsLetter
26 class NewsLetter
extends MassMailer
29 public $_cats = array();
30 public $_arts = array();
32 function __construct($id = null
)
34 parent
::__construct('newsletter/nl.mail.tpl', 'nl.css', 'nl/show', 'newsletter', 'newsletter_ins');
37 $res = XDB
::query("SELECT MAX(id) FROM newsletter WHERE bits!='new'");
38 $id = $res->fetchOneCell();
40 $res = XDB
::query("SELECT * FROM newsletter WHERE id={?} OR short_name={?} LIMIT 1", $id, $id);
42 $res = XDB
::query("SELECT * FROM newsletter WHERE bits='new'");
43 if (!$res->numRows()) {
46 $res = XDB
::query("SELECT * FROM newsletter WHERE bits='new' ORDER BY id DESC LIMIT 1");
48 if ($res->numRows() != 1) {
49 throw new MailNotFound();
51 $nl = $res->fetchOneAssoc();
53 $this->_id
= $nl['id'];
54 $this->_shortname
= $nl['short_name'];
55 $this->_date
= $nl['date'];
56 $this->_title
= $nl['titre'];
57 $this->_title_mail
= $nl['titre_mail'];
58 $this->_head
= $nl['head'];
60 $res = XDB
::iterRow("SELECT cid,titre FROM newsletter_cat ORDER BY pos");
61 while (list($cid, $title) = $res->next()) {
62 $this->_cats
[$cid] = $title;
66 "SELECT a.title,a.body,a.append,a.aid,a.cid,a.pos
67 FROM newsletter_art AS a
68 INNER JOIN newsletter AS n USING(id)
69 LEFT JOIN newsletter_cat AS c ON(a.cid=c.cid)
71 ORDER BY c.pos,a.pos", $this->_id
);
72 while (list($title, $body, $append, $aid, $cid, $pos) = $res->next()) {
73 $this->_arts
[$cid]["a$aid"] = new NLArticle($title, $body, $append, $aid, $cid, $pos);
77 public function save()
79 XDB
::execute('UPDATE newsletter SET date={?},titre={?},titre_mail={?},head={?},short_name={?} WHERE id={?}',
80 $this->_date
, $this->_title
, $this->_title_mail
, $this->_head
, $this->_shortname
,$this->_id
);
83 public function getArt($aid)
85 foreach ($this->_arts
as $key=>$artlist) {
86 if (isset($artlist["a$aid"])) {
87 return $artlist["a$aid"];
93 public function saveArticle(&$a)
95 $a->_cid
= ($a->_cid
== 0) ? null
: $a->_cid
;
97 XDB
::execute('UPDATE newsletter_art
98 SET cid = {?}, pos = {?}, title = {?}, body = {?}, append = {?}
99 WHERE id = {?} AND aid = {?}',
100 $a->_cid
, $a->_pos
, $a->_title
, $a->_body
, $a->_append
, $this->_id
, $a->_aid
);
102 XDB
::startTransaction();
103 list($aid, $pos) = XDB
::fetchOneRow('SELECT MAX(aid) AS aid, MAX(pos) AS pos
104 FROM newsletter_art AS a
108 $a->_pos
= ($a->_pos ?
$a->_pos
: ++
$pos);
109 XDB
::execute('INSERT INTO newsletter_art (id, aid, cid, pos, title, body, append)
110 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, {?})',
111 $this->_id
, $a->_aid
, $a->_cid
, $a->_pos
,
112 $a->_title
, $a->_body
, $a->_append
);
115 $this->_arts
['a' . $a->_aid
] = $a;
118 public function delArticle($aid)
120 XDB
::execute('DELETE FROM newsletter_art WHERE id={?} AND aid={?}', $this->_id
, $aid);
121 foreach ($this->_arts
as $key=>$art) {
122 unset($this->_arts
[$key]["a$aid"]);
126 protected function assignData(&$smarty)
128 $smarty->assign_by_ref('nl', $this);
131 protected function setSent()
133 XDB
::execute("UPDATE newsletter SET bits='sent' WHERE id={?}", $this->_id
);
136 static public function subscriptionState($uid = null
)
138 $user = is_null($uid) ? S
::v('uid') : $uid;
139 $res = XDB
::query("SELECT 1
141 WHERE uid={?}", $user);
142 return $res->fetchOneCell();
145 static public function unsubscribe($uid = null
)
147 $user = is_null($uid) ? S
::v('uid') : $uid;
148 XDB
::execute("DELETE FROM newsletter_ins
149 WHERE uid={?}", $user);
152 static public function subscribe($uid = null
)
154 $user = is_null($uid) ? S
::v('uid') : $uid;
155 XDB
::execute('INSERT IGNORE INTO newsletter_ins (uid, last, hash)
156 VALUES ({?}, NULL, NULL)', $user);
159 protected function subscriptionWhere()
164 static public function create()
166 XDB
::execute("INSERT INTO newsletter
167 SET bits='new',date=NOW(),titre='to be continued',titre_mail='to be continued'");
170 static public function listSent()
172 $res = XDB
::query("SELECT IF(short_name IS NULL, id,short_name) as id,date,titre_mail AS titre
175 ORDER BY date DESC");
176 return $res->fetchAllAssoc();
179 static public function listAll()
181 $res = XDB
::query("SELECT IF(short_name IS NULL, id,short_name) as id,date,titre_mail AS titre
183 ORDER BY date DESC");
184 return $res->fetchAllAssoc();
189 // {{{ class NLArticle
205 function __construct($title='', $body='', $append='', $aid=-1, $cid=0, $pos=0)
207 $this->_body
= $body;
208 $this->_title
= $title;
209 $this->_append
= $append;
216 // {{{ function title()
218 public function title()
219 { return trim($this->_title
); }
222 // {{{ function body()
224 public function body()
225 { return trim($this->_body
); }
228 // {{{ function append()
230 public function append()
231 { return trim($this->_append
); }
234 // {{{ function toText()
236 public function toText($hash = null
, $login = null
)
238 $title = '*'.$this->title().'*';
239 $body = MiniWiki
::WikiToText($this->_body
, true
);
240 $app = MiniWiki
::WikiToText($this->_append
,false
,4);
241 $text = trim("$title\n\n$body\n\n$app")."\n";
242 if (!is_null($hash) && !is_null($login)) {
243 $text = str_replace('%HASH%', "$hash/$login", $text);
245 $text = str_replace('%HASH%', '', $text);
251 // {{{ function toHtml()
253 public function toHtml($hash = null
, $login = null
)
255 $title = "<h2 class='xorg_nl'><a id='art{$this->_aid}'></a>".pl_entities($this->title()).'</h2>';
256 $body = MiniWiki
::WikiToHTML($this->_body
);
257 $app = MiniWiki
::WikiToHTML($this->_append
);
260 $art .= "<div class='art'>\n$body\n";
262 $art .= "<div class='app'>$app</div>";
265 if (!is_null($hash) && !is_null($login)) {
266 $art = str_replace('%HASH%', "$hash/$login", $art);
268 $art = str_replace('%HASH%', '', $art);
275 // {{{ function check()
277 public function check()
279 $text = MiniWiki
::WikiToText($this->_body
);
280 $arr = explode("\n",wordwrap($text,68));
282 foreach ($arr as $line) {
291 // {{{ function parseUrlsFromArticle()
293 private function parseUrlsFromArticle()
295 $email_regex = '([a-z0-9.\-+_\$]+@([\-.+_]?[a-z0-9])+)';
296 $url_regex = '((https?|ftp)://[a-zA-Z0-9._%#+/?=&~-]+)';
297 $regex = '{' . $email_regex . '|' . $url_regex . '}i';
300 $body_matches = array();
301 if (preg_match_all($regex, $this->body(), $body_matches)) {
302 $matches = array_merge($matches, $body_matches[0]);
305 $append_matches = array();
306 if (preg_match_all($regex, $this->append(), $append_matches)) {
307 $matches = array_merge($matches, $append_matches[0]);
314 // {{{ function getLinkIps()
316 public function getLinkIps(&$blacklist_host_resolution_count)
318 $matches = $this->parseUrlsFromArticle();
319 $article_ips = array();
321 if (!empty($matches)) {
324 foreach ($matches as $match) {
325 $host = parse_url($match, PHP_URL_HOST
);
327 list(, $host) = explode('@', $match);
330 if ($blacklist_host_resolution_count >= $globals->mail
->blacklist_host_resolution_limit
) {
334 if (!preg_match('/^(' . str_replace(' ', '|', $globals->mail
->domain_whitelist
) . ')$/i', $host)) {
335 $article_ips = array_merge($article_ips, array(gethostbyname($host) => $host));
336 ++
$blacklist_host_resolution_count;
349 // vim:set et sw=4 sts=4 sws=4 enc=utf-8: