Moved to contrib/ in preperation for merge
[mailer.git] / contrib / autoreg_output.php
1 <?php
2 // Auto-registration module, decoded
3 /* Dateiname */
4 $dateiname = '/registrieren_send.php';
5 /* Badword */
6 $badword = 'Achtung:';
7 /* HTTP-POST-Query zusammenbauen */
8 $register .= 'formular_username='.$data['nickname'];
9 $register .= '&formular_kennwort='.$data['kennwort'];
10 $register .= '&anrede='.$data['anrede'];
11 $register .= '&vorname='.$data['vorname'];
12 $register .= '&nachname='.$data['nachname'];
13 $register .= '&gtag='.$data['gtag'];
14 $register .= '&gmonat='.$data['gmonat'];
15 $register .= '&gjahr='.$data['gjahr'];
16 $register .= '&strasse='.$data['strasse'];
17 $register .= '&plz='.$data['plz'];
18 $register .= '&stadt='.$data['ort'];
19 $register .= '&land='.$data['land'];
20 $register .= '&email='.$data['email'];
21 $register .= '&art=Text';
22 $register .= '&land='.$data['land'];
23 $register .= '&newsletter=Ja';
24 $register .= '&ref='.$anbieter['refid'];
25 $register .= '&land='.$data['land'];
26 $register .= '&k1=1';
27 $register .= '&k2=1';
28 $register .= '&k3=1';
29 $register .= '&k4=1';
30 $register .= '&k5=1';
31 $register .= '&k6=1';
32 $register .= '&k7=1';
33 $register .= '&k8=1';
34 $register .= '&k9=1';
35 $register .= '&k10=1';
36 $register .= '&k11=1';
37 $register .= '&k12=1';
38 $register .= '&k13=1';
39 $register .= '&k14=1';
40 $register .= '&k15=1';
41 $register .= '&k16=1';
42 $register .= '&k17=1';
43 $register .= '&k18=1';
44 $register .= '&k19=1';
45 $register .= '&k20=1';
46 $register .= '&k21=1';
47 $register .= '&k22=1';
48 $register .= '&agb=on';
49 /* Die Registrierung abschicken */
50 $url = parse_url($anbieter['reflink']);
51 $reg = reg($url['host'],$dateiname,$register);
52 /* Fehlercheck anhand des Badwords */
53 if (stripos($reg,$badword) !== FALSE) $erfolg = FALSE;
54         else $erfolg = TRUE;
55 ?>