connect mrbs with sympa

Today I wrote a small script to allow mrbs [1] to authenticate with the sympa[2] database. mrbs has a nice feature to use an external command to do authentication. This is a simple script that query the sympa db.

<code lang="perl">

  1. ! /usr/bin/perl

use lib '/usr/lib/sympa/bin'; use wwslib;

unless (require Crypt::CipherSaber) { die "Crypt::CipherSaber not installed ; cannot crypt passwords"; }

require 'tools.pl';

use List;

  1. Load sympa config

&Conf::load('/etc/sympa/sympa.conf') || die 'config_error'; chdir $Conf::Conf{'home'};