bin/cron/rapports_inscription.php

   1 #!/usr/bin/php5 -q
   2 <?php
   3 require('connect.db.inc.php');
   4 $MESSAGE = '';
   5
   6 // ---------------------------------------
   7
   8 $res = XDB::iterRow(
   9         "SELECT  a.alias, u.promo, email
  10            FROM  auth_user_md5  AS u
  11       LEFT JOIN  aliases        AS a ON( u.user_id=a.uid AND a.type='a_vie' )
  12       LEFT JOIN  emails         AS e ON( e.uid = u.user_id AND NOT FIND_IN_SET('filter',e.flags) )
  13           WHERE  u.date_ins > {?}
  14        GROUP BY  alias
  15        ORDER BY  promo", date("Ymd000000", strtotime ("last Monday")));
  16 if ($a = $res->total()) {
  17     $MESSAGE.="$a INSCRIPTIONS CONFIRMEES:\n";
  18     while (list($usern,$promo,$mail) = $res->next()) {
  19         $MESSAGE.="X$promo, $usern, $mail\n";
  20     }
  21 }
  22
  23 // ---------------------------------------
  24
  25 $res = XDB::iterRow(
  26         "SELECT  u.hruid, r.email, r.date
  27            FROM  register_pending AS r
  28       LEFT JOIN  auth_user_md5 AS u ON (u.user_id = r.uid)
  29           WHERE  r.hash != 'INSCRIT'
  30        ORDER BY  r.date");
  31 if ($b = $res->total()) {
  32     $MESSAGE.="\n$b INSCRIPTIONS NON CONFIRMEES:\n";
  33     while (list($usern, $mail, $quand) = $res->next()) {
  34         $MESSAGE.="$quand, $usern,\n            $mail\n";
  35     }
  36 }
  37
  38 // ---------------------------------------
  39
  40 $res = XDB::query('SELECT COUNT(DISTINCT uid), COUNT(*) FROM register_marketing');
  41 list($a, $b) = $res->fetchOneRow();
  42 $MESSAGE .= "\nINSCRIPTIONS SOLICITÉES :\n";
  43 $MESSAGE .= "    $a utilisateurs\n    $b adresses email\n";
  44
  45 // ---------------------------------------
  46
  47 $MESSAGE .= "\n\n";
  48
  49 $mailer = new PlMailer();
  50 $mailer->setSubject("$a confirmées, $b en attente et $c sollicitées");
  51 $mailer->setFrom($globals->register->notif);
  52 $mailer->addTo($globals->register->notif);
  53 $mailer->setTxtBody($MESSAGE);
  54 $mailer->send();
  55 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
  56 ?>