d67b7bb5c3a6455d7788f4f7e1cb0d99d4e704fa
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

1) <?php
2) /*
3) This file belongs to the Webinterface of schokokeks.org Hosting
4) 
5) Written 2008-2018 by schokokeks.org Hosting, namely
6)   Bernd Wurst <bernd@schokokeks.org>
7)   Hanno Böck <hanno@schokokeks.org>
8) 
9) To the extent possible under law, the author(s) have dedicated all copyright and related and neighboring rights to this software to the public domain worldwide. This software is distributed without any warranty.
10) 
11) You should have received a copy of the CC0 Public Domain Dedication along with this software. If not, see 
12) http://creativecommons.org/publicdomain/zero/1.0/
13) 
14) Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.
15) */
16) 
17) require_once('inc/security.php');
18) require_once('inc/icons.php');
19) require_once('class/domain.php');
20) 
21) require_once('domains.php');
22) require_once('domainapi.php');
23) require_role(ROLE_CUSTOMER);
24) use_module('contacts');
25) require_once('contacts.php');
26) 
Bernd Wurst Blende Aktionen aus, wenn d...

Bernd Wurst authored 6 years ago

27) if (! config('http.net-apikey')) {
28)     system_failure("Dieses System ist nicht eingerichtet zum Hinzufügen von Domains");
29) }
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

30) 
31) $dom = NULL;
32) if (isset($_REQUEST['domain'])) {
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

33)     $request = idn_to_utf8($_REQUEST['domain'], 0, INTL_IDNA_VARIANT_UTS46);
34)     if (substr($request, 0, 4) == 'www.') {
35)         $request = str_replace('www.', '', $request);
36)     }
37)     verify_input_general($request);
38)     $punycode = idn_to_ascii($request, 0, INTL_IDNA_VARIANT_UTS46);
39)     if (!check_domain($punycode)) {
40)         warning("Ungültiger Domainname: ".filter_input_general($request));
Bernd Wurst Beta-Hinweis eingefügt

Bernd Wurst authored 6 years ago

41)         redirect('adddomain');
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

42)     }
43)     $dom = new Domain();
Bernd Wurst Ermögliche das Umziehen von...

Bernd Wurst authored 6 years ago

44)     if ($dom->loadByName($request) !== false && !$dom->is_customerdomain()) {
45)         warning('Diese Domain ist bei einem anderen Kunden von uns in Nutzung. Kontaktieren Sie den Support, wenn Sie eine Domain in ein anderes Kundenkonto übertragen möchten.');
46)         redirect('adddomain');
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

47)     }
48)     $dom = new Domain();
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

49)     if ($dom->loadByName($request) === false) {
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

50)         // Eintragen mit DNS und Mail
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

51)         $id = insert_domain_external($request, true, true);
52)         $dom->loadByName($request);
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

53)     } 
54)     $dom->ensure_customerdomain();
55)     if ($dom->provider == 'terions') {
56)         system_failure("Diese Domain ist bereits auf Ihr Kundenkonto registriert.");
57)     }
58)     
59)     // An diesem Punkt ist die Domain eingetragen als extern und ggf. mit Mailserver-Lock
60)     // Bei der Reg-Bestätigung wird das Lock entfernt und die Daten entsprechend gesetzt, inklusive Preise.
61) 
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

62)     $_SESSION['domains_domainreg_owner'] = $dom->owner;
63)     $_SESSION['domains_domainreg_admin_c'] = $dom->admin_c;
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

64)     $_SESSION['domains_domainreg_domainname'] = $request;
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

65)     $_SESSION['domains_domainreg_detach'] = 0;
66)     
67) } elseif (isset($_SESSION['domains_domainreg_domainname'])) {
68)     $domain = $_SESSION['domains_domainreg_domainname'];
69)     $dom = new Domain($domain);
70)     $dom->ensure_customerdomain();
71) }
72) 
73) if (!$dom) {
74)     system_failure("Keine Domain");
75) }
76) 
Bernd Wurst Lasse die API bestimmen was...

