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/base.php");
18) require_once("inc/error.php");
19) require_once("inc/security.php");
20) 
21) require_once('class/domain.php');
22) 

23) require_once("certs.php");
24) 

25) 

26) function traffic_month($vhost_id)
27) {
28)   $vhost_id = (int) $vhost_id;

29)   $result = DB::query("SELECT sum(mb_in+mb_out) as mb FROM vhosts.traffic where date > CURDATE() - INTERVAL 1 MONTH AND vhost_id = {$vhost_id}");
30)   $data = $result->fetch_assoc();

31)   return $data['mb'];
32) }
33) 

34) function autoipv6_address($vhost_id, $mode = 1)

35) {

36)   $result = DB::query("SELECT uid, v6_prefix FROM vhosts.v_vhost LEFT JOIN system.servers ON (servers.hostname = server) WHERE v_vhost.id={$vhost_id}");
37)   $data = $result->fetch_assoc();

38)   if (!$data['v6_prefix'])
39)   {
40)     warning("IPv6-Adresse nicht verfügbar, Server unterstützt kein IPv6");
41)     return "";
42)   }

43)   list($prefix, $null) = explode('/', $data['v6_prefix']);

44)   $vh = ':1';
45)   if ($mode == 2) {
46)     $vh = implode(':', str_split(sprintf("%08x", $vhost_id), 4));
47)   }

48)   $ipv6 = $prefix . sprintf("%04s", $data['uid']) . ':' . $vh;

49)   return $ipv6;
50) }
51) 
52) 

53) function list_vhosts()
54) {
55)   $uid = (int) $_SESSION['userinfo']['uid'];

56)   $result = DB::query("SELECT vh.id,fqdn,domain,docroot,docroot_is_default,php,cgi,vh.certid AS cert, vh.ssl, vh.options,logtype,errorlog,IF(dav.id IS NULL OR dav.type='svn', 0, 1) AS is_dav,IF(dav.id IS NULL OR dav.type='dav', 0, 1) AS is_svn, IF(webapps.id IS NULL, 0, 1) AS is_webapp, stats FROM vhosts.v_vhost AS vh LEFT JOIN vhosts.dav ON (dav.vhost=vh.id) LEFT JOIN vhosts.webapps ON (webapps.vhost = vh.id) WHERE uid={$uid} ORDER BY domain,hostname");

57)   $ret = array();

58)   while ($item = $result->fetch_assoc())

59)     array_push($ret, $item);
60)   return $ret;
61) }
62) 

63) function ipv6_possible($server)

64) {

65)   $serverid = (int) $server;

66)   $servername = DB::escape($server);
67)   $result = DB::query("SELECT v6_prefix FROM system.servers WHERE id={$serverid} OR hostname='{$servername}'");
68)   $line = $result->fetch_assoc();

69)   DEBUG("Server {$server} is v6-capable: ". ($line['v6_prefix'] != NULL));
70)   return ($line['v6_prefix'] != NULL);

71) }
72) 

73) function empty_vhost()
74) {

75)   $vhost['id'] = NULL;

76)   $vhost['hostname'] = '';
77)   

78)   $vhost['domain_id'] = -1;

79)   $vhost['domain'] = $_SESSION['userinfo']['username'].'.'.config('masterdomain');

80)   
81)   $vhost['homedir'] = $_SESSION['userinfo']['homedir'];
82)   $vhost['docroot'] = NULL;

83)   $vhost['php'] = 'php54';

84)   $vhost['cgi'] = 1;

85)   $vhost['ssl'] = NULL;

86)   $vhost['suexec_user'] = NULL;

87)   $vhost['server'] = NULL;

88)   $vhost['logtype'] = NULL;

89)   $vhost['errorlog'] = 0;

90)   $vhost['is_dav'] = 0;
91)   $vhost['is_svn'] = 0;
92)   $vhost['is_webapp'] = 0;

93)   $vhost['webapp_id'] = NULL;
94)   
95)   $vhost['cert'] = NULL;

96)   $vhost['certid'] = NULL;

97)   $vhost['ipv4'] = NULL;

