#!/usr/bin/perl -w

chdir "/";

$( = $) = (getgrnam("sympa"))[2];
$< = $> = (getpwnam("sympa"))[2];

die "You must be user root or sympa for launching SYMPA : \n"
     if ((getpwuid($<))[0] ne "sympa" or (getgrgid($())[0] ne "sympa");

exec '/usr/lib/sympa/bin/sympa.pl', @ARGV;

die "If you read this, there's a problem : $!
/usr/lib/sympa/bin/sympa.pl cannot be executed !";
