9086c9ad77db90633e0629e9e86a88366265ded0
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

1) <?php
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

2) /*
3) This file belongs to the Webinterface of schokokeks.org Hosting
4) 
Bernd Wurst Copyright year update

Bernd Wurst authored 6 years ago

5) Written 2008-2018 by schokokeks.org Hosting, namely
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

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) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

11) You should have received a copy of the CC0 Public Domain Dedication along with this software. If not, see
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

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) */
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

16) 
17) require_once('inc/debug.php');
18) require_once('inc/base.php');
19) require_once('inc/security.php');
bernd Neue Autorecords-Tabelle

bernd authored 13 years ago

20) require_once('inc/error.php');
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

21) 
22) require_once('class/domain.php');
23) 
Hanno Böck add caa support

Hanno Böck authored 7 years ago

24) $caa_properties= array( 0 => "issue", 1 => "issuewild", 2 => "iodef" );
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

25) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

26) function get_dyndns_accounts()
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

27) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

28)     $uid = (int) $_SESSION['userinfo']['uid'];
29)     $result = db_query("SELECT * FROM dns.dyndns WHERE uid=?", array($uid));
30)     $list = array();
31)     while ($item = $result->fetch()) {
32)         array_push($list, $item);
33)     }
34)     DEBUG($list);
35)     return $list;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

36) }
37) 
38) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

39) function get_dyndns_account($id, $ignore=true)
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

40) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

41)     $args = array(":id" => (int) $id,
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

42)                 ":uid" => (int) $_SESSION['userinfo']['uid']);
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

43)     $result = db_query("SELECT * FROM dns.dyndns WHERE id=:id AND uid=:uid", $args);
44)     if ($result->rowCount() != 1) {
45)         if ($ignore) {
46)             return null;
47)         }
48)         logger(LOG_WARNING, "modules/dns/include/dnsinclude", "dyndns", "account »{$id}« invalid for uid »{$_SESSION['userinfo']['uid']}«.");
49)         system_failure("Account ungültig");
50)     }
51)     $item = $result->fetch();
52)     DEBUG($item);
53)     return $item;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

54) }
55) 
56) 
57) function create_dyndns_account($handle, $password_http, $sshkey)
58) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

59)     $uid = (int) $_SESSION['userinfo']['uid'];
bernd Warnings eliminiert und Plu...

bernd authored 14 years ago

60) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

61)     if ($password_http == '' && $sshkey == '') {
62)         system_failure('Sie müssen entweder einen SSH-Key oder ein Passwort zum Web-Update eingeben.');
63)     }
bernd Warnings eliminiert und Plu...

bernd authored 14 years ago

64) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

65)     $handle = filter_input_username($handle);
Hanno Böck validiere SSH-Keys korrekt

Hanno Böck authored 7 years ago

66) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

67)     if (strlen(trim($sshkey)) == 0) {
68)         $sshkey = null;
69)     } else {
70)         $sshkey = filter_ssh_key($sshkey);
71)     }
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

72) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

73)     $pwhash = null;
74)     if ($password_http) {
75)         $pwhash = "{SHA}".base64_encode(sha1($password_http, true));
76)     }
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

77) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

78)     db_query(
79)       "INSERT INTO dns.dyndns (uid, handle, password, sshkey) VALUES ".
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

80)            "(:uid, :handle, :pwhash, :sshkey)",
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

81)            array(":uid" => $uid, ":handle" => $handle, ":pwhash" => $pwhash, ":sshkey" => $sshkey)
82)   );
83)     $dyndns_id = db_insert_id();
84)     //$masterdomain = new Domain(config('masterdomain'));
85)     //db_query("INSERT INTO dns.custom_records (type, domain, hostname, dyndns, ttl) VALUES ".
86)     //         "('a', :dom, :hostname, :dyndns, 120)",
87)     //         array(":dom" => $masterdomain->id, ":hostname" => filter_input_hostname($handle).'.'.$_SESSION['userinfo']['username'], ":dyndns" => $dyndns_id));
88)     logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "inserted account {$dyndns_id}");
89)     return $dyndns_id;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

90) }
91) 
92) 
93) function edit_dyndns_account($id, $handle, $password_http, $sshkey)
94) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

95)     $id = (int) $id;
96)     $oldaccount = get_dyndns_account($id);
97)     $handle = filter_input_username($handle);
98)     $sshkey = filter_input_general($sshkey);
99)     if (chop($sshkey) == '') {
100)         $sshkey = null;
101)     }
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

102) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

