Displaying 1 result from an estimated 1 matches for "doacct".
Did you mean:
do_acct
1999 Apr 28
0
Transparent Samba Account Creation/Authentication using NT DC
...;.
"\n".
"Have a (almost) pleasant day!";
}
my $ml = open(MAIL,"| mail root -s \"Samba Account Creation
[$acct]$fail\"");
if ( $ml ) {
print MAIL $msg;
close( MAIL );
} else {
dolog( "Failed to open mail pipe!" );
}
}
sub doacct {
# Create account
#
my $usr = shift;
my $cmd="/usr/sbin/useradd -c '$CMNT' $HOME -s $SHL $usr 2>&1";
my @res=`$cmd`;
my $sta=$?;
if ( $sta != 0 ) {
domail( $usr, join(" ",@res) );
dolog( "[$usr] creation Failure in doacct"...