Bernd Wurst authored 6 years ago

77) $avail = api_domain_available($dom->fqdn);
78) $tld = $avail['extension'];
79) if ($tld != $dom->tld) {
80)     system_failure("Fehler in den Daten! Bitte Support informieren");
81) }
82) 
83) $pricedata = get_domain_offer($tld);
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

84) if (!$pricedata) {
Bernd Wurst Ermögliche das Umziehen von...

Bernd Wurst authored 6 years ago

85)     // Hier kommen wir hin, wenn eine externe Domain umgezogen wird, deren Endung wir nicht automatisch anbieten
86)     warning('Die Domain '.$dom->fqdn.' kann nicht über dieses Webinterface umgezogen werden weil bei dieser Endung Besonderheiten zu beachten sind. Bitte kontaktieren Sie den Support.');
87)     redirect('domains');
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

88) }
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

89) $mode=NULL;
90) 
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

91) if ($avail['status'] == 'available') {
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

92)     set_domain_prereg($dom->id);
93)     $mode = 'reg';
94)     title("Domain registrieren");
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

95) } elseif ($avail['status'] == 'registered' || $avail['status'] == 'alreadyRegistered') {
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

96)     // FIXME: alreadyRegistered bedeutet, dass die Domain bereits über uns verwaltet wird. Das wird dann hier nicht funktionieren
97)     set_domain_pretransfer($dom->id);
98)     $mode = 'transfer';
99)     title("Domain-Transfer vornehmen");
100) }
101) 
Bernd Wurst Beta-Hinweis eingefügt

Bernd Wurst authored 6 years ago

102) beta_notice();
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

103) 
104) output("<p>Domainname: <strong>".$dom->fqdn."</strong></p>");
105) 
106) $section='domains_domains';
107) 
108) 
109) output('<h4>Inhaber der Domain</h4>');
110) output('<p>Legen Sie hier einen neuen Inhaber für diese Domain fest.</p>');
111) 
Bernd Wurst Setze wenn möglich einen si...

Bernd Wurst authored 6 years ago

112) if ($_SESSION['domains_domainreg_owner'] === NULL) {
113)     $kundenkontakte = get_kundenkontakte();
114)     $customer = get_contact($kundenkontakte['kunde']);
115)     if (possible_domainholder($customer)) {
116)         $_SESSION['domains_domainreg_owner'] = $kundenkontakte['kunde'];
117)     } else {
118)         $list = array_keys(possible_domainholders());
119)         if (count($list) > 0) {
120)             $_SESSION['domains_domainreg_owner'] = $list[0];
121)         }
122)     }
123) }
124) 
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

125) if ($_SESSION['domains_domainreg_detach'] == 0) {
126)     $_SESSION['domains_domainreg_admin_c'] = $_SESSION['domains_domainreg_owner'];
127) } 
128) 
129) // Behandlung für "keinen extra Verwalter"
130) if (isset($_GET['admin_c']) && $_GET['admin_c'] == 'none') {
131)     $_SESSION['domains_domainreg_admin_c'] = $_SESSION['domains_domainreg_owner'];
132)     $_SESSION['domains_domainreg_detach'] = 0;
133) }
134) 
135) if ($_SESSION['domains_domainreg_owner']) {
136)     $owner = get_contact($_SESSION['domains_domainreg_owner']);
137) 
138)     $function = 'Inhaber';
139)     if ($_SESSION['domains_domainreg_admin_c'] == $_SESSION['domains_domainreg_owner']) {
140)         $function .= ' und Verwalter';
141)     }
142)     output('<p><strong>'.$function.':</strong></p>'.display_contact($owner, ''));
143) } else {
144)     output('<p><strong>Inhaber und Verwalter:</strong></p><p><em>Bisher kein Inhaber ausgewählt</em>');
145) }
Bernd Wurst Setze wenn möglich einen si...