103)     if ($oldaccount['handle'] != $handle) {
104)         $masterdomain = new Domain(config('masterdomain'));
105)         db_query(
106)         "UPDATE dns.custom_records SET hostname=:newhostname WHERE ".
Bernd Wurst Ändere automatisch erzeugte...

Bernd Wurst authored 9 years ago

107)              "hostname=:oldhostname AND domain=:dom AND dyndns=:dyndns AND ip IS NULL",
108)              array(":dom" => $masterdomain->id, ":newhostname" => filter_input_hostname($handle).'.'.$_SESSION['userinfo']['username'],
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

109)                    ":oldhostname" => $oldaccount['handle'].'.'.$_SESSION['userinfo']['username'],  ":dyndns" => $id)
110)     );
111)     }
Bernd Wurst Ändere automatisch erzeugte...

Bernd Wurst authored 9 years ago

112) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

113)     $args = array(":handle" => $handle, ":sshkey" => $sshkey, ":id" => $id);
114)     $pwhash = null;
115)     if ($password_http && $password_http != '************') {
116)         $args[":pwhash"] = "{SHA}".base64_encode(sha1($password_http, true));
117)         db_query("UPDATE dns.dyndns SET handle=:handle, password=:pwhash, sshkey=:sshkey WHERE id=:id", $args);
118)     } else {
119)         db_query("UPDATE dns.dyndns SET handle=:handle, sshkey=:sshkey WHERE id=:id", $args);
120)     }
121)     logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "edited account »{$id}«");
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

122) }
123) 
124) 
125) function delete_dyndns_account($id)
126) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

127)     $id = (int) $id;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

128) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

129)     db_query("DELETE FROM dns.dyndns WHERE id=?", array($id));
130)     logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "deleted account »{$id}«");
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

131) }
132) 
133) 
134) function get_dyndns_records($id)
135) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

136)     $id = (int) $id;
137)     $result = db_query("SELECT hostname, domain, type, ttl, lastchange, id FROM dns.custom_records WHERE dyndns=?", array($id));
138)     $data = array();
139)     while ($entry = $result->fetch()) {
140)         $dom = new Domain((int) $entry['domain']);
141)         if ($dom->fqdn != config('masterdomain') && $dom->fqdn != config('user_vhosts_domain')) {
142)             $dom->ensure_userdomain();
143)         }
144)         $entry['fqdn'] = $entry['hostname'].'.'.$dom->fqdn;
145)         if (! $entry['hostname']) {
146)             $entry['fqdn'] = $dom->fqdn;
147)         }
148)         array_push($data, $entry);
Bernd Wurst Erzeuge DNS-Records der For...

Bernd Wurst authored 9 years ago

149)     }
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

150)     DEBUG($data);
151)     return $data;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

152) }
153) 
Hanno Böck add caa support

Hanno Böck authored 7 years ago

154) $valid_record_types = array('a', 'aaaa', 'mx', 'ns', 'spf', 'txt', 'cname', 'ptr', 'srv', 'raw', 'sshfp', 'caa');
bernd some updates

bernd authored 15 years ago

155) 
156) 
157) function blank_dns_record($type)
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

158) {
159)     global $valid_record_types;
160)     if (!in_array(strtolower($type), $valid_record_types)) {
161)         system_failure('invalid type: '.$type);
162)     }
163)     $rec = array('hostname' => null,
bernd some updates

bernd authored 15 years ago

164)                'domain' => 0,
165)                'type' => strtolower($type),
166)                'ttl' => 3600,
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

167)                'ip' => null,
168)                'dyndns' => null,
169)                'data' => null,
170)                'spec' => null);
171)     if (strtolower($type) == 'mx') {
172)         $rec['data'] = config('default_mx');
173)         $rec['spec'] = '5';
174)     }
175)     return $rec;
bernd some updates

bernd authored 15 years ago

176) }
177) 
178) function get_dns_record($id)
179) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

180)     $id = (int) $id;
181)     $result = db_query("SELECT hostname, domain, type, ip, dyndns, spec, data, ttl FROM dns.custom_records WHERE id=?", array($id));
182)     if ($result->rowCount() != 1) {
183)         system_failure('illegal ID');
184)     }
185)     $data = $result->fetch();
186)     $dom = new Domain((int) $data['domain']);
187)     $dom->ensure_userdomain();
188)     DEBUG($data);
189)     return $data;
bernd some updates

bernd authored 15 years ago

190) }
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

191) 
192) 
193) function get_domain_records($dom)
194) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

