sympa - działa również z apache1 + poprawka do wwsympa.fcgi

[romke]

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: romke at estrefa.pl

-------------- next part --------------
--- 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

-------------- next part --------------
--- 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};