Notify.php
[Pman.Core] / Notify.php
1 <?php
2 require_once 'Pman.php';
3
4 /**
5  * notification script runner
6  *
7  * This does not actualy send stuf out, it only starts the NotifySend/{id}
8  * which does the actuall notifcations.
9  *
10  * It manages a pool of notifiers.
11  * 
12  * 
13  */
14
15
16 class Pman_Core_Notify extends Pman
17 {
18     
19     static $cli_desc = "Runs the notification queue (usually from cron)
20                         Normally used to sends out emails to anyone in the notification list.
21     
22                         /etc/cron.d/pman-core-notify
23                         * *  * * *     www-data     /usr/bin/php /home/gitlive/web.mtrack/admin.php  Core/Notify > /dev/null
24     
25 ";
26     
27     static $cli_opts = array(
28         'debug' => array(
29             'desc' => 'Turn on debugging (see DataObjects debugLevel )',
30             'default' => 0,
31             'short' => 'v',
32             'min' => 1,
33             'max' => 1,
34             
35         ),
36         'list' => array(
37             'desc' => 'List message to send, do not send them..',
38             'default' => 0,
39             'short' => 'l',
40             'min' => 0,
41             'max' => 0,
42             
43         ),
44         'old' => array(
45             'desc' => 'Show old messages.. (and new messages...)',
46             'default' => 0,
47             'short' => 'o',
48             'min' => 0,
49             'max' => 0,
50             
51         ),
52         'force' => array(
53             'desc' => 'Force redelivery, even if it has been sent before or not queued...',
54             'default' => 0,
55             'short' => 'f',
56             'min' => 0,
57             'max' => 0,
58         ),
59         'generate' => array(
60             'desc' => 'Generate notifications for a table, eg. cash_invoice',
61             'default' => '',
62             'short' => 'g',
63             'min' => 0,
64             'max' => 1,
65         ),
66          'limit' => array(
67             'desc' => 'Limit search for no. to send to ',
68             'default' => 1000,
69             'short' => 'L',
70             'min' => 0,
71             'max' => 999,
72         ),
73         'dryrun' => array(
74             'desc' => 'Dry run - do not send.',
75             'default' => 0,
76             'short' => 'D',
77             'min' => 0,
78             'max' => 0,
79         ),
80         'poolsize' => array(
81             'desc' => 'Pool size',
82             'default' => 10,
83             'short' => 'P',
84             'min' => 0,
85             'max' => 100,
86         ),
87     );
88     /**
89      * @var $nice_level Unix 'nice' level to stop it jamming server up.
90      */
91     var $nice_level = false;
92     /**
93      * @var $max_pool_size maximum runners to start at once.
94      */
95     var $max_pool_size = 10;
96     /**
97      * @var $max_to_domain maximum connections to make to a single domain
98      */
99     var $max_to_domain = 10;
100     
101     /**
102      * @var $maxruntime - maximum time a child is allowed to run - defaut 2 minutes
103      */
104     var $maxruntime = 120;
105     
106     var $table = 'core_notify';
107     var $target = 'Core/NotifySend';
108     var $evtype = ''; // any notification...
109                     // this script should only handle EMAIL notifications..
110     var $force = false;
111     function getAuth()
112     {
113         $ff = HTML_FlexyFramework::get();
114         if (!$ff->cli) {
115             die("access denied");
116         }
117         HTML_FlexyFramework::ensureSingle($_SERVER["SCRIPT_NAME"] .'|'. __FILE__, $this);
118         return true;
119     }
120     
121     var $pool = array();
122     
123     function parseArgs(&$opts)
124     {
125         if ($opts['debug']) {
126             DB_DataObject::debugLevel($opts['debug']);
127             print_r($opts);
128         }
129         $this->opts = $opts;
130         if (!empty($opts['poolsize'])) {
131             $this->max_pool_size = $opts['poolsize'];
132         }
133         
134         if (empty($opts['limit'])) {
135             $opts['limit'] = '1000'; // not sure why it's not picking up the defautl..
136         }
137         
138         if (!empty($opts['old'])) {
139             $opts['list'] = 1; // force listing..
140         }
141         
142         $this->force = empty($opts['force']) ? 0 : 1;
143      
144         if (!empty($opts['send-to'])) {
145             $this->send_to = $opts['send-to'];
146         }
147     }
148     
149     
150     function get($r,$opts)    
151     {
152         $this->parseArgs($opts); 
153          
154         //date_default_timezone_set('UTC');
155        // phpinfo();exit;
156         
157      
158         
159         $w = DB_DataObject::factory('core_notify_recur');
160         if (is_a($w, 'DB_DataObject')) {
161             $w->generateNotifications();
162         }
163         if (!empty($opts['generate'])) {
164             $w = DB_DataObject::factory($opts['generate']);
165             if (is_a($w, 'DB_DataObject')) {
166                 $w->generateNotifications();
167             }
168             exit;
169             
170             
171         }
172      
173         //DB_DataObject::debugLevel(1);
174         $w = DB_DataObject::factory($this->table);
175         
176         if (!empty($opts['old'])) {
177             // show old and new...
178             
179             $w->orderBy('act_when DESC'); // latest first
180             $w->limit($opts['limit']); // we can run 
181             
182         } else {   
183             // standard
184             
185             //$w->whereAdd('act_when > sent'); // eg.. sent is not valid..
186             $w->whereAdd("sent < '1970-01-01' OR sent IS NULL"); // eg.. sent is not valid..
187             
188             $w->whereAdd('act_start > NOW() - INTERVAL 14 DAY'); // ignore the ones stuck in the queue
189             if (!$this->force) {
190                 $w->whereAdd('act_when < NOW()'); // eg.. not if future..
191             }
192     
193             $w->orderBy('act_when ASC'); // oldest first.
194             
195             $this->logecho("QUEUE is {$w->count()}");
196             
197             $w->limit($opts['limit']); // we can run 1000 ...
198         }
199         
200         if (!empty($this->evtype)) {
201             $w->evtype = $this->evtype;
202         }
203         
204         $w->autoJoin();
205         
206         
207         $ar = $w->fetchAll();
208         
209         if (!empty($opts['list'])) {
210             if (empty($ar)) {
211                 die("Nothing in Queue\n");
212             }
213             foreach($ar as $w) {
214                 $o = $w->object();
215                 
216                 
217                 $this->logecho("$w->id : $w->person_id_email email    : ".
218                         $o->toEventString()."    ". $w->status()  );
219             }
220             exit;
221         }
222         
223         //echo "BATCH SIZE: ".  count($ar) . "\n";
224         $pushed = array();
225         $requeue = array();
226         while (true) {
227             
228             
229             $this->logecho("BATCH SIZE: ".  count($ar) );
230             
231             if (empty($ar)) {
232                 $this->logecho("COMPLETED MAIN QUEUE - running delated");
233                 
234                 if (empty($pushed)) {
235                     break;
236                 }
237                 $ar = $pushed;
238                 $pushed = false;
239                 continue;
240             }
241             
242             
243             $p = array_shift($ar);
244             if (!$this->poolfree()) {
245                 array_unshift($ar,$p); /// put it back on..
246                 sleep(3);
247                 continue;
248             }
249             if ($this->poolHasDomain($p->person_id_email) > $this->max_to_domain) {
250                 
251                 if ($pushed === false) {
252                     // we only try once to requeue..
253                     $requeue[] = $p;
254                     continue;
255                 }
256                 $pushed[] = $p;
257                 
258                 
259                 //sleep(3);
260                 continue;
261             }
262             
263             
264             $this->run($p->id,$p->person_id_email);
265             
266             
267             
268         }
269         
270         // we should have a time limit here...
271         while(count($this->pool)) {
272             $this->poolfree();
273              sleep(3);
274         }
275          
276         foreach($requeue as $p) {
277             $pp = clone($p);
278             $p->act_when = $p->sqlValue('NOW + INTERVAL 1 MINUTE');
279             $p->update($pp);
280             
281         }
282         
283         
284         $this->logecho("DONE");
285         exit;
286     }
287     
288     function run($id, $email, $cmdOpts="")
289     {
290         
291         static $renice = false;
292         if (!$renice) {
293             require_once 'System.php';
294             $renice = System::which('renice');
295         }
296         
297         // phpinfo();exit;
298         $tnx = tempnam(ini_get('session.save_path'),'stdout');
299         unlink($tnx);
300         $tn =  $tnx . '.stdout';
301         $descriptorspec = array(
302             0 => array("pipe", 'r'),  // stdin is a pipe that the child will read from
303             1 => array("file", $tn, 'w'),  // stdout is a pipe that the child will write to
304             2 => array("pipe", "w") // stderr is a file to write to
305          );
306         
307         static $php = false;
308         if (!$php) {
309             require_once 'System.php';
310             $php = System::which('php');
311         }
312         
313         $sn =  $_SERVER["SCRIPT_NAME"];
314         
315         $cwd = $sn[0] == '/' ? dirname($sn) : dirname(realpath(getcwd() . '/'. $sn)); // same as run on.. (so script should end up being same relatively..)
316         $app = $cwd . '/' . basename($_SERVER["SCRIPT_NAME"]) . '  ' . $this->target . '/'. $id;
317         if ($this->force) {
318             $app .= ' -f';
319         }
320         if (!empty($this->send_to)) {
321             $app .= ' --sent-to='.escapeshellarg($this->send_to);
322         }
323         $cmd = 'exec ' . $php . ' ' . $app . ' ' . $cmdOpts; //. ' &';
324         
325         print_R($cmd);exit;
326        
327         $pipe = array();
328         $this->logecho("call proc_open $cmd");
329         
330         
331         if ($this->max_pool_size === 1) {
332             passthru($cmd);
333             return;
334         }
335         
336         
337         if (!empty($this->opts['dryrun'])) {
338             $this->logecho("DRY RUN");
339             return;
340         }
341         
342         $p = proc_open($cmd, $descriptorspec, $pipes, $cwd );
343         $info =  proc_get_status($p);
344         
345         if ($this->nice_level !== false) { 
346             $rcmd = "$renice {$this->nice_level} {$info['pid']}";
347             `$rcmd`;
348         } 
349         $this->pool[] = array(
350                 'proc' => $p,
351                 'pid' => $info['pid'],
352                 'out' => $tn,
353                 'cmd' => $cmd,
354                 'email' => $email,
355                 'pipes' => $pipes,
356                 'started' => time()
357             
358                 
359         );
360         $this->logecho("RUN ({$info['pid']}) $cmd ");
361     }
362     
363     function poolfree()
364     {
365         $pool = array();
366         clearstatcache();
367          
368         foreach($this->pool as $p) {
369              
370             //echo "CHECK PID: " . $p['pid'] . "\n";
371             $info =  proc_get_status($p['proc']);
372             //var_dump($info);
373             
374             // update if necessday.
375             if ($info['pid'] && $p['pid'] != $info['pid']) {
376                 $this->logecho("CHANING PID FROM " . $p['pid']  .  "  TO ". $info['pid']);
377                 $p['pid'] = $info['pid'];
378             }
379             
380             //echo @file_get_contents('/proc/'. $p['pid'] .'/cmdline') . "\n";
381             
382             if ($info['running']) {
383             
384                 //if (file_exists('/proc/'.$p['pid'])) {
385                 $runtime = time() - $p['started'];
386                 //echo "RUNTIME ({$p['pid']}): $runtime\n";
387                 if ($runtime > $this->maxruntime) {
388                     
389                     proc_terminate($p['proc'], 9);
390                     //fclose($p['pipes'][1]);
391                     fclose($p['pipes'][0]);
392                     fclose($p['pipes'][2]);
393                     $this->logecho("TERMINATING: ({$p['pid']}) " . $p['cmd'] . " : " . file_get_contents($p['out']));
394                     @unlink($p['out']);
395                     
396                     continue;
397                 }
398                 
399                 $pool[] = $p;
400                 continue;
401             }
402             fclose($p['pipes'][0]);
403             fclose($p['pipes'][2]);
404             //echo "CLOSING: ({$p['pid']}) " . $p['cmd'] . " : " . file_get_contents($p['out']) . "\n";
405             //fclose($p['pipes'][1]);
406             
407             proc_close($p['proc']);
408             
409             
410             //clearstatcache();
411             //if (file_exists('/proc/'.$p['pid'])) {
412             //    $pool[] = $p;
413             //    continue;
414             //}
415             $this->logecho("ENDED: ({$p['pid']}) " .  $p['cmd'] . " : " . file_get_contents($p['out']) );
416             @unlink($p['out']);
417             //unlink($p['out']);
418         }
419         $this->logecho("POOL SIZE: ". count($pool) );
420         $this->pool = $pool;
421         if (count($pool) < $this->max_pool_size) {
422             return true;
423         }
424         return false;
425         
426     }
427     /**
428      * see if pool is already trying to deliver to this domain.?
429      * -- if so it get's pushed to the end of the queue.
430      *
431      */
432     function poolHasDomain($email)
433     {
434         $ret = 0;
435         $dom = strtolower(array_pop(explode('@',$email)));
436         foreach($this->pool as $p) {
437             $mdom = strtolower(array_pop(explode('@',$p['email'])));
438             if ($mdom == $dom) {
439                 $ret++;
440             }
441         }
442         return $ret;
443         
444     }
445
446     function output()
447     {
448         $this->logecho("DONE");
449         exit;
450     }
451     function logecho($str)
452     {
453         echo date("Y-m-d H:i:s - ") . $str . "\n";
454     }
455 }