195)     $dom = (int) $dom;
196)     $result = db_query("SELECT hostname, domain, type, ip, dyndns, spec, data, ttl, id FROM dns.custom_records WHERE domain=?", array($dom));
197)     $data = array();
198)     while ($entry = $result->fetch()) {
199)         $dom = new Domain((int) $entry['domain']);
200)         $dom->ensure_userdomain();
201)         $entry['fqdn'] = $entry['hostname'].'.'.$dom->fqdn;
202)         if (! $entry['hostname']) {
203)             $entry['fqdn'] = $dom->fqdn;
204)         }
205)         array_push($data, $entry);
206)     }
207)     DEBUG($data);
208)     return $data;
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

209) }
210) 
bernd some updates

bernd authored 15 years ago

211) function get_domain_auto_records($domainname)
212) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

213)     $result = db_query("SELECT hostname, domain, CONCAT_WS('.', hostname, domain) AS fqdn, type, ip, spec, data, ttl FROM dns.tmp_autorecords WHERE domain=?", array($domainname));
214)     $data = array();
215)     while ($entry = $result->fetch()) {
216)         array_push($data, $entry);
217)     }
218)     DEBUG($data);
219)     return $data;
bernd some updates

bernd authored 15 years ago

220) }
221) 
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

222) 
Hanno Böck add caa support

Hanno Böck authored 7 years ago

223) $implemented_record_types = array('a', 'aaaa', 'mx', 'spf', 'txt', 'cname', 'ptr', 'srv', 'ns', 'sshfp', 'caa');
bernd add save function

bernd authored 15 years ago

224) 
225) function save_dns_record($id, $record)
226) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

227)     global $valid_record_types;
228)     global $implemented_record_types;
229)     $record['type'] = strtolower($record['type']);
230)     if (!in_array($record['type'], $valid_record_types)) {
231)         system_failure('invalid type: '.$record['type']);
232)     }
233)     if (!in_array($record['type'], $implemented_record_types)) {
234)         system_failure('record type '.$record['type'].' not implemented at the moment.');
235)     }
236)     $dom = new Domain((int) $record['domain']);
237)     $dom->ensure_userdomain();
238)     if (! $dom->id) {
239)         system_failure('invalid domain');
240)     }
241)     if ($record['hostname'] == '') {
242)         $record['hostname'] = null;
243)     }
244)     verify_input_hostname($record['hostname'], true);
245)     verify_input_recorddata($record['data']);
246)     if ($record['ttl'] &&  (int) $record['ttl'] < 1) {
247)         system_failure('Fehler bei TTL');
248)     }
249)     switch ($record['type']) {
bernd add save function

bernd authored 15 years ago

250)     case 'a':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

251)       if ($record['dyndns']) {
252)           get_dyndns_account($record['dyndns']);
253)           $record['ip'] = null;
254)       } else {
255)           verify_input_ipv4($record['ip']);
256)           $record['data'] = null;
257)           $record['spec'] = null;
bernd add save function

bernd authored 15 years ago

258)       }
259)       break;
260)     case 'aaaa':
Bernd Wurst IPv6-support für DynDNS

Bernd Wurst authored 5 years ago

261)       if ($record['dyndns']) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

262)           get_dyndns_account($record['dyndns']);
263)           $record['ip'] = null;
Bernd Wurst IPv6-support für DynDNS

Bernd Wurst authored 5 years ago

264)       } else {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

265)           $record['dyndns'] = null;
Bernd Wurst IPv6-support für DynDNS

Bernd Wurst authored 5 years ago

266)           verify_input_ipv6($record['ip']);
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

267)           $record['data'] = null;
268)           $record['spec'] = null;
Bernd Wurst IPv6-support für DynDNS

Bernd Wurst authored 5 years ago

269)       }
bernd add save function

bernd authored 15 years ago

270)       break;
271)     case 'mx':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

272)       $record['dyndns'] = null;
bernd add save function

bernd authored 15 years ago

273)       $record['spec'] = (int) $record['spec'];
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

274)       if ($record['spec'] < 1) {
275)           systen_failure("invalid priority");
276)       }
bernd add save function

bernd authored 15 years ago

277)       verify_input_hostname($record['data']);
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

278)       if (! $record['data']) {
279)           system_failure('MX hostname missing');
280)       }
281)       $record['ip'] = null;
bernd add save function

bernd authored 15 years ago

282)       break;
bernd DNs-record-Interface ist je...

bernd authored 14 years ago

283)     case 'ptr':
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

284)     case 'ns':
Bernd Wurst Text für Autorecords geände...

Bernd Wurst authored 6 years ago

285)       if (!$record['hostname']) {
286)           system_failure("Die angestrebte Konfiguration wird nicht funktionieren, Speichern wurde daher verweigert.");
287)       }
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

