Witam, tym razem sympa:
1. działa na apache1, działa z fastcgi, ale bez fastcgi też...
  dlatego proponuję zamienić R: apache na R: webserver = apache
2. wwsympa.fcgi ma skopaną edycję sybskrybentów - nawet listmaster
  czy moderator mogą dokonać zmian tylko na sobie...
  dostarczony fix poprawia tą niedogodność ( porównajcie z sympą z Ra )

pozdrawiam
--
romke Roman Barczyński  ~~~~  tel. +48 12 632 7365  ~~~~  www.romke.info
____________________________________________ JID/email: [EMAIL PROTECTED]

--- sympa.spec.r1.53    2005-01-06 18:11:24.000000000 +0100
+++ sympa.spec  2005-01-06 18:21:41.000000000 +0100
@@ -1,6 +1,8 @@
 # $Revision: 1.53 $, $Date: 2004/11/28 22:10:37 $
 # TODO:
 # - SECURITY: http://securitytracker.com/alerts/2004/Aug/1011016.html
+# - COMPATIBILITY: check if works with webserver != apache and update R:
+# - resolve problem with apache1 or apache2 icons directory...
 %include       /usr/lib/rpm/macros.perl
 Summary:       Sympa - a powerful multilingual List Manager with LDAP and SQL 
features
 Summary(fr):   Sympa est un gestionnaire de listes �lectroniques
@@ -20,6 +22,7 @@
 Source5:       %{name}-www.conf
 Patch0:                %{name}-Makefile.patch
 Patch1:                %{name}-wwslib-pl.patch
+Patch2:                %{name}-wwsympa.fcgi-editsubsciber.fix.patch
 URL:           http://listes.cru.fr/sympa/
 BuildRequires: autoconf
 BuildRequires: automake
@@ -36,7 +39,7 @@
 Requires(postun):      /usr/sbin/groupdel
 Requires(postun):      /usr/sbin/userdel
 Requires:      MHonArc >= 2.4.5
-Requires:      apache
+Requires:      webserver = apache
 Requires:      perl-MailTools >= 1.14
 Requires:      perl-MIME-Base64 >= 1.0
 Requires:      perl-IO-stringy >= 1.0
@@ -83,6 +86,7 @@
 %setup -q -a1
 %patch0 -p1
 %patch1 -p1
+%patch2 -p1
 
 %build
 rm -f missing

--- sympa-3.4.4.3/wwsympa/wwsympa.fcgi~ 2004-12-16 02:19:40.000000000 +0100
+++ sympa-3.4.4.3/wwsympa/wwsympa.fcgi  2005-01-06 17:38:04.000000000 +0100
@@ -4635,19 +4635,18 @@
        return undef;
     }
 
-    $param->{'current_subscriber'} = $user;
-    $param->{'current_subscriber'}{'escaped_email'} = 
&tools::escape_html($param->{'current_subscriber'}{'email'});
-
-    $param->{'current_subscriber'}{'date'} = &POSIX::strftime("%d %b %Y", 
localtime($user->{'date'}));
-    $param->{'current_subscriber'}{'update_date'} = &POSIX::strftime("%d %b 
%Y", localtime($user->{'update_date'}));
+    $param->{'subscriber'} = $user;
+    $param->{'subscriber'}{'escaped_email'} = 
&tools::escape_html($param->{'subscriber'}{'email'});
+    $param->{'subscriber'}{'date'} = &POSIX::strftime("%d %b %Y", 
localtime($user->{'date'}));
+    $param->{'subscriber'}{'update_date'} = &POSIX::strftime("%d %b %Y", 
localtime($user->{'update_date'}));
 
     ## Prefs
-    $param->{'current_subscriber'}{'reception'} ||= 'mail';
-    $param->{'current_subscriber'}{'visibility'} ||= 'noconceal';
+    $param->{'subscriber'}{'reception'} ||= 'mail';
+    $param->{'subscriber'}{'visibility'} ||= 'noconceal';
     foreach my $m (keys %wwslib::reception_mode) {             
       if ($list->is_available_reception_mode($m)) {
        $param->{'reception'}{$m}{'description'} = $wwslib::reception_mode{$m};
-       if ($param->{'current_subscriber'}{'reception'} eq $m) {
+       if ($param->{'subscriber'}{'reception'} eq $m) {
            $param->{'reception'}{$m}{'selected'} = 'SELECTED';
        }else {
            $param->{'reception'}{$m}{'selected'} = '';
@@ -4658,9 +4657,9 @@
     ## Bounces
     if ($user->{'bounce'} =~ /^(\d+)\s+(\d+)\s+(\d+)(\s+(.*))?$/) {
        my @bounce = ($1, $2, $3, $5);
-       $param->{'current_subscriber'}{'first_bounce'} = &POSIX::strftime("%d 
%b %Y", localtime($bounce[0]));
-       $param->{'current_subscriber'}{'last_bounce'} = &POSIX::strftime("%d %b 
%Y", localtime($bounce[1]));
-       $param->{'current_subscriber'}{'bounce_count'} = $bounce[2];
+       $param->{'subscriber'}{'first_bounce'} = &POSIX::strftime("%d %b %Y", 
localtime($bounce[0]));
+       $param->{'subscriber'}{'last_bounce'} = &POSIX::strftime("%d %b %Y", 
localtime($bounce[1]));
+       $param->{'subscriber'}{'bounce_count'} = $bounce[2];
        if ($bounce[3] =~ /^(\d+\.(\d+\.\d+))$/) {
           $user->{'bounce_code'} = $1;
           $user->{'bounce_status'} = $wwslib::bounce_status{$2};

_______________________________________________
pld-devel-pl mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-devel-pl

Odpowiedź listem elektroniczym