98)   $vhost['autoipv6'] = 2; // 1 => Eine IP pro User, 2 => Eine IP pro VHost

99) 

100)   $vhost['options'] = '';

101)   $vhost['stats'] = NULL;

102)   return $vhost;
103) }
104) 
105) 

106) function empty_alias()
107) {
108)   $alias['hostname'] = '';
109)   

110)   $alias['domain_id'] = -1;

111)   $alias['domain'] = $_SESSION['userinfo']['username'].'.'.config('masterdomain');

112)   
113)   $alias['options'] = '';
114)   return $alias;
115) }
116) 
117) 

118) function domainselect($selected = NULL, $selectattribute = '')

119) {

120)   global $domainlist, $config;

121)   if ($domainlist == NULL)
122)     $domainlist = get_domain_list($_SESSION['customerinfo']['customerno'],
123)                                   $_SESSION['userinfo']['uid']);
124)   $selected = (int) $selected;
125) 

126)   $ret = '<select id="domain" name="domain" size="1" '.$selectattribute.' >';

127)   $ret .= ' <option value="-1">'.$_SESSION['userinfo']['username'].'.'.config('masterdomain').'</option>';

128)   $ret .= ' <option value="" disabled="disabled">--------------------------------</option>';

129)   foreach ($domainlist as $dom)
130)   {

131)     $s = ($selected == $dom->id) ? ' selected="selected" ': '';

132)     $ret .= "<option value=\"{$dom->id}\"{$s}>{$dom->fqdn}</option>\n";
133)   }
134)   $ret .= '</select>';
135)   return $ret;
136) }
137) 
138) 
139) 
140) function get_vhost_details($id)
141) {
142)   $id = (int) $id;
143)   $uid = (int) $_SESSION['userinfo']['uid'];

144)   $result = DB::query("SELECT vh.*,IF(dav.id IS NULL OR dav.type='svn', 0, 1) AS is_dav,IF(dav.id IS NULL OR dav.type='dav', 0, 1) AS is_svn, IF(webapps.id IS NULL, 0, 1) AS is_webapp FROM vhosts.v_vhost AS vh LEFT JOIN vhosts.dav ON (dav.vhost=vh.id) LEFT JOIN vhosts.webapps ON (webapps.vhost = vh.id) WHERE uid={$uid} AND vh.id={$id}");
145)   if ($result->num_rows != 1)

146)     system_failure('Interner Fehler beim Auslesen der Daten');
147) 

148)   $ret = $result->fetch_assoc();

149) 
150)   $ret['server'] = $ret['server_id'];

151)   DEBUG($ret);
152)   return $ret;

153) }
154) 
155) 
156) function get_aliases($vhost)
157) {

158)   $result = DB::query("SELECT id,fqdn,options FROM vhosts.v_alias WHERE vhost={$vhost}");

159)   $ret = array();

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

161)     array_push($ret, $item);

162)   }
163)   return $ret;
164) }
165) 
166) 
167) 
168) function get_all_aliases($vhost)
169) {

170)   //$vhost = get_vhost_details( (int) $vhost );

171)   $aliases = get_aliases($vhost['id']);
172)   $ret = array();
173)   if (strstr($vhost['options'], 'aliaswww')) {
174)     array_push($ret, array('id' => 'www', 'fqdn' => 'www.'.$vhost['fqdn'], 'options' => (strstr($vhost['options'], 'forwardwww') ? 'forward' : '')));
175)   }
176)   foreach ($aliases as $item) {
177)     array_push($ret, $item);
178)     if (strstr($item['options'], 'aliaswww')) {
179)       array_push($ret, array('id' => 'www_'.$item['id'], 'fqdn' => 'www.'.$item['fqdn'], 'options' => (strstr($item['options'], 'forward') ? 'forward' : '')));
180)     }
181)   }

182)   return $ret;
183) }
184) 

185) 

186) function list_available_webapps()
187) {

188)   $result = DB::query("SELECT id,displayname FROM vhosts.global_webapps");

189)   $ret = array();

190)   while ($item = $result->fetch_assoc())