288)       // no break
Bernd Wurst Text für Autorecords geände...

Bernd Wurst authored 6 years ago

289)     case 'cname':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

290)       $record['dyndns'] = null;
291)       $record['spec'] = null;
292)       $record['ip'] = null;
bernd add save function

bernd authored 15 years ago

293)       verify_input_hostname($record['data']);
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

294)       if (! $record['data']) {
295)           system_failure('destination host missing');
296)       }
bernd add save function

bernd authored 15 years ago

297)       break;
298) 
bernd DNs-record-Interface ist je...

bernd authored 14 years ago

299)     case 'spf':
300)     case 'txt':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

301)       $record['dyndns'] = null;
302)       $record['spec'] = null;
303)       $record['ip'] = null;
304)       if (! $record['data']) {
305)           system_failure('text entry missing');
306)       }
bernd SPF und TXT records

bernd authored 14 years ago

307)       break;
308) 
bernd SSHFP-Records (Thanks to Ma...

bernd authored 12 years ago

309)     case 'sshfp':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

310)       $record['dyndns'] = null;
311)       $record['spec'] = max((int) $record['spec'], 1);
312)       $record['ip'] = null;
313)       if (! $record['data']) {
314)           system_failure('text entry missing');
315)       }
bernd SSHFP-Records (Thanks to Ma...

bernd authored 12 years ago

316)       break;
317) 
Hanno Böck add caa support

Hanno Böck authored 7 years ago

318)     case 'caa':
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

319)       $record['dyndns'] = null;
320)       $record['ip'] = null;
321)       if (! $record['data']) {
322)           system_failure('text entry missing');
323)       }
Hanno Böck add caa support

Hanno Böck authored 7 years ago

324)       break;
bernd SSHFP-Records (Thanks to Ma...

bernd authored 12 years ago

325) 
bernd add save function

bernd authored 15 years ago

326)     case 'srv':
327)       system_failure('not implemented yet');
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

328)       // no break
bernd add save function

bernd authored 15 years ago

329)     default:
330)       system_failure('Not implemented');
331)   }
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

332)     $id = (int) $id;
333)     $args = array(":domain" => $dom->id,
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

334)                 ":hostname" => $record['hostname'],
335)                 ":type" => $record['type'],
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

336)                 ":ttl" => ($record['ttl'] == 0 ? null : (int) $record['ttl']),
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

337)                 ":ip" => $record['ip'],
338)                 ":dyndns" => $record['dyndns'],
339)                 ":data" => $record['data'],
340)                 ":spec" => $record['spec']);
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

341)     if ($id) {
342)         $args[":id"] = $id;
343)         db_query("UPDATE dns.custom_records SET hostname=:hostname, domain=:domain, type=:type, ttl=:ttl, ip=:ip, dyndns=:dyndns, data=:data, spec=:spec WHERE id=:id", $args);
344)     } else {
345)         db_query("INSERT INTO dns.custom_records (hostname, domain, type, ttl, ip, dyndns, data, spec) VALUES (:hostname, :domain, :type, :ttl, :ip, :dyndns, :data, :spec)", $args);
346)     }
bernd add save function

bernd authored 15 years ago

347) }
348) 
349) 
350) function delete_dns_record($id)
351) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

352)     $id = (int) $id;
353)     // Diese Funktion prüft, ob der Eintrag einer eigenen Domain gehört
354)     $record = get_dns_record($id);
355)     db_query("DELETE FROM dns.custom_records WHERE id=?", array($id));
bernd add save function

bernd authored 15 years ago

356) }
bernd Stub für dns-Admin-Interface

bernd authored 15 years ago

357) 
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

358) 
359) function convert_from_autorecords($domainid)
360) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

361)     $dom = new Domain((int) $domainid);
362)     $dom->ensure_userdomain();
363)     $dom = $dom->id;
364) 
365)     db_query("INSERT IGNORE INTO dns.custom_records SELECT r.id, r.lastchange, type, d.id, hostname, ip, NULL AS dyndns, data, spec, ttl FROM dns.v_tmptable_allrecords AS r INNER JOIN dns.v_domains AS d ON (d.name=r.domain) WHERE d.id=?", array($dom));
366)     disable_autorecords($dom);
367)     db_query("UPDATE dns.dnsstatus SET status='outdated'");
368)     warning("Die automatischen Einträge werden in Kürze abgeschaltet, bitte haben Sie einen Moment Geduld.");
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

369) }
370) 
371) 
372) function enable_autorecords($domainid)
373) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

374)     $dom = new Domain((int) $domainid);
375)     $dom->ensure_userdomain();
376)     $dom = $dom->id;
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

377) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

378)     db_query("UPDATE kundendaten.domains SET autodns=1 WHERE id=?", array($dom));
379)     db_query("DELETE FROM dns.custom_records WHERE type='ns' AND domain=? AND hostname IS NULL", array($dom));
380)     warning("Die automatischen Einträge werden in Kürze aktiviert, bitte haben Sie einen Moment Geduld.");
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

381) }
382) 
383) function disable_autorecords($domainid)
384) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

385)     $dom = new Domain((int) $domainid);
386)     $dom->ensure_userdomain();
387)     $dom = $dom->id;
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

388) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

389)     db_query("UPDATE kundendaten.domains SET autodns=0 WHERE id=?", array($dom));
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

390) }
391) 
392) 
Bernd Wurst Warnung, wenn man bei einer...

Bernd Wurst authored 11 years ago

393) function domain_is_maildomain($domain)
394) {
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

395)     $domain = (int) $domain;
396)     $result = db_query("SELECT mail FROM kundendaten.domains WHERE id=?", array($domain));
397)     $dom = $result->fetch();
398)     return ($dom['mail'] != 'none');
Bernd Wurst Warnung, wenn man bei einer...

Bernd Wurst authored 11 years ago

399) }
400) 
bernd Autodns ein- und ausschaltb...

bernd authored 14 years ago

401) 
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

402) $own_ns = array();
403) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

404) function own_ns()
405) {
406)     global $own_ns;
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

407) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

408)     if (count($own_ns) < 1) {
409)         $auth = dns_get_record(config('masterdomain'), DNS_NS);
410)         foreach ($auth as $ns) {
411)             $own_ns[] = $ns['target'];
412)         }
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

413)     }
414) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

415)     return $own_ns;
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

416) }
417) 
418) 
419) $tld_ns = array();
420) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

421) function check_dns($domainname, $tld)
422) {
423)     global $tld_ns;
424)     $domain=idn_to_ascii($domainname.".".$tld, 0, INTL_IDNA_VARIANT_UTS46);
425) 
426)     if (! isset($tld_ns[$tld])) {
427)         $resp = shell_exec('dig @a.root-servers.net. +noall +authority -t ns '.$tld.'.');
428)         $line = explode("\n", $resp, 2)[0];
429)         $NS = preg_replace("/^.*\\sIN\\s+NS\\s+(\\S+)$/", '\1', $line);
430)         $tld_ns[$tld] = $NS;
431)     }
Hanno remove whitespace in empty...

Hanno authored 5 years ago

432) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

433)     $resp = shell_exec('dig @'.$tld_ns[$tld].' +noall +authority -t ns '.$domain.'.');
434)     $line = explode("\n", $resp, 2)[0];
435)     if (preg_match('/^.*\\sIN\\s+NS\\s+/', $line) === 0) {
436)         return "NXDOMAIN";
437)     }
438)     $NS = preg_replace("/^.*\\sIN\\s+NS\\s+(\\S+).$/", '\1', $line);
Hanno remove whitespace in empty...

Hanno authored 5 years ago

439) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

440)     $own_ns = own_ns();
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

441) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

442)     if (in_array($NS, $own_ns)) {
443)         return true;
444)     }
445)     return $NS;
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

446) }
447) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

448) function remove_from_dns($dom)
449) {
450)     $domains = get_domain_list($_SESSION['customerinfo']['customerno'], $_SESSION['userinfo']['uid']);
451)     $current = null;
452)     foreach ($domains as $d) {
453)         if ($d->id == $dom && $d->dns == 1) {
454)             $current = $d;
455)             break;
456)         }
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

457)     }
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

458)     if (! $current) {
459)         system_failure("Domain nicht gefunden!");
460)     }
461)     db_query("UPDATE kundendaten.domains SET dns=0 WHERE id=?", array($current->id));
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

462) }
463) 
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

464) function add_to_dns($dom)
465) {
466)     $domains = get_domain_list($_SESSION['customerinfo']['customerno'], $_SESSION['userinfo']['uid']);
467)     $current = null;
468)     foreach ($domains as $d) {
469)         if ($d->id == $dom && $d->dns == 0) {
470)             $current = $d;
471)             break;
472)         }
Bernd Wurst Warne, wenn bei den DNS-Ser...

Bernd Wurst authored 10 years ago

473)     }
Hanno Fix coding style with php-c...

Hanno authored 5 years ago

474)     if (! $current) {
475)         system_failure("Domain nicht gefunden!");
476)     }
477)     db_query("UPDATE kundendaten.domains SET dns=1, autodns=1 WHERE id=?", array($current->id));