#!/usr/bin/env perl

# wbmc_ssh_mkdomain, v 1.0 2002/03/28 20:38 hata

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

chomp($localhost =`hostname`);
$domain = $ENV{'WBMC_DOMAIN'};
$mshhost = $ENV{'WBMC_HOST'};
$umsconf_file = '/opt/nec/mail/ums.conf';

# 
#   Ķѿꡢmsh ޥоݥۥȡɥᥤ̾
#   msh ޥɤ mkdir  ޥɼ¹
#   ums.conf  useridgroupid 
#   chown ޥɤ ͭԡ롼ѹ
#

$cmd = "/opt/nec/mail/mcmd/mkdir -p /home/mail/$domain";
#$cmd = "/bin/mkdir -p /home/mail/$domain";
&wbmc_dc_rsh($mshhost, $cmd);

$userid = "mail";
$groupid = "mail";

# /opt/nec/mail/ums.conf ɤ߹
# - userid, groupid 
#
open(UMSCONF_FILE, $umsconf_file);
while(<UMSCONF_FILE>) {
    $line = $_;
    chomp($line);
    if ($line =~ /^userid/) {
        ($para, $userid) = split(/=/, $line);
        $userid =~ s/"//g;
    }
    if ($line =~ /^groupid/) {
        ($para, $groupid) = split(/=/, $line);
        $groupid =~ s/"//g;
    }
}
close(UMSCONF_FILE);

$cmd = "/opt/nec/mail/mcmd/chown $userid:$grouid /home/mail/$domain";
#$cmd = "/bin/chown $userid:$grouid /home/mail/$domain";
&wbmc_dc_rsh($mshhost, $cmd);