191)     array_push($ret, $item);
192)   return $ret;
193) }
194) 
195) 

196) function delete_vhost($id)
197) {
198)   $id = (int) $id;
199)   if ($id == 0)
200)     system_failure("id == 0");
201)   $vhost = get_vhost_details($id);

202)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Removing vhost #'.$id.' ('.$vhost['hostname'].'.'.$vhost['domain'].')');

203)   DB::query("DELETE FROM vhosts.vhost WHERE id={$vhost['id']} LIMIT 1");

204) }
205) 

206) 

207) 
208) function make_svn_vhost($id) 
209) {
210)   $id = (int) $id;
211)   if ($id == 0)
212)     system_failure("id == 0");

213)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Converting vhost #'.$id.' to SVN');

214)   DB::query("REPLACE INTO vhosts.dav (vhost, type) VALUES ({$id}, 'svn')");
215)   DB::query("DELETE FROM vhosts.webapps WHERE vhost={$id}");

216) }
217) 
218) function make_dav_vhost($id) 
219) {
220)   $id = (int) $id;
221)   if ($id == 0)
222)     system_failure("id == 0");

223)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Converting vhost #'.$id.' to WebDAV');

224)   DB::query("REPLACE INTO vhosts.dav (vhost, type, options) VALUES ({$id}, 'dav', 'nouserfile')");
225)   DB::query("DELETE FROM vhosts.webapps WHERE vhost={$id}");

226) }
227) 

228) function make_regular_vhost($id)

229) {
230)   $id = (int) $id;
231)   if ($id == 0)
232)     system_failure("id == 0");

233)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Converting vhost #'.$id.' to regular');

234)   DB::query("DELETE FROM vhosts.dav WHERE vhost={$id}");
235)   DB::query("DELETE FROM vhosts.webapps WHERE vhost={$id}");

236) }
237) 
238) 
239) function make_webapp_vhost($id, $webapp) 
240) {
241)   $id = (int) $id;
242)   $webapp = (int) $webapp;
243)   if ($id == 0)
244)     system_failure("id == 0");

245)   $result = DB::query("SELECT displayname FROM vhosts.global_webapps WHERE id={$webapp};");
246)   if ($result->num_rows == 0)

247)     system_failure("webapp-id invalid");

248)   $webapp_name = $result->fetch_object()->displayname;

249)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Setting up webapp '.$webapp_name.' on vhost #'.$id);

250)   DB::query("REPLACE INTO vhosts.webapps (vhost, webapp) VALUES ({$id}, {$webapp})");

251)   mail('webapps-setup@schokokeks.org', 'setup', 'setup');

252) }
253) 
254) 

255) function check_hostname_collision($hostname, $domain) 
256) {

257)   $uid = (int) $_SESSION['userinfo']['uid'];

258)   # Neuer vhost => Prüfe Duplikat

259)   $hostnamecheck = "hostname='".DB::escape($hostname)."'";

260)   if (! $hostname) {
261)     $hostnamecheck = "hostname IS NULL";
262)   }
263)   $domaincheck = "domain=". (int) $domain ;
264)   if ($domain == -1) {

265)     $domaincheck = "domain IS NULL AND user={$uid}";

266)   }

267)   $result = DB::query("SELECT id FROM vhosts.vhost WHERE {$hostnamecheck} AND {$domaincheck}");
268)   if ($result->num_rows > 0) {

269)     system_failure('Eine Konfiguration mit diesem Namen gibt es bereits.');
270)   }

271)   if ($domain == -1) {
272)     return ;
273)   }

274)   $result = DB::query("SELECT id, vhost FROM vhosts.alias WHERE {$hostnamecheck} AND {$domaincheck}");
275)   if ($result->num_rows > 0) {
276)     $data = $result->fetch_assoc();

277)     $vh = get_vhost_details($data['vhost']);
278)     system_failure('Dieser Hostname ist bereits als Alias für »'.$vh['fqdn'].'« eingerichtet');
279)   }
280) }
281) 

282) function save_vhost($vhost)
283) {
284)   if (! is_array($vhost))
285)     system_failure('$vhost kein array!');
286)   $id = (int) $vhost['id'];
287)   $hostname = maybe_null($vhost['hostname']);

