Technische Dokumentation zum Unix-Verbund ... - Dr. Hubert Feyrer

B.18 Adduser/unock_account 310
B.18 Adduser/unock_account
#!/soft/bin/perl5
# $Id: unlock_account,v 1.3 1998/01/04 02:03:26 feyrer Exp $
##########################################################################
# The contents of this file are (c) Copyright 1996-1998 by Hubert Feyrer.
# Any use of the knowledge stored in this file may not be used outside
# of the Fachhochschule Regensburg without contacting me first.
###########################################################################
require misc::writelogfile;
$YPPASSWDDIR="/var/yp";
#$YPPASSWDDIR="/tmp";
$YPPASSWD="$YPPASSWDDIR/passwd";
###########################################################################
###########################################################################
##
## Main
##
###########################################################################
###########################################################################
if($#ARGV