Subversion-Projekte lars-tiefland.content-management

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
<?
2 
	if (isset($action))
3 
	{
4 
		// elemente zusammenfügen
5 
		foreach(array_keys($Feld) as $elem)
6 
		{
7 
			if (gettype($Feld[$elem])=="array")
8 
			{
9 
				$Feld[$elem]=implode(".",$Feld[$elem]);
10 
			}
11 
		}
12 
 
13 
		// Werte prüfen
14 
			// DNS-Server
15 
			if ( (!$Feld["7a"]) or (!$Feld["7b"]) )
16 
			{
17 
				$Feld["7a"]="ns.webagentur-online.de";
18 
				$Feld["7b"]="213.68.40.76";
19 
			}
20 
			if ( (!$Feld["8a"]) or (!$Feld["8b"]) )
21 
			{
22 
				$Feld["8a"]="ns3.webagentur-online.de";
23 
				$Feld["8b"]="195.126.140.57";
24 
			}
25 
 
26 
			// handles
27 
			if (!$Feld["4a"])
28 
			{
29 
				$Fehler=$Fehler."admin-c handle fehlt!<br>";
30 
			}
31 
 
32 
			if (!$Feld["5a"])
33 
			{
34 
				$Fehler=$Fehler."tech-c handle fehlt!<br>";
35 
			}
36 
 
37 
		// Template erstellen
38 
		$template=array(
39 
			"usage: I",
40 
			"prov: ABC",
41 
			"domain: ".$Feld["2"],
42 
			"descr: ".$Feld["3a"],
43 
			"descr: ".$Feld["3b"],
44 
			"descr: ".$Feld["3e"]." ".$Feld["3c"],
45 
			"descr: ".$Feld["3f"],
46 
			"admin-c: ".$Feld["4a"],
47 
			"tech-c: ".$Feld["5a"],
48 
			"zone-c: MN2730-RIPE",
49 
			"nserver: ".$Feld["7a"]." ".$Feld["7b"],
50 
			"nserver: ".$Feld["8a"]." ".$Feld["8b"]
51 
		);
52 
 
53 
		// Mail abschicken
54 
 
55 
		$to="robot@nns1.tmag.de";
56 
        $subject="REG";
57 
        $text = implode("\n",$template);
58 
		$headers["From"]="From: \"webniewerth\" <admin@webagentur-online.de>";
59 
		$headers["BCC"]="BCC: Martin Niewerth <niewerth@weban.de>";
60 
		$headers=implode("\n",$headers);
61 
 
62 
		if (!$Fehler)
63 
		{
64 
			mail($to, $subject, $text, $headers);
65 
		}
66 
	}
67 
?>