288)   $domain = (int) $vhost['domain_id'];

289)   if ($domain == 0)

290)     system_failure('$domain == 0');

291)   if ($vhost['domain_id'] == -1)

292)     $domain = 'NULL';

293)   if ($id == 0) {

294)     check_hostname_collision($vhost['hostname'], $vhost['domain_id']);

295)   }

296)   $docroot = maybe_null($vhost['docroot']);
297)   $php = maybe_null($vhost['php']);

298)   $cgi = ($vhost['cgi'] == 1 ? 1 : 0);

299)   $ssl = maybe_null($vhost['ssl']);

300)   $suexec_user = 'NULL';
301) 
302)   $available_suexec = available_suexec_users();
303)   foreach ($available_suexec AS $u)
304)     if ($u['uid'] == $vhost['suexec_user'])
305)       $suexec_user = $u['uid'];
306) 

307)   $server = 'NULL';
308)   $available_servers = additional_servers();
309)   if (in_array($vhost['server'], $available_servers)) {
310)     $server = (int) $vhost['server'];
311)   }
312)   if ($server == my_server_id()) {
313)     $server = 'NULL';
314)   }
315) 

316)   $logtype = maybe_null($vhost['logtype']);

317)   $errorlog = (int) $vhost['errorlog'];

318)   if ($vhost['is_svn']) {

319)     if (! $vhost['options']) $vhost['options']='nodocroot';
320)     else $vhost['options']+=",nodocroot";
321)   }

322)   $options = DB::escape( $vhost['options'] );

323) 

324)   $cert = 0;
325)   $certs = user_certs();
326)   foreach ($certs as $c)
327)     if ($c['id'] == $vhost['cert'])
328)       $cert = $c['id'];
329)   if ($cert == 0)
330)     $cert = 'NULL';
331) 

332)   $ipv4 = 'NULL';
333)   $ipv4_avail = user_ipaddrs();
334)   if (in_array($vhost['ipv4'], $ipv4_avail))
335)   {
336)     $ipv4 = maybe_null($vhost['ipv4']);
337)   }

338) 

339)   $autoipv6 = 1;
340)   if ($vhost['autoipv6'] == 0 ||  $vhost['autoipv6'] == 2) {
341)     $autoipv6 = $vhost['autoipv6'];
342)   }

343) 

344)   $stats = maybe_null($vhost['stats']);

345) 

346)   if ($id != 0) {

347)     logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Updating vhost #'.$id.' ('.$vhost['hostname'].'.'.$vhost['domain'].')');

348)     DB::query("UPDATE vhosts.vhost SET hostname={$hostname}, domain={$domain}, docroot={$docroot}, php={$php}, cgi={$cgi}, `ssl`={$ssl}, `suexec_user`={$suexec_user}, `server`={$server}, logtype={$logtype}, errorlog={$errorlog}, certid={$cert}, ipv4={$ipv4}, autoipv6={$autoipv6}, options='{$options}', stats={$stats} WHERE id={$id} LIMIT 1");

349)   }
350)   else {

351)     logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'vhosts', 'Creating vhost '.$vhost['hostname'].'.'.$vhost['domain'].'');

352)     $result = DB::query("INSERT INTO vhosts.vhost (user, hostname, domain, docroot, php, cgi, `ssl`, `suexec_user`, `server`, logtype, errorlog, certid, ipv4, autoipv6, options, stats) VALUES ({$_SESSION['userinfo']['uid']}, {$hostname}, {$domain}, {$docroot}, {$php}, {$cgi}, {$ssl}, {$suexec_user}, {$server}, {$logtype}, {$errorlog}, {$cert}, {$ipv4}, {$autoipv6}, '{$options}', {$stats})");
353)     $id = DB::insert_id();

354)   }

355)   $oldvhost = get_vhost_details($id);
356)   /*
357)     these vars may be 0 or 1.
358)     So newval > oldval means that it has been switched on yet.
359)   */
360)   if ($vhost['is_dav'] > $oldvhost['is_dav'])

