Bug#402982: writes conf files in current directory, not in /etc/sympa. Fails to install.

[Jean Charles Delepine]

Package: sympa
Version: 5.2.1-0.1
Severity: important
Tags: experimental patch

In the script sympa_wizard.pl the variable output_file is populate with
'sympa.conf' or 'wwsympa.conf'. It then writes the conf files in the 
current directory. That's not what we want and that prevents sympa
package to finish its installation.

diff -ru sympa-5.2.1.deb/debian/sympa_wizard.pl 
sympa-5.2.1/debian/sympa_wizard.pl
--- sympa-5.2.1.deb/debian/sympa_wizard.pl      2006-12-13 23:18:16.000000000 
+0100
+++ sympa-5.2.1/debian/sympa_wizard.pl  2006-12-13 23:18:48.000000000 +0100
@@ -499,7 +499,6 @@
 
 if ($opts{create}) {
     my $file = $opts{create};
-       my $output_file = $opts{file} || $file;
        
     my $conf;
     if ($file eq 'sympa.conf') {
@@ -512,12 +511,12 @@
        exit 1;
     }
     
-    if (-f $output_file) {
-       print STDERR "$output_file file already exists, exiting\n";
+    if (-f $conf) {
+       print STDERR "$conf file already exists, exiting\n";
        exit 1;
     }
     
-    unless (open (NEWF,"> $output_file")){
+    unless (open (NEWF,"> $conf")){
        die "Unable to open $conf : $!";
     };
     
@@ -553,7 +552,7 @@
     }
 
     close NEWF;
-    print STDERR "$output_file file has been created\n";
+    print STDERR "$conf file has been created\n";
 
     exit 0;
 }

diff -ru sympa-5.2.1.deb/debian/sympa_wizard.pl 
sympa-5.2.1/debian/sympa_wizard.pl
--- sympa-5.2.1.deb/debian/sympa_wizard.pl      2006-12-13 23:18:16.000000000 
+0100
+++ sympa-5.2.1/debian/sympa_wizard.pl  2006-12-13 23:18:48.000000000 +0100
@@ -499,7 +499,6 @@
 
 if ($opts{create}) {
     my $file = $opts{create};
-       my $output_file = $opts{file} || $file;
        
     my $conf;
     if ($file eq 'sympa.conf') {
@@ -512,12 +511,12 @@
        exit 1;
     }
     
-    if (-f $output_file) {
-       print STDERR "$output_file file already exists, exiting\n";
+    if (-f $conf) {
+       print STDERR "$conf file already exists, exiting\n";
        exit 1;
     }
     
-    unless (open (NEWF,"> $output_file")){
+    unless (open (NEWF,"> $conf")){
        die "Unable to open $conf : $!";
     };
     
@@ -553,7 +552,7 @@
     }
 
     close NEWF;
-    print STDERR "$output_file file has been created\n";
+    print STDERR "$conf file has been created\n";
 
     exit 0;
 }