git.infodrom.org Git - misc/hallinta-metro/blob - utils.php

   1 <?php
   2
   3 define('MODULE', 'metro');
   4 define('TEMPLATE', 'ordersatz.tex');
   5 define('FNAME_VARS', 'ordersatz_vars.tex');
   6 define('FNAME_ITEMS', 'ordersatz_items.tex');
   7 define('FAXNUMBER','2002-364');
   8 define('ERROR_SAFT','joey@finlandia');
   9 define('ERROR_MAIL','joey@finlandia.infodrom.org');
  10
  11 function is_done($id)
  12 {
  13   global $db;
  14
  15   $query = sprintf('SELECT count(*) AS count FROM metro_ordersatz WHERE id = %d AND done IS NULL', $id);
  16   $sth = $db->query($query);
  17   $row = $sth->fetch();
  18   return $row['count'] == 0;
  19 }
  20
  21 function mk_tempdir()
  22 {
  23   $tmpdir = sprintf("%sarchive/%s/%s",
  24                     $_SESSION['sys']['basedir'],
  25                     MODULE,
  26                     md5(date('c')));
  27   mkdir($tmpdir,0777);
  28
  29   return $tmpdir;
  30 }
  31
  32 function rm_tempdir($dir)
  33 {
  34   system(sprintf("rm -rf %s", $dir));
  35 }
  36
  37 function latexspecialchars($string)
  38 {
  39   return preg_replace_callback("/([\^\%~\\\\#\$%&_\{\}])/",
  40                                function($matches) {
  41                                  $map = array(
  42                                               "#"=>"\\#",
  43                                               "$"=>"\\$",
  44                                               "%"=>"\\%",
  45                                               "&"=>"\\&",
  46                                               "~"=>"\\~{}",
  47                                               "_"=>"\\_",
  48                                               "^"=>"\\^{}",
  49                                               "\\"=>"\\textbackslash",
  50                                               "{"=>"\\{",
  51                                               "}"=>"\\}",
  52                                               );
  53                                  return $map[$matches[0]];
  54                                },
  55                                $string);
  56 }
  57
  58 function latex_encode($text)
  59 {
  60   return latexspecialchars(utf8_decode($text));
  61 }
  62
  63 function ordersatz_archive($id, $title, $filename)
  64 {
  65   global $db;
  66
  67   $parts = pathinfo($filename);
  68
  69   $base = $_SESSION['sys']['basedir'] . 'archive/' . MODULE;
  70
  71   if (!is_dir($base))
  72     return 'Basis-Verzeichnis nicht vorhanden';
  73
  74   $base .= '/';
  75
  76   $path = date('Y');
  77   if (!is_dir($base.$path))
  78     if (mkdir($base.$path) === false)
  79       return 'Kann Verzeichnis nicht anlegen: ' . $path;
  80
  81   $path .= '/' . date('m');
  82   if (!is_dir($base.$path))
  83     if (mkdir($base.$path) === false)
  84       return 'Kann Verzeichnis nicht anlegen: ' . $path;
  85
  86
  87   $parts['filename'] = utf8_encode($parts['filename']);
  88   $path .= '/' . $parts['filename'];
  89
  90   $max = 100;
  91   for ($i=0; $i < $max; $i++) {
  92     $fname = $path;
  93     if ($i > 0) $fname .= '('.$i.')';
  94     if (!empty($parts['extension']))
  95       $fname .= '.' . $parts['extension'];
  96
  97     if (!is_file($base.$fname)) {
  98       if (copy($filename, $base.$fname) === false)
  99         return 'Kann Datei nicht speichern';
 100
 101       chmod($base.$fname, 0640);
 102       break;
 103     }
 104   }
 105
 106   $sql = sprintf("INSERT INTO metro_files (ordersatz,date,title,path,sys_user,sys_edit) " .
 107                  "VALUES (%d,now(),%s,%s,%s,now())",
 108                  $id,
 109                  $db->quote($title),
 110                  $db->quote($fname),
 111                  $db->quote($_SESSION['sys']['login']));
 112   $sth = $db->query($sql);
 113
 114   return true;
 115 }
 116
 117 function ordersatz_finish($id)
 118 {
 119   global $db;
 120
 121   $sql = sprintf("DELETE FROM metro_ordersatz_pos WHERE ordersatz = %d AND anzahl IS NULL",
 122                  $id);
 123   $sth = $db->query($sql);
 124
 125   $sql = sprintf("UPDATE metro_ordersatz SET done = now(), sys_edit = now(), sys_user = %s WHERE id = %d",
 126                  $db->quote($_SESSION['sys']['login']),
 127                  $id);
 128   $sth = $db->query($sql);
 129 }
 130
 131 function ordersatz_write($id, $dir, $send)
 132 {
 133   global $db;
 134
 135   $fname = sprintf("%smasks/%s/%s",
 136                    $_SESSION['sys']['basedir'],
 137                    MODULE,
 138                    TEMPLATE);
 139
 140   if (!file_exists($fname))
 141     return "Vorlage nicht gefunden";
 142
 143   copy($fname, $dir . '/ordersatz.tex');
 144   chdir($dir);
 145
 146   $sql = sprintf("SELECT name,koch,email,telefon,datum,uhrzeit,owner FROM metro_ordersatz WHERE id = %d",
 147                  $id);
 148   $satz = query_db($sql);
 149
 150   $f = fopen(FNAME_VARS, 'w');
 151   fwrite($f, sprintf('\newcommand{\koch}{%s}'."\n", latex_encode($satz[0]['koch'])));
 152   fwrite($f, sprintf('\newcommand{\reise}{%s}'."\n", latex_encode($satz[0]['name'])));
 153   fwrite($f, sprintf('\newcommand{\telefon}{%s}'."\n", latex_encode($satz[0]['telefon'])));
 154   fwrite($f, sprintf('\newcommand{\uhrzeit}{%s}'."\n", latex_encode($satz[0]['uhrzeit'])));
 155
 156   $d = explode('-', $satz[0]['datum']);
 157   fwrite($f, sprintf('\newcommand{\datum}{%d.%d.%d}'."\n", $d[2], $d[1], $d[0]));
 158   fclose($f);
 159
 160   $sql = sprintf("SELECT artnr,gang,metro_vpe.short AS vpname,menge,bezeichnung,hinweis,hersteller,anzahl " .
 161                  "FROM metro_ordersatz_pos " .
 162                  "JOIN metro_artikel ON artikel = metro_artikel.id " .
 163                  "JOIN metro_abteilung ON abteilung = metro_abteilung.id " .
 164                  "JOIN metro_vpe ON vpe = metro_vpe.id " .
 165                  "WHERE ordersatz = %d AND anzahl IS NOT NULL " .
 166                  "ORDER BY sort,gang,metro_abteilung.name,bezeichnung",
 167                  $id);
 168
 169   $result = query_db($sql);
 170
 171   if (count($result) == 0)
 172     return "Keine Artikel zur Bestellung ausgewählt";
 173
 174   $f = fopen(FNAME_ITEMS, 'w');
 175
 176   foreach ($result as $row) {
 177     $bez = latex_encode($row['bezeichnung']);
 178     if (strlen($row['hersteller']))
 179       $bez .= ' (' . latex_encode($row['hersteller']) . ')';
 180     if (strlen($row['hinweis']))
 181       $bez .= sprintf("\\newline\\textbf{%s}", latex_encode($row['hinweis']));
 182
 183     fwrite($f, sprintf('\order{%d}{%s}{%s %s}{%s}{%s}'."\n",
 184                        $row['anzahl'],
 185                        $row['artnr'] ? (int)$row['artnr'] : '',
 186                        latex_encode($row['menge']),
 187                        $bez,
 188                        latex_encode($row['vpname']),
 189                        latex_encode($row['gang'])));
 190   }
 191
 192   fclose($f);
 193
 194   system("latex ordersatz > ordersatz.out 2>&1 && dvips ordersatz >> ordersatz.out 2>&1 && pdflatex ordersatz >> ordersatz.out", $ret);
 195
 196   if ($ret !== 0) {
 197     $fname = sprintf("ordersatz-%d-%d.tar.bz2", $id, time());
 198     $cmd = sprintf("tar cfj %s ordersatz.tex ordersatz_vars.tex ordersatz_items.tex ordersatz.out && " .
 199                    "mpack -s 'Probleme beim Compilieren des Ordersatzes %d' -d ordersatz.out %s %s && " .
 200                    "sendfile -Q -c='Probleme beim Compilieren des Ordersatzes %d' %s %s",
 201                    $fname,
 202                    $id, $fname, ERROR_MAIL,
 203                    $id, $fname, ERROR_SAFT);
 204     system($cmd);
 205     return "Probleme beim Compilieren des Ordersatzes";
 206   }
 207
 208   if (!file_exists('ordersatz.ps'))
 209     return "Postscript-Datei nicht erstellt";
 210
 211   if ($send) {
 212     $ret = ordersatz_archive($id, 'Ordersatz '.$satz[0]['name'], $dir . '/ordersatz.pdf');
 213
 214     if ($ret !== true)
 215       return $ret;
 216
 217     if (empty($satz[0]['email']))
 218       $satz[0]['email'] = 'joey@infodrom.org';
 219
 220     $cmd = sprintf("faxspool -f %s %s %s > /dev/null 2>&1",
 221                    $satz[0]['email'],
 222                    FAXNUMBER,
 223                    'ordersatz.ps');
 224     system($cmd);
 225
 226     $message = sprintf("Hallo %s!\n\nDer angehängte Ordersatz wurde gerade an Metro Oldenburg verschickt.\n" .
 227                        "Eine Bestätigung über den Versand kommt per Mail.\n\n",
 228                        utf8_decode($satz[0]['koch']));
 229
 230     mail_attach($satz[0]['email'],
 231                 mb_encode_mimeheader('Ordersatz ' . $satz[0]['name'],'latin1'),
 232                 $satz[0]['email'],
 233                 mb_encode_mimeheader('Infodrom ' . $satz[0]['koch'],'latin1'),
 234                 array($dir . '/ordersatz.pdf'),
 235                 $message);
 236
 237     ordersatz_finish($id);
 238   }
 239
 240   return true;
 241 }
 242
 243 ?>