fhiiqm/report/vertrag_kuend_email.php
author Bettina Schwarzer
Fri, 20 Dec 2013 15:19:32 +0100
changeset 41 9c668cd391fa
parent 24 15f33315f045
permissions -rw-r--r--
+ Gast als MA-Typ, Erweiterungen Projekt, Key, Telefonliste
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
24
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
#!/usr/bin/php
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
<?php
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
/**
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @author Bettina Schwarzer, Fritz-Haber-Institut
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 * @copyright 02/2012
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 * sendet email an Bearbeiter 'kuendigugsfrist'Monate + 1 Monat vor Vertragsende
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
 * auch als cron-Job einsetzbar
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    10
 * 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
 */
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
	include_once("/var/www/fhiiqm/inc/dbconnect.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    14
	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
    $heute = new DateTime();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
    $infoh = "  
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
        <html>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
        <head>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
          <title>Vertragsinfo (IQM-DB)</title>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
        </head>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    23
        <body>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
          <p>Liebe(r) Frau/Herr ";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
    $infoh2 = ",</p>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
          <p>der folgende Vertrag l&auml;uft demn&auml;chst aus:</p>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
          <table border='1' cellspacing='0' cellpadding='5'>\n
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
          <tr><td>Vertragsbezeichnung</td><td>VTyp</td><td>VBeginn</td><td>VEnde</td>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
                    <td>Verl&auml;ngerung</td><td>K&uuml;nd.-frist(mon)</td><td>Bemerkung</td></tr>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
    $sql = "CALL vertrag_ablauf()";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
    $result = $dbc -> queryObjectArray($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
    if ($result)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
    {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
        $sql = "SELECT nachname,email 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
                FROM fhiiqm.Vertrag v LEFT OUTER JOIN Vertrag_Bearbeiter b
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
                ON v.contract_ID=b.contract_ID LEFT OUTER JOIN Mitarbeiter m
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
                ON b.persknr=m.persknr WHERE v.contract_ID=";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
        foreach ($result as $row)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
        {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
//            if (!is_null($row -> ckdate) && $row->ckdate <= $heute->format("Y-m-d") && $row->email) // nur fuer Test
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
            if (!is_null($row -> ckdate) && $heute->format("Y-m-d") == $row->ckdate && $row->email) // 28.02.2012
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
                $av = $row->cauto? "automatisch" : "&nbsp;";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    47
                if ($begin = new DateTime($row->cbegin)) $begin=$begin->format("d.m.Y"); else $begin="&nbsp;";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
                if ($end = new DateTime($row->cend)) $end=$end->format("d.m.Y"); else $end="&nbsp;";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
                if ($ckd = new DateTime($row->ckdate)) $ckd=$ckd->format("d.m.Y"); else $ckd="&nbsp;";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
                $info = "<tr><td><b>$row->cname</b></td><td>$row->vtypk</td><td>$begin</td><td><b>$end</b></td>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    51
                    <td>&nbsp;$av</td><td>&nbsp;&nbsp;&nbsp;$row->cmon</td><td>$row->bem</td></tr>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    52
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
                // Adressat(en)) ermitteln
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
                $strsql = $sql .$row->cid;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
                $addr = "";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
                if ($res = $dbc -> queryObjectArray($strsql))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
                {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
                    foreach ($res as $ro)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
                        $addr .= $ro->email.",";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
                    $addr = substr($addr,0,strlen($addr)-1);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
            	// email senden
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
//                $eaddr = "wieczorek@fhi-berlin.mpg.de";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
//                $eaddr = "kaendler@fhi-berlin.mpg.de";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
//                $eaddr = "schwarzer@fhi-berlin.mpg.de";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
                $eaddr = $addr;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
        		$eheader = 'MIME-Version: 1.0' . "\r\n" .
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
                            'Content-type: text/html; charset=iso-8859-1' . "\r\n" . 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
                            'From: achilleus@fhi-berlin.mpg.de' . "\r\n" .
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
                            'Bcc: schwarzer@fhi-berlin.mpg.de' . "\r\n" .
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
        					'Reply-To: ' . "\r\n" .
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
        				    'X-Mailer: PHP';
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
        				    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
        		$esubj = "Vertragsinformation (IQM-DB)";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
//        		$emess = $infoh.$ro->nachname.$infoh2.$addr."\n".$info ."\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
        		$emess = $infoh.$ro->nachname.$infoh2."\n".$info ."\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
        		$emess .= "</table>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
                $emess .= "<p>Bitte pr&uuml;fen Sie, ob er verl&auml;ngert oder gek&uuml;ndigt werden soll.</p><br />\n";  
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
                $emess .= "<p>Dies ist eine automatisch generierte E-Mail, bitte nicht darauf antworten.</p>\n";  
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
        		$emess .= "<p>Beste Grü&szlig;e, Ihre IQM-Datenbank</p>\n</body></html>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
                mail($eaddr,$esubj,$emess,$eheader);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
?>