#!/usr/bin/env perl

# wbmc_ssh_helpmsg, v 1.0 2002/07/17 13:54 hata

require "/opt/nec/mail/wbmc/lib/wbmc.pl";
require "/opt/nec/mail/wbmc/bin/wbmc_msh_cmd.pl";

#chomp($localhost =`hostname`);
#$umsconf_file = '/opt/nec/mail/ums.conf';
#$ldapadd_cmd = '/usr/bin/ldapadd';
#$helpmsg_ldif_file = '/opt/nec/mail/wbmc/domain/ml_help_default';

$domain_name = $ENV{'WBMC_HELPMSG_DOMAIN'};
$ml_name = $ENV{'WBMC_HELPMSG_MLNAME'};
$host = $ENV{'WBMC_HELPMSG_HOST'};

#&readParam();

#&umsconf_read;
&helpmsg_add;
exit;

sub helpmsg_add
{
    $helpfile = "/opt/nec/mail/wbmc/domain/help.txt";
    system("/bin/cat -u $helpfile | /opt/nec/mail/msh $host /opt/nec/mail/mcmd/mlhelp -a $domain_name $ml_name");
}
