Re: [sympa-fr] pb avec quotas en 3.3.4b5

[Frederic Connes <adresse@cachée>]

On Mon, 2002-04-08 at 18:58, Marc Patouillard wrote:
> Bonjour,
> Apparemment une fonction de gestion des quotas (archive et shared) existe 
> dans cette nouvelle version ce qui est très bien.
>  seulement ils semblent être positionnés à 0 par défaut.Il semble exister 
> deux nouveaux  paramètres default_shared_quota et default_archive_quota à 
> positionner dans sympa.conf, ce que j'ai fait mais sans succès?
> 
> Je ne veux pas éditer toutes mes listes individuellement et pour le moment 
> ces deux fonctions (archive et shared) sont bloquées. 
> 
>  Par contre le réglage individuel de ces paramètres par  liste fonctionne 
> bien.

Bonjour,

Ce problème est résolu dans le CVS (fichier wwsympa/archived.pl).
Ci-joint le patch sur la 3.3.4b5.

Frederic Connes

diff -u -r1.21 -r1.22
--- sympa/wwsympa/archived.pl   2002/04/03 10:15:42     1.21
+++ sympa/wwsympa/archived.pl   2002/04/05 08:56:03     1.22
@@ -1,7 +1,7 @@
 #!--PERL--
 
 # archived.pl - This script does the web archives building for Sympa
-# RCS Identication ; $Revision: 1.21 $ ; $Date: 2002/04/03 10:15:42 $ 
+# RCS Identication ; $Revision: 1.22 $ ; $Date: 2002/04/05 08:56:03 $ 
 #
 # Sympa - SYsteme de Multi-Postage Automatique
 # Copyright (c) 1997, 1998, 1999, 2000, 2001 Comite Reseau des Universites
@@ -311,27 +311,28 @@
     }
 
     ## Check quota
-    my $used = $list->get_arc_size("$arcpath") ;
-
-    if ($used >= $list->{'admin'}{'web_archive'}{'quota'} * 1024){
-       &do_log('err',"archived::mail2arc : web_arc Quota exceeded for list 
$list->{'name'}");
-       $list->send_notify_to_owner({ 'type' => 'arc_quota_exceeded',
-                                     'robot'=>$hostname,
-                                     'size' => $used,
-                                     'email' => $param[1]});
-
-       return undef;
-    }
-    if ($used >= ($list->{'admin'}{'web_archive'}{'quota'} * 1024 * 0.95)){
-       &do_log('err',"archived::mail2arc : web_arc Quota exceeded for list 
$list->{'name'}");
-       $list->send_notify_to_owner({ 'type' => 'arc_quota_95',
-                                     'robot'=>$hostname,
-                                     'size' => $used,
-                                     'rate' => int($used * 100 / 
($list->{'admin'}{'web_archive'}{'quota'} * 1024 )) ,
-                                     'email' => $param[1]});
+    if ($list->{'admin'}{'web_archive'}{'quota'}) {
+       my $used = $list->get_arc_size("$arcpath") ;
+       
+       if ($used >= $list->{'admin'}{'web_archive'}{'quota'} * 1024){
+           &do_log('err',"archived::mail2arc : web_arc Quota exceeded for 
list $list->{'name'}");
+           $list->send_notify_to_owner({ 'type' => 'arc_quota_exceeded',
+                                         'robot'=>$hostname,
+                                         'size' => $used,
+                                         'email' => $param[1]});
+           
+           return undef;
+       }
+       if ($used >= ($list->{'admin'}{'web_archive'}{'quota'} * 1024 * 
0.95)){
+           &do_log('err',"archived::mail2arc : web_arc Quota exceeded for 
list $list->{'name'}");
+           $list->send_notify_to_owner({ 'type' => 'arc_quota_95',
+                                         'robot'=>$hostname,
+                                         'size' => $used,
+                                         'rate' => int($used * 100 / 
($list->{'admin'}{'web_archive'}{'quota'} * 1024 )) ,
+                                         'email' => $param[1]});
+       }
     }
-
-
+       
 
     if (! -d "$arcpath/$listname\@$hostname/$yyyy-$mm") {
        unless (mkdir ("$arcpath/$listname\@$hostname/$yyyy-$mm", 0775)) {