71ffda36c71cc28c05708caffb20fc494eb17f1b
bernd Neues Modul für Mailman-Ver...

bernd authored 15 years ago

1) <?php
2) 
3) require_once('inc/base.php');
4) require_once('inc/debug.php');
5) require_once('inc/security.php');
6) 
7) 
8) function get_lists()
9) {
10)   $uid = (int) $_SESSION['userinfo']['uid'];
bernd Zeige Archivgröße der Maili...

bernd authored 12 years ago

11)   $result = db_query("SELECT id, status, listname, fqdn, admin, archivesize FROM mail.v_mailman_lists WHERE owner={$uid};");
bernd Neues Modul für Mailman-Ver...

bernd authored 15 years ago

12)   $ret = array();
13)   while ($list = mysql_fetch_assoc($result))
14)     $ret[] = $list;
15)   DEBUG($ret);
16)   return $ret;
17) }
18) 
19) 
20) function get_list($id)
21) {
22)   $id = (int) $id;
23)   $uid = (int) $_SESSION['userinfo']['uid'];
bernd Zeige Archivgröße der Maili...

bernd authored 12 years ago

24)   $result = db_query("SELECT id, status, listname, fqdn, admin, archivesize FROM mail.v_mailman_lists WHERE owner={$uid} AND id={$id};");
bernd Neues Modul für Mailman-Ver...

bernd authored 15 years ago

25)   if (mysql_num_rows($result) < 1)
26)     system_failure('Die gewünschte Mailingliste konnte nicht gefunden werden');
27)   $list = mysql_fetch_assoc($result);
28)   DEBUG($list);
29) 
30)   return $list;
31) }
32) 
33) 
34) function delete_list($id)
35) {
36)   $uid = (int) $_SESSION['userinfo']['uid'];
37)   $id = (int) $id;
38)   db_query("UPDATE mail.mailman_lists SET status='delete' WHERE owner={$uid} AND id={$id};");
39) }
40) 
41) 
42) function create_list($listname, $maildomain, $admin)
43) {
bernd bei ungültigen Zeichen abbr...

bernd authored 14 years ago

44)   verify_input_username($listname);
bernd Neues Modul für Mailman-Ver...

bernd authored 15 years ago

45)   $maildomain = maybe_null( (int) $maildomain );
46)   $owner = (int) $_SESSION['userinfo']['uid'];
bernd bei ungültigen Zeichen abbr...

bernd authored 14 years ago

47)   verify_input_general($admin);
bernd Neues Modul für Mailman-Ver...

bernd authored 15 years ago

48)   if (! check_emailaddr($admin))
49)     system_failure('Der Verwalter muss eine gültige E-Mail-Adresse sein ('.$admin.').');
bernd bei ungültigen Zeichen abbr...

bernd authored 14 years ago

50)   $admin = mysql_real_escape_string($admin);