webinterface.git

1) <?php

2) /*
3) This file belongs to the Webinterface of schokokeks.org Hosting
4) 

5) Written 2008-2013 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/debug.php');

18) require_once('inc/db.php');

19) require_once('inc/base.php');
20) require_once('inc/security.php');

21) require_once('inc/error.php');

22) 
23) require_once('class/domain.php');
24) 
25) 
26) function get_dyndns_accounts() 
27) {
28)   $uid = (int) $_SESSION['userinfo']['uid'];

29)   $result = DB::query("SELECT * FROM dns.dyndns WHERE uid={$uid}");

30)   $list = array();

31)   while ($item = $result->fetch_assoc()) {

32)     array_push($list, $item);
33)   }
34)   DEBUG($list);
35)   return $list;
36) }
37) 
38) 
39) function get_dyndns_account($id) 
40) {
41)   $id = (int) $id;
42)   $uid = (int) $_SESSION['userinfo']['uid'];

43)   $result = DB::query("SELECT * FROM dns.dyndns WHERE id={$id} AND uid={$uid}");
44)   if ($result->num_rows != 1) {

45)     logger(LOG_WARNING, "modules/dns/include/dnsinclude", "dyndns", "account »{$id}« invalid for uid »{$uid}«.");

46)     system_failure("Account ungültig");
47)   }

48)   $item = $result->fetch_assoc();

49)   DEBUG($item);
50)   return $item;
51) }
52) 
53) 
54) function create_dyndns_account($handle, $password_http, $sshkey)
55) {
56)   $uid = (int) $_SESSION['userinfo']['uid'];

57) 
58)   if ($password_http == '' && $sshkey == '')
59)     system_failure('Sie müssen entweder einen SSH-Key oder ein Passwort zum Web-Update eingeben.');  
60) 

61)   $handle = maybe_null(DB::escape(filter_input_username($handle)));
62)   $sshkey = maybe_null(DB::escape(filter_input_general($sshkey)));

63) 
64)   $pwhash = 'NULL';
65)   if ($password_http)
66)     $pwhash = "'{SHA}".base64_encode(sha1($password_http, true))."'";
67) 

68)   DB::query("INSERT INTO dns.dyndns (uid, handle, password, sshkey) VALUES ({$uid}, {$handle}, {$pwhash}, {$sshkey})");

69)   logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "inserted account");

70) }
71) 
72) 
73) function edit_dyndns_account($id, $handle, $password_http, $sshkey)
74) {
75)   $id = (int) $id;

76)   $handle = maybe_null(DB::escape(filter_input_username($handle)));
77)   $sshkey = maybe_null(DB::escape(filter_input_general($sshkey)));

78) 
79)   $pwhash = 'NULL';
80)   if ($password_http)

81)   {
82)     if ($password_http == '************')
83)       $pwhash = 'password';
84)     else
85)       $pwhash = "'{SHA}".base64_encode(sha1($password_http, true))."'";
86)   }

87) 

88)   DB::query("UPDATE dns.dyndns SET handle={$handle}, password={$pwhash}, sshkey={$sshkey} WHERE id={$id} LIMIT 1");

89)   logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "edited account »{$id}«");

90) }
91) 
92) 
93) function delete_dyndns_account($id)
94) {
95)   $id = (int) $id;
96) 

97)   DB::query("DELETE FROM dns.dyndns WHERE id={$id} LIMIT 1");

98)   logger(LOG_INFO, "modules/dns/include/dnsinclude", "dyndns", "deleted account »{$id}«");

99) }
100) 
101) 
102) function get_dyndns_records($id)
103) {
104)   $id = (int) $id;

105)   $result = DB::query("SELECT hostname, domain, type, ttl, lastchange, id FROM dns.custom_records WHERE dyndns={$id}");

106)   $data = array();

107)   while ($entry = $result->fetch_assoc()) {

108)     $dom = new Domain((int) $entry['domain']);

109)     $dom->ensure_userdomain();

110)     $entry['fqdn'] = $entry['hostname'].'.'.$dom->fqdn;
111)     if (! $entry['hostname'])
112)       $entry['fqdn'] = $dom->fqdn;
113)     array_push($data, $entry);
114)   }
115)   DEBUG($data);
116)   return $data;
117) }
118) 

119) $valid_record_types = array('a', 'aaaa', 'mx', 'ns', 'spf', 'txt', 'cname', 'ptr', 'srv', 'raw', 'sshfp');

120) 
121) 
122) function blank_dns_record($type)
123) { 
124)   global $valid_record_types;
125)   if (!in_array(strtolower($type), $valid_record_types))
126)     system_failure('invalid type: '.$type);
127)   $rec = array('hostname' => NULL,
128)                'domain' => 0,
129)                'type' => strtolower($type),
130)                'ttl' => 3600,
131)                'ip' => NULL,
132)                'dyndns' => NULL,
133)                'data' => NULL,
134)                'spec' => NULL);
135)   if (strtolower($type) == 'mx')
136)   {

137)     $rec['data'] = config('default_mx');

138)     $rec['spec'] = '5';
139)   }
140)   return $rec;
141) }
142) 
143) function get_dns_record($id)
144) {
145)   $id = (int) $id;

146)   $result = DB::query("SELECT hostname, domain, type, ip, dyndns, spec, data, ttl FROM dns.custom_records WHERE id={$id}");
147)   if ($result->num_rows != 1)

148)     system_failure('illegal ID');

149)   $data = $result->fetch_assoc();

150)   $dom = new Domain( (int) $data['domain']);

151)   $dom->ensure_userdomain();

152)   DEBUG($data);
153)   return $data;
154) }

155) 
156) 
157) function get_domain_records($dom)
158) {
159)   $dom = (int) $dom;

160)   $result = DB::query("SELECT hostname, domain, type, ip, dyndns, spec, data, ttl, id FROM dns.custom_records WHERE domain={$dom}");

161)   $data = array();

162)   while ($entry = $result->fetch_assoc()) {

163)     $dom = new Domain((int) $entry['domain']);

164)     $dom->ensure_userdomain();

165)     $entry['fqdn'] = $entry['hostname'].'.'.$dom->fqdn;
166)     if (! $entry['hostname'])
167)       $entry['fqdn'] = $dom->fqdn;
168)     array_push($data, $entry);
169)   }
170)   DEBUG($data);
171)   return $data;
172) }
173) 

174) function get_domain_auto_records($domainname)
175) {

176)   $domainname = DB::escape($domainname);
177)   //$result = DB::query("SELECT hostname, domain, CONCAT_WS('.', hostname, domain) AS fqdn, type, ip, spec, data, TRIM(ttl) FROM dns.v_autogenerated_records WHERE domain='{$domainname}'");
178)   $result = DB::query("SELECT hostname, domain, CONCAT_WS('.', hostname, domain) AS fqdn, type, ip, spec, data, ttl FROM dns.tmp_autorecords WHERE domain='{$domainname}'");

179)   $data = array();

180)   while ($entry = $result->fetch_assoc()) {

181)     array_push($data, $entry);
182)   }
183)   DEBUG($data);
184)   return $data;
185) }
186) 

187) 

188) $implemented_record_types = array('a', 'aaaa', 'mx', 'spf', 'txt', 'cname', 'ptr', 'srv', 'ns', 'sshfp');

189) 
190) function save_dns_record($id, $record)
191) {
192)   global $valid_record_types;
193)   global $implemented_record_types;
194)   $record['type'] = strtolower($record['type']);
195)   if (!in_array($record['type'], $valid_record_types))
196)     system_failure('invalid type: '.$record['type']);
197)   if (!in_array($record['type'], $implemented_record_types))
198)     system_failure('record type '.$record['type'].' not implemented at the moment.');
199)   $dom = new Domain( (int) $record['domain'] );

200)   $dom->ensure_userdomain();

201)   if (! $dom->id)
202)     system_failure('invalid domain');

203)   verify_input_hostname($record['hostname'], true);

204)   if ($record['ttl'] &&  (int) $record['ttl'] < 1)
205)     system_failure('Fehler bei TTL');
206)   switch ($record['type']) 
207)   {
208)     case 'a':
209)       if ($record['dyndns'])
210)       {
211)         get_dyndns_account( $record['dyndns'] );

212)       	$record['ip'] = '';

213)       }
214)       else
215)       {
216)         verify_input_ipv4($record['ip']);
217)         $record['data'] = '';
218)         $record['spec'] = '';
219)       }
220)       break;
221)     case 'aaaa':
222)       $record['dyndns'] = '';

223)       verify_input_ipv6($record['ip']);

224)       $record['data'] = '';
225)       $record['spec'] = '';
226)       break;
227)     case 'mx':
228)       $record['dyndns'] = '';
229)       $record['spec'] = (int) $record['spec'];
230)       if ($record['spec'] < 1)
231)         systen_failure("invalid priority");
232)       verify_input_hostname($record['data']);
233)       if (! $record['data'] )
234)         system_failure('MX hostname missing');
235)       $record['ip'] = '';
236)       break;
237)     case 'cname':

238)     case 'ptr':

239)     case 'ns':

240)       $record['dyndns'] = '';
241)       $record['spec'] = '';
242)       $record['ip'] = '';
243)       verify_input_hostname($record['data']);
244)       if (! $record['data'] )

245)         system_failure('destination host missing');

246)       break;
247) 

248)     case 'spf':
249)     case 'txt':

250)       $record['dyndns'] = '';
251)       $record['spec'] = '';
252)       $record['ip'] = '';
253)       if (! $record['data'] )
254)         system_failure('text entry missing');
255)       break;
256) 

257)     case 'sshfp':
258)       $record['dyndns'] = '';
259)       $record['spec'] = max( (int) $record['spec'], 1);
260)       $record['ip'] = '';
261)       if (! $record['data'] )
262)         system_failure('text entry missing');
263)       break;
264) 
265) 

266)     case 'srv':
267)       system_failure('not implemented yet');
268)     default:
269)       system_failure('Not implemented');
270)   }
271)   $id = (int) $id;
272)   $record['hostname'] = maybe_null($record['hostname']);

273)   $record['ttl'] = ($record['ttl'] == 0 ? 'NULL' : (int) $record['ttl']);

274)   $record['ip'] = maybe_null($record['ip']);
275)   $record['data'] = maybe_null($record['data']);
276)   $record['spec'] = maybe_null($record['spec']);
277)   $record['dyndns'] = maybe_null($record['dyndns']);
278)   if ($id)

279)     DB::query("UPDATE dns.custom_records SET hostname={$record['hostname']}, domain={$dom->id}, type='{$record['type']}', ttl={$record['ttl']}, ip={$record['ip']}, dyndns={$record['dyndns']}, data={$record['data']}, spec={$record['spec']} WHERE id={$id} LIMIT 1");

280)   else

281)     DB::query("INSERT INTO dns.custom_records (hostname, domain, type, ttl, ip, dyndns, data, spec) VALUES ({$record['hostname']}, {$dom->id}, '{$record['type']}', {$record['ttl']}, {$record['ip']}, {$record['dyndns']}, {$record['data']}, {$record['spec']})");

282) 
283) }
284) 
285) 
286) function delete_dns_record($id)
287) {

288)   $id = (int) $id;
289)   // Diese Funktion prüft, ob der Eintrag einer eigenen Domain gehört
290)   $record = get_dns_record($id);

291)   DB::query("DELETE FROM dns.custom_records WHERE id={$id} LIMIT 1");

292) }

293) 

294) 
295) function convert_from_autorecords($domainid)
296) {
297)   $dom = new Domain( (int) $domainid );

298)   $dom->ensure_userdomain();

299)   $dom = $dom->id;
300) 

301)   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={$dom}");

302)   disable_autorecords($dom);

303)   DB::query("UPDATE dns.dnsstatus SET status='outdated'");

304)   warning("Die automatischen Einträge werden in Kürze abgeschaltet, bitte haben Sie einen Moment Geduld.");

305) }
306) 
307) 
308) function enable_autorecords($domainid)
309) {
310)   $dom = new Domain( (int) $domainid );

311)   $dom->ensure_userdomain();

312)   $dom = $dom->id;
313) 

314)   DB::query("UPDATE kundendaten.domains SET autodns=1 WHERE id={$dom} LIMIT 1");

315)   warning("Die automatischen Einträge werden in Kürze aktiviert, bitte haben Sie einen Moment Geduld.");

316) }
317) 
318) function disable_autorecords($domainid)
319) {
320)   $dom = new Domain( (int) $domainid );

321)   $dom->ensure_userdomain();

322)   $dom = $dom->id;
323) 

324)   DB::query("UPDATE kundendaten.domains SET autodns=0 WHERE id={$dom} LIMIT 1");

325) }
326) 
327) 

328) function domain_is_maildomain($domain)
329) {
330)   $domain = (int) $domain;

331)   $result = DB::query("SELECT mail FROM kundendaten.domains WHERE id={$domain}");
332)   $dom = $result->fetch_assoc();

333)   return ($dom['mail'] != 'none');
334) }
335) 

336)