| author | Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> |
| Fri, 08 Jun 2012 15:04:22 +0200 | |
| changeset 27 | d92bbe898f32 |
| parent 25 | 482252ff12fd |
| child 41 | 9c668cd391fa |
| permissions | -rw-r--r-- |
|
25
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
1 |
#!/usr/bin/php |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
2 |
<?php |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
3 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
4 |
/** |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
5 |
* @author Bettina Schwarzer, Fritz-Haber-Institut |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
6 |
* @copyright 03/2012 |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
7 |
* |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
8 |
* sendet email an Bearbeiter am Tag ('kuendigugsfrist'+ 1) Monate vor Vertragsende = ckdate
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
9 |
* + Vertrag-File als Attachment, wenn Bearbeiter kein Recht 'vr' oder 've' hat |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
10 |
* auch als cron-Job einsetzbar |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
11 |
* |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
12 |
*/ |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
13 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
14 |
include_once("/var/www/fhiiqm/inc/dbconnect.inc.php");
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
15 |
if (!isset($dbc) || !$dbc) $dbc = new dbconnection(); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
16 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
17 |
$sql = "CALL vertrag_ablauf()"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
18 |
// liefert: cid, cname, vtypid, vtypk, cbegin, cend, cauto, cmon, email, cfile, bem, ckdate |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
19 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
20 |
$result = $dbc -> queryObjectArray($sql); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
21 |
if ($result) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
22 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
23 |
$heute = new DateTime(); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
24 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
25 |
$infoh = " |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
26 |
<html> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
27 |
<head> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
28 |
<title>Vertragsinfo (IQM-DB)</title> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
29 |
</head> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
30 |
<body> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
31 |
<p>Liebe(r) Frau/Herr "; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
32 |
$infoh2 = ",</p> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
33 |
<p>der folgende Vertrag läuft demnächst aus:</p> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
34 |
<table border='1' cellspacing='0' cellpadding='5'>\n |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
35 |
<tr><td>Vertragsbezeichnung</td><td>VTyp</td><td>VBeginn</td><td>VEnde</td> |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
36 |
<td>Verlängerung</td><td>Künd.-frist(mon)</td><td>Bemerkung</td></tr>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
37 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
38 |
$trenn = md5( time() ); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
39 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
40 |
// Bearbeiter |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
41 |
$sql = "SELECT b.persknr,nachname,email |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
42 |
FROM fhiiqm.Vertrag v LEFT OUTER JOIN Vertrag_Bearbeiter b |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
43 |
ON v.contract_ID=b.contract_ID LEFT OUTER JOIN Mitarbeiter m |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
44 |
ON b.persknr=m.persknr WHERE v.contract_ID="; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
45 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
46 |
// Recht Vertrag zu sehen |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
47 |
$sql1 = "SELECT COUNT(*) FROM fhiiqm.user_recht r INNER JOIN fhiiqm.userweb u |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
48 |
ON u.userid = r.userid |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
49 |
WHERE recht_ID IN ('ve','vr') AND persknr IN ";
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
50 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
51 |
foreach ($result as $row) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
52 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
53 |
// if (!is_null($row -> ckdate) && $row->ckdate <= $heute->format("Y-m-d") && $row->email) // nur fuer Test
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
54 |
if (!is_null($row -> ckdate) && $heute->format("Y-m-d") == $row->ckdate && $row->email) // 28.02.2012
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
55 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
56 |
$av = $row->cauto? "automatisch" : " "; |
|
27
d92bbe898f32
+ aptyp-Gef?hrdung, fkt_ma_report, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
25
diff
changeset
|
57 |
if ($row->cbegin && $begin = new DateTime($row->cbegin)) $begin=$begin->format("d.m.Y"); else $begin=" ";
|
|
d92bbe898f32
+ aptyp-Gef?hrdung, fkt_ma_report, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
25
diff
changeset
|
58 |
if ($row->cend && $end = new DateTime($row->cend)) $end=$end->format("d.m.Y"); else $end=" ";
|
|
d92bbe898f32
+ aptyp-Gef?hrdung, fkt_ma_report, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
25
diff
changeset
|
59 |
// if ($ckd = new DateTime($row->ckdate)) $ckd=$ckd->format("d.m.Y"); else $ckd=" ";
|
|
d92bbe898f32
+ aptyp-Gef?hrdung, fkt_ma_report, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
25
diff
changeset
|
60 |
$bem = $row->bem ? $row->bem : " "; |
|
25
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
61 |
$info = "<tr><td><b>$row->cname</b></td><td>$row->vtypk</td><td>$begin</td><td><b>$end</b></td> |
|
27
d92bbe898f32
+ aptyp-Gef?hrdung, fkt_ma_report, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
25
diff
changeset
|
62 |
<td> $av</td><td> $row->cmon</td><td>$bem</td></tr>\n"; |
|
25
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
63 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
64 |
// Adressat(en)), Attachment? ermitteln |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
65 |
$strsql = $sql .$row->cid; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
66 |
$addr = ""; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
67 |
$pers = ""; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
68 |
if ($res = $dbc -> queryObjectArray($strsql)) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
69 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
70 |
foreach ($res as $ro) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
71 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
72 |
$addr .= $ro->email.","; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
73 |
$pers .= $ro->persknr.","; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
74 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
75 |
$addr = substr($addr,0,strlen($addr)-1); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
76 |
$pers = substr($pers,0,strlen($pers)-1); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
77 |
$strsql1 = $sql1 . "($pers)"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
78 |
$noatt = $dbc -> querySingleItem($strsql1); // = 0 -> file als Attachment |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
79 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
80 |
// email senden |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
81 |
// $eaddr = "schwarzer@fhi-berlin.mpg.de"; // nur fuer Test |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
82 |
$eaddr = $addr; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
83 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
84 |
$eheader = |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
85 |
// 'Reply-To: noreply@' .$_SERVER['SERVER_NAME'] . "\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
86 |
'Message-ID: <' .$trenn.'@achilleus.rz-berlin.mpg.de'.">\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
87 |
'X-Mailer: PHP v' .phpversion() . "\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
88 |
'Bcc: schwarzer@fhi-berlin.mpg.de' . "\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
89 |
'From: noreply@achilleus.rz-berlin.mpg.de'."\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
90 |
'MIME-Version: 1.0' . "\r\n" . |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
91 |
'Content-type: multipart/mixed;' . "\r\n" ; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
92 |
$eheader .= " boundary = " .$trenn; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
93 |
$eheader .= "\r\n\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
94 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
95 |
$esubj = "Vertragsinformation (IQM-DB)"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
96 |
// $emess = $infoh.$ro->nachname.$infoh2.$addr."\n".$info ."\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
97 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
98 |
// Mailbody vorbereiten |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
99 |
$mailbody = "This is a multi-part message in MIME format\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
100 |
$mailbody .= "--" .$trenn. "\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
101 |
$mailbody .= "Content-Type: text/html; charset=iso-8859-1\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
102 |
$mailbody .= "Content-Transfer-Encoding: 8bit\r\n\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
103 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
104 |
$emess = $mailbody . $infoh.$ro->nachname.$infoh2."\n".$info ."\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
105 |
$emess .= "</table>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
106 |
$emess .= "<p>Bitte prüfen Sie, ob er verlängert oder gekündigt werden soll.</p>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
107 |
if ($noatt == 0) $emess .= "<p>Als Attachment finden Sie das Vertragsdokument.</p>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
108 |
$emess .= "<br /><p>Dies ist eine automatisch generierte E-Mail, bitte nicht darauf antworten.</p>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
109 |
$emess .= "<p>Beste Grüße, Ihre IQM-Datenbank</p>\n</body></html>\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
110 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
111 |
// Anhang anfügen |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
112 |
if ($noatt == 0) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
113 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
114 |
$fname = $row->cfile; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
115 |
$ftyp = substr($fname,strrpos($fname,".")+1); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
116 |
switch (strtolower($ftyp)) |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
117 |
{
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
118 |
case "pdf": |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
119 |
$ctyp = " application/pdf"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
120 |
break; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
121 |
case "jpg": |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
122 |
$ctyp = " image/jpeg"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
123 |
break; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
124 |
default: |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
125 |
$ctyp = " application/pdf"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
126 |
break; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
127 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
128 |
$afname = substr($fname,strpos($fname,"_")+1); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
129 |
$attm = "--" .$trenn. "\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
130 |
$attm .= "Content-Type:$ctyp; name=\"$afname\"\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
131 |
$attm .= "Content-Transfer-Encoding: base64\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
132 |
$attm .= "Content-Disposition: attachment; filename=\"$afname\"\r\n\r\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
133 |
$attm .= chunk_split( base64_encode( file_get_contents( "/var/www/fhiiqm/documents/$fname" ) ) ); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
134 |
$attm .= "\n"; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
135 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
136 |
$emess .= $attm; |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
137 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
138 |
|
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
139 |
mail($eaddr,$esubj,$emess,$eheader); |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
140 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
141 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
142 |
} |
|
482252ff12fd
+ Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff
changeset
|
143 |
?> |