Bernd Wurst authored 6 years ago

146) addnew('choose', 'Inhaber wählen', "type=owner&backto=domainreg");
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

147) if ($_SESSION['domains_domainreg_admin_c'] != $_SESSION['domains_domainreg_owner']) {
148)     $admin_c = get_contact($_SESSION['domains_domainreg_admin_c']);
149)     output('<p><strong>Verwalter:</strong></p>'.display_contact($admin_c, ''));
Bernd Wurst Setze wenn möglich einen si...

Bernd Wurst authored 6 years ago

150)     addnew('choose', 'Anderen Verwalter wählen', "type=admin_c&backto=domainreg");
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

151)     output('<p class="delete">'.internal_link('', 'Keinen separaten Verwalter festlegen', 'admin_c=none').'</p>');
152) } else {
153)     addnew('choose', 'Einen separaten Verwalter wählen', "type=admin_c&detach=1&backto=domainreg");
154) }
155) 
156) 
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

157) $form = '';
158) if ($mode == 'transfer') {
159)     $form .= '<h4>Auth-Info-Code für den Transfer</h4>';
160)     $form .= '<p><label for="authinfo">Auth-Info-Code für den Domainumzug:</label> <input type="text" name="authinfo" id="authinfo"></p>';
161)     
162) }
163) 
164) $form .= '<h4>Kosten</h4>';
165) 
166) $form .= '<p>Für die Verwaltung der Domain fallen folgende Kosten an:</p>
167) <table>
168) <tr><td>Domainname:</td><td><strong>'.$dom->fqdn.'</strong></td></tr>
Bernd Wurst Fehlermeldung bei nicht aut...

Bernd Wurst authored 6 years ago

169) <tr><td>Jahresgebühr:</td><td style="text-align: right;">'.$pricedata['gebuehr'].' €'.footnote('Preis für Deutschland, inkl. 19% USt. Preise für andere Länder entsprechend. Bitte beim Support anfragen').'</td></tr>';
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

170) if ($pricedata['setup']) {
Bernd Wurst Fehlermeldung bei nicht aut...

Bernd Wurst authored 6 years ago

171)     $form .= '<tr><td>Setup-Gebühr (einmalig):</td><td style="text-align: right;">'.$pricedata['setup'].' €'.footnote('Preis für Deutschland, inkl. 19% USt. Preise für andere Länder entsprechend. Bitte beim Support anfragen').'</td></tr>';
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

172) }
173) $form .='</table>';
Bernd Wurst hardening domain input (II)

Bernd Wurst authored 6 years ago

174) $form .= '<p>Mit dieser Bestellung geben Sie eine verbindliche Willenserklärung ab, diese Domain registrieren zu wollen. Sie treten in ein Vertragsverhältnis zu '.config('company_name').' unter dem Vorbehalt, dass die Domain registriert werden kann. Die Hoheit über die Vergabe der Domains hat die jeweils zuständige Registrierungsstelle. Es gelten die Vergabe-Bedingungen der jeweils zuständigen Registrierungsstelle.</p>
175) <p>Der Domain-Vertrag beginnt mit Zuteilung der Domain durch die Regisrierungsstelle und läuft jeweils '.$pricedata['interval'].' Monate. Er verlängert sich stets automatisch um weitere '.$pricedata['interval'].' Monate, wenn nicht bis 14 Tage vor Ende der Laufzeit eine Kündigung vorliegt.</p>';
Bernd Wurst Domain-Transfer und -Regist...

Bernd Wurst authored 6 years ago

176) 
177) $form .= '<p><input type="hidden" name="domain" value="'.filter_input_general($dom->fqdn).'">
178) <input type="submit" name="submit" value="Kostenpflichtigen Vertrag abschließen"></p>';
179) output(html_form('domains_domainreg', 'domainreg_save', '', $form));
180) output('<p>'.internal_link('domains', 'Zurück').'</p>');