Developers of Sympa

[Gustavo Araujo Bittencourt <address@concealed>]

Hello everybody,

I find a problem in List.pm when it tries to connect with Sybase Server.
I am using Sympa 2.7.
When I run sympa.pl occurs the following error : 

   > [root@gbitten sympa-2.7]# su - sympa -c "~sympa/bin/sympa.pl -dD"
   > 962374527 Configuration file read
   > 962374527 List::probe_db()
   > 962374527 List::db_connect
   > DBI->connect failed: OpenClient message: LAYER = (6) ORIGIN = (8)
   > SEVERITY = (5) NUMBER = (3)
   > Message String: ct_connect(): directory service layer: internal
   > directory control layer error: Requested server name not found.
   >  at /home/sympa/bin/List.pm line 440
   > 962374529 Can't connect to Database
   > DBI:Sybase:dbname=sympa;host=sybdesenv as sympa
   > 962374529 List::send_notify_to_listmaster(no_db, )
   > 962374529 mail::mailback(No DataBase, address@concealed)
   > 962374530 smtp::smtpto(address@concealed,
address@concealed)
   > 
   > Open = 0
   > Sympa cannot connect to database sympa, dying
   > 


In line 440 of List.pm there is the following command:
        
        unless ( $dbh = DBI->connect($connect_string, $Conf{'db_user'},
$Conf{'db_passwd'}) ) {

where $connect_string defined some lines above is :

        $connect_string = sprintf 'DBI:%s:dbname=%s;host=%s',
$Conf{'db_type'}, $Conf{'db_name'}, $Conf{'db_host'};

but according the DBD::Sybase manual (I am using the version 0.22) must be :

        $connect_string = sprintf 'DBI:%s:dbname=%s;server=%s',
$Conf{'db_type'}, $Conf{'db_name'}, $Conf{'db_host'};

where  the word "server" must used instead the word "host".

I made some modifications in this following List.pm to be able to connect
with Sybase server
but it's possible there are others perl's scripts with command
"DBI->connect" that needs adusts to work properly.
 
 <<List.pm>> 

Thank you for your time,
Gustavo Araujo Bittencourt.

Attachment: List.pm
Description: Binary data