Package: sympa
Version: 5.3.4-6.1
Severity: normal
Tags: patch

Hi,

While installing sympa, during debconf, I had errors. Those comes form the name 
of my MySQL host that contain an hyphen (-).

Patch attached

Regards

-- System Information:
Debian Release: 5.0
  APT prefers stable
  APT policy: (990, 'stable')
Architecture: i386 (i686)

Kernel: Linux 2.6.26-bpo.1-xen-686 (SMP w/1 CPU core)
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages sympa depends on:
ii  adduser                 3.110            add and remove users and groups
ii  debconf [debconf-2.0]   1.5.24           Debian configuration management sy
ii  libarchive-zip-perl     1.18-1           Module for manipulation of ZIP arc
ii  libc6                   2.7-18           GNU C Library: Shared libraries
ii  libcgi-fast-perl        5.10.0-19        CGI::Fast Perl module
ii  libcrypt-ciphersaber-pe 0.61-4           Perl module implementing CipherSab
ii  libdbd-mysql-perl       4.007-1          A Perl5 database interface to the 
ii  libdbi-perl             1.605-1          Perl5 database interface by Tim Bu
ii  libintl-perl            1.16-4           Uniforum message translations syst
ii  libio-stringy-perl      2.110-4          Perl modules for IO from scalars a
ii  libmailtools-perl       2.03-1           Manipulate email in perl programs
ii  libmd5-perl             2.03-1           backwards-compatible wrapper for D
ii  libmime-charset-perl    1.006.2-2        Charset Informations for MIME
ii  libmime-encwords-perl   1.010.101-1      deal with RFC-1522 encoded words
ii  libmime-perl            5.427-1          transitional dummy package
ii  libmime-tools-perl [lib 5.427-1          Perl5 modules for MIME-compliant m
ii  libmsgcat-perl          1.03-4+b1        Locale::Msgcat perl module
ii  libnet-ldap-perl        1:0.39-1         client interface to LDAP servers
ii  libtemplate-perl        2.19-1.1lenny1.1 template processing system written
ii  libxml-libxml-perl      1.66-1+b1        Perl module for using the GNOME li
ii  lsb-base                3.2-20           Linux Standard Base 3.2 init scrip
ii  mhonarc                 2.6.16-1         Mail to HTML converter
ii  perl [libmime-base64-pe 5.10.0-19        Larry Wall's Practical Extraction 
ii  perl-suid               5.10.0-19        Runs setuid Perl scripts
ii  postfix [mail-transport 2.5.5-1.1        High-performance mail transport ag
ii  rsyslog [system-log-dae 3.18.6-4         enhanced multi-threaded syslogd

Versions of packages sympa recommends:
pn  doc-base                      <none>     (no description available)
ii  logrotate                     3.7.1-5    Log rotation utility

Versions of packages sympa suggests:
ii  apache2                  2.2.9-10+lenny2 Apache HTTP Server metapackage
ii  apache2-mpm-prefork [htt 2.2.9-10+lenny2 Apache HTTP Server - traditional n
pn  libapache2-mod-fcgid     <none>          (no description available)
pn  libsoap-lite-perl        <none>          (no description available)
pn  mysql-server | postgresq <none>          (no description available)
ii  openssl                  0.9.8g-15       Secure Socket Layer (SSL) binary a

-- debconf information excluded
--- install-mysql-db    2009-03-05 17:22:03.000000000 +0000
+++ /usr/share/sympa/db/install-mysql-db        2009-03-05 17:23:23.000000000 
+0000
@@ -69,7 +69,7 @@
                       {'RaiseError' => 1});
 
 # Create database
-eval {$dbh->do("CREATE DATABASE $database")};
+eval {$dbh->do("CREATE DATABASE `$database`")};
 
 if ($@) {
        die "$0: failed to create database $database: $...@\n";
@@ -77,7 +77,7 @@
 }
 
 # Create database user
-my $command="GRANT ALL on $database.* TO $us...@$clienthost";
+my $command="GRANT ALL on `$database`.* TO '$user'\@'$clienthost'";
 if ($userpass ne "") {
     $command .= " IDENTIFIED BY '$userpass'";
 }

Reply via email to