webinterface.git

1) <?php

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

5) Written by schokokeks.org Hosting, namely

6)   Bernd Wurst <bernd@schokokeks.org>
7)   Hanno Böck <hanno@schokokeks.org>
8) 

9) This code is published under a 0BSD license.

10) 
11) 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.
12) */

13) 
14) require_once('session/start.php');
15) 

16) require_once('class/domain.php');

17) require_once('jabberaccounts.php');
18) 
19) require_role(ROLE_CUSTOMER);
20) 

21) $section = 'jabber_accounts';

22) title("Neues Jabber-Konto erstellen");

23) 
24) $jabberdomains = get_jabberable_domains();
25) 

26) DEBUG($jabberdomains);
27) 

28) $need_warning = false;

29) $options = '';

30) foreach ($jabberdomains as $dom) {

31)     if ($dom->jabber == 2) { // New domain, not yet ready for use
32)         $need_warning = true;
33)         continue;
34)     }

35)     $options .= '<option value="' . $dom->id . '">' . $dom->fqdn . '</option>' . "\n";

36) }
37) 
38) 

39) output('<p>Erstellen Sie hier ein neues Jabber-Konto. Ihre Änderungen werden nach ca. 10 Minuten automatisch in das System übertragen. Accounts funktionieren also nicht unmittelbar nach dem Anlegen.</p>

40) 

41) ' . html_form('jabber_new_account', 'save', 'action=new', '

42) <table>

43) <tr><td>Account-Name:</td><td><input type="text" name="local" value="" />&#160;@&#160;<select name="domain" size="1">

44) ' . $options . '

45) </select></td></tr>
46) <tr><td>Passwort:</td><td><input type="password" name="password" value="" /></td></tr>
47) </table>
48) <br />
49) <input type="submit" name="submit" value="Anlegen" />
50) '));

51) 
52) 
53) if ($need_warning) {
54)     output('<h3>Noch nicht nutzbare Domains</h3>
55) <p>Folgende Domains sind zwar zur Nutzung im Jabber-Server vorgesehen, wurden aber noch nicht in die Serverkonfiguration übernommen. Für diese Domains können Sie bisher noch keine Accounts anlegen.</p>
56) <ul>');
57)     foreach ($jabberdomains as $dom) {
58)         if ($dom->jabber == 2) {

59)             output('<li>' . $dom->fqdn . '</li>');