361)       make_dav_vhost($id);

362)   elseif ($vhost['is_svn'] > $oldvhost['is_svn'])

363)       make_svn_vhost($id);

364)   elseif ($vhost['is_webapp'] > $oldvhost['is_webapp'])
365)       make_webapp_vhost($id, $vhost['webapp_id']);
366)   elseif ($vhost['is_dav'] == 0 && $vhost['is_svn'] == 0 && $vhost['is_webapp'] == 0)
367)       make_regular_vhost($id);

368) }
369) 
370) 

371) function get_alias_details($id)
372) {
373)   $id = (int) $id;
374)   $uid = (int) $_SESSION['userinfo']['uid'];

375)   $result = DB::query("SELECT * FROM vhosts.v_alias WHERE id={$id}");

376)   

377)   if ($result->num_rows != 1)

378)     system_failure('Interner Fehler beim Auslesen der Alias-Daten');
379)   

380)   $alias = $result->fetch_assoc();

381)   

382)   if ($alias['domain_id'] == NULL) {

383)     $alias['domain_id'] = -1;

384)   }

385) 
386)   /* Das bewirkt, dass nur die eigenen Aliase gesehen werden können */
387)   get_vhost_details( (int) $alias['vhost'] );
388) 
389)   return $alias;
390) }
391) 
392) 
393) function delete_alias($id)
394) {
395)   $id = (int) $id;
396)   $alias = get_alias_details($id);
397) 

398)   logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'aliases', 'Removing alias #'.$id.' ('.$alias['hostname'].'.'.$alias['domain'].')');

399)   DB::query("DELETE FROM vhosts.alias WHERE id={$id}");

400) }
401) 
402) function save_alias($alias)
403) {
404)   if (! is_array($alias))
405)     system_failure('$alias kein array!');

406)   $id = (isset($alias['id']) ? (int) $alias['id'] : 0);

407)   $hostname = maybe_null($alias['hostname']);

408)   $domain = (int) $alias['domain_id'];

409)   if ($domain == 0)
410)     system_failure('$domain == 0');

411)   if ($alias['domain_id'] == -1)

412)     $domain = 'NULL';

413)   $vhost = get_vhost_details( (int) $alias['vhost']);

414)   $options = DB::escape( $alias['options'] );

415)   if ($id == 0) {

416)     logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'aliases', 'Creating alias '.$alias['hostname'].'.'.$alias['domain'].' for VHost '.$vhost['id']);

417)     DB::query("INSERT INTO vhosts.alias (hostname, domain, vhost, options) VALUES ({$hostname}, {$domain}, {$vhost['id']}, '{$options}')");

418)   }
419)   else {

420)     logger(LOG_INFO, 'modules/vhosts/include/vhosts', 'aliases', 'Updating alias #'.$id.' ('.$alias['hostname'].'.'.$alias['domain'].')');

421)     DB::query("UPDATE vhosts.alias SET hostname={$hostname}, domain={$domain}, options='{$options}' WHERE id={$id} LIMIT 1");

422)   }
423) }
424) 

425) 

426) function available_suexec_users()
427) {
428)   $uid = (int) $_SESSION['userinfo']['uid'];

429)   $result = DB::query("SELECT uid, username FROM vhosts.available_users LEFT JOIN vhosts.v_useraccounts ON (uid = suexec_user) WHERE mainuser={$uid}");

430)   $ret = array();

431)   while ($i = $result->fetch_assoc())

432)     $ret[] = $i;
433)   DEBUG('available suexec-users:');
434)   DEBUG($ret);
435)   return $ret;
436) 
437) }

438) 

439) 
440) function user_ipaddrs()
441) {
442)   $uid = (int) $_SESSION['userinfo']['uid'];

443)   $result = DB::query("SELECT ipaddr FROM vhosts.ipaddr_available WHERE uid={$uid}");

444)   $ret = array();

445)   while ($i = $result->fetch_assoc())

446)   {
447)     $ret[] = $i['ipaddr'];
448)   }
449)   DEBUG($ret);
450)   return $ret;
451) }
452) 
453)