Package: sympa
Version: 5.3.4-5
Filename: pool/main/s/sympa/sympa_5.3.4-5_i386.deb


Found error in /usr/lib/cgi-bin/sympa/wwsympa.fcgi:
	$ grep -A5 -B5 /tmp/ /usr/lib/cgi-bin/sympa/wwsympa.fcgi
		 return undef ;
	     }    
	
	     $list->{'admin'}{'status'} = $in{'status'};
	
	 #    open TMP, ">/tmp/dump1";
	 #    &tools::dump_var ($list->{'admin'}, 0, \*TMP);
	 #    close TMP;
	
	     unless ($list->save_config($param->{'user'}{'email'})) {
		 &report::reject_report_web('intern','cannot_save_config',{'listname'=> $list->{'name'}},$param->{'action'},$list,$param->{'user'}{'email'},$robot);
	--
			      'status' => 'error',
			      'error_type' => 'internal'});
		 return undef;
	     }
	
	 #    open TMP, ">/tmp/dump2";
	 #    &tools::dump_var ($list->{'admin'}, 0, \*TMP);
	 #    close TMP;
	
	     ## create the aliases
	     if ($in{'status'} eq 'open') {
	--
		} else {
		    $param->{'expert_page'} = 0;
		}
	    }
	    
	     #open TMP, ">/tmp/dump1";
	     #&tools::dump_var($param, 0,\*TMP);
	     #close TMP;
	
	     &web_db_log({'parameters' => $in{'path'},
			  'status' => 'success'});
	--
		} else {
		    $param->{'expert_page'} = 0;
		}
	    }
	    
	     open TMP, ">/tmp/dump";
	     $document->dump(\*TMP);
	     close TMP;
	
	     open TMP, ">/tmp/dump2";
	     &tools::dump_var ($param, 0, \*TMP);
	     close TMP;
	     &web_db_log({'robot' => $robot,'list' => $list->{'name'},'action' => $param->{'action'},'parameters' => "$in{'path'}",'target_email' => "",'msg_id' => '','status' => 'success','error_type' => '','user_email' => $param->{'user'}{'email'},'client' => $ip,'daemon' => $daemon_name});
	     return 1;
	}

Found error in /usr/lib/sympa/bin/sympa.pl:
	$ grep -A5 -B5 /tmp/ /usr/lib/sympa/bin/sympa.pl
	}elsif ($main::options{'help'}) {
	    print $usage_string;
	    exit 0;
	}elsif ($main::options{'make_alias_file'}) {
	    my $all_lists = &List::get_lists('*');
	    unless (open TMP, ">/tmp/sympa_aliases.$$") {
		printf STDERR "Unable to create tmp/sympa_aliases.$$, exiting\n";
		exit;
	    }
	    printf TMP "#\n#\tAliases for all Sympa lists open (but not for robots)\n#\n";
	    close TMP;
	    foreach my $list (@$all_lists) {
		system ("/usr/lib/sympa/bin/alias_manager.pl add $list->{'name'} $list->{'domain'} /tmp/sympa_aliases.$$") if ($list->{'admin'}{'status'} eq 'open');
	    }
	    printf ("Sympa aliases file is /tmp/sympa_aliases.$$ file made, you probably need to installed it in your SMTP engine\n");
	    
	    exit 0;
	}elsif ($main::options{'version'}) {
	    print $version_string;