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

B.8 Adduser/chuid 294
# Change gecos field
###########################################################################
sub do_chrealname
{
if($opt_L){
# Local files
changefile("$DEF_ETC_DIR/passwd",$login,
sub {
$x[4]=$gecos;
});
}else{
# YP files
changefile("$DEF_YP_DIR/passwd",$login,
sub {
$x[4]=$gecos;
});
}
print "Realname of $login set to '$gecos'.\n"
if $opt_verbose;
}
###########################################################################
###########################################################################
##
## MAIN
##
###########################################################################
###########################################################################
&setdefaults; # read defaults from file
&writelogfile("chrealname"); # Eintrag ans Logfile anhaengen
&parseoptions(@ARGV); # parse & check command line options
&setlock($DEF_LOCK); # prevent other processes from writing
do_chrealname();
updateNIS() if $opt_Y; # ggf. ypmake
&clearlock($DEF_LOCK); # unlock passwd-file
exit 0;
B.8 Adduser/chuid
#!/soft/bin/perl5
# $Id: chuid,v 1.1 1999/02/15 16:48:59 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)
#
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003