author | Bettina Schwarzer |
Fri, 20 Dec 2013 15:19:32 +0100 | |
changeset 41 | 9c668cd391fa |
parent 24 | 15f33315f045 |
permissions | -rw-r--r-- |
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äuft demnä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ängerung</td><td>Kü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" : " "; |
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=" "; |
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=" "; |
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=" "; |
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> $av</td><td> $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üfen Sie, ob er verlängert oder gekü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üß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 |
?> |