Changeset 1185

Timestamp:

09/06/04 19:42:02 (9 years ago)

Author:

anonymous

Message:

Ajout de la liste des abonnes des listes

Location:

trunk

Files:

• bureau/admin/mman_list.php (modified) (2 diffs)
• bureau/admin/mman_members.php (added)
• bureau/class/m_mailman.php (modified) (1 diff)
• bureau/locales/fr_FR/LC_MESSAGES/mailman.po (modified) (1 diff)
• src/Makefile (modified) (1 diff)
• src/mailman.list.c (added)

trunk/bureau/admin/mman_list.php

@@ -68 +68 @@
         <form method="post" action="mman_del.php">
         <table cellspacing="0" cellpadding="4" border="1">
-        <tr><th><?php __("Delete"); ?></th><th><?php __("List name"); ?></th><th colspan="3">&nbsp;</th></tr>
+        <tr><th><?php __("Delete"); ?></th><th><?php __("List name"); ?></th><th colspan="4">&nbsp;</th></tr>
         <?php
         reset($r);
@@ -81 +81 @@
                         <td>&nbsp;<a href="http://<?php echo $val["domain"]; ?>/cgi-bin/mailman/admin/<?php echo $val["name"] ?>"><?php __("List admin"); ?></a>&nbsp;</td>
                         <td>&nbsp;<a href="http://<?php echo $val["domain"]; ?>/cgi-bin/mailman/admindb/<?php echo $val["name"] ?>"><?php __("Pending messages"); ?></a>&nbsp;</td>
+                        <td>&nbsp;<a href="mman_members.php?id=<?php echo $val["id"] ?>"><?php __("List Members"); ?></a>&nbsp;</td>
                 </tr>
                 <?php

trunk/bureau/class/m_mailman.php

@@ -190 +190 @@
 
   /* ----------------------------------------------------------------- */
+  /** Returns the list's members as a text file, one subscriber per 
+   *   line. 
+   */
+ function members($id) {
+    global $err,$db,$cuid;
+    $err->log("mailman","members");
+    $db->query("SELECT * FROM mailman WHERE uid='$cuid' AND id='$id';");
+    if (!$db->num_rows()) {
+      $err->raise("mailman",1);
+      return false;
+    }
+    $db->next_record();
+    passthru("/usr/lib/alternc/mailman.list ".$db->Record["list"]);
+  }
+
+
+  /* ----------------------------------------------------------------- */
   /** Fonction appellée par domaines lorsqu'un domaine est effacé.
    * Cette fonction efface tous les comptes mails du domaine concerné.

trunk/bureau/locales/fr_FR/LC_MESSAGES/mailman.po

@@ -55 +55 @@
 msgstr "Messages en attente"
 
+msgid "List Members"
+msgstr "Abonnés"
+
 msgid "Delete the checked lists"
 msgstr "Effacer les listes cochées"

trunk/src/Makefile

@@ -26 +26 @@
 # ----------------------------------------------------------------------
 #
+CC=gcc
 
-all: mailman.create mailman.delete
+all: mailman.create mailman.delete mailman.list
 
-mailman.create: mailman.create.c
-        cc mailman.create.c -o mailman.create
-
-mailman.delete: mailman.delete.c
-        cc mailman.delete.c -o mailman.delete
+%: %.c
+        $(CC) $< -o $@
 
 clean: 
-        rm -f *.o core *~ mailman.delete mailman.create 
+        rm -f *.o core *~ mailman.delete mailman.create mailman.list
 
 install:
-        chown list.list mailman.create mailman.delete
-        chmod u+s mailman.create mailman.delete
+        chown list.list mailman.create mailman.delete mailman.list
+        chmod u+s mailman.create mailman.delete mailman.list