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

B Quellcodes 275
B Quellcodes
In diesem Anhang sind Quellcodes zu vielen der oben beschriebenen Programme zu finden,
die selbst entwickelt wurden.
Die Datei wildmat_code.c ist Teil der INN-Distribution und unterliegt deren Copyright.
Ansonsten gilt für alle Dateien:
##########################################################################
# The contents of this file are (c) Copyright 1996 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.
###########################################################################
B.1 Adduser/adduser
#!/soft/bin/perl5
# $Id: adduser,v 1.21 2003/10/13 14:09:09 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.
###########################################################################
use Getopt::Std;
require misc::writelogfile;
require misc::lock;
require misc::backup;
# Where to find defaults-file
$DEFAULTS_FILE = "/home3/bedienst/feyrer/work/SysOp/Adduser/default/adduser";
#$DEFAULTS_FILE = "/net/rfhs8012/home3/bedienst/feyrer/work/NDS/work/Adduser/default/adduser";
###########################################################################
# Read defaults from file or take hardcoded values if unavailable
###########################################################################
sub setdefaults
{
print "Setting defaults\n" if $opt_verbose>0;
#
# Internal defaults (if defaults-file is gone)
#
$DEF_GROUP = "student";
$DEF_SHELL = "/soft/bin/tcsh";
$DEF_S_BASE = "/home2/student";
$DEF_B_BASE = "/home3/bedienst";
$DEF_UID_MIN = 101;
$DEF_UID_MAX = 60000;
$DEF_YP_DIR = "/var/yp";
$DEF_MAKE = "/usr/ccs/bin/make";
$DEF_SHELLS = "/etc/shells";
$DEF_LOCK = "/var/yp/passwd.lock";
$DEF_SKEL = "/var/verwalt/skel";
$DEF_QUOTAUSER = "dummy";
#
# Read defaults from defaults-file
#
open(DEF,"