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

B.23 Addusers/checkwin2kusers 313
# Alle user abchecken
while($login = getpwent()) {
if ($login =~ /^(\w\w\w\d\d\d\d\d)/) {
if (! $orauser{$login}) {
print "./adduser.Oracle $login\n";
}
}
}
B.23 Addusers/checkwin2kusers
#!/soft/bin/perl
#
# Guckt nach wer keinen Win2k-Account hat
#
# list of oracle users holen
open (WIN2K, "./lswin2kusers | sed 's/:.*//' |") || die;
while() {
chomp;
if (/^(\w\w\w\d\d\d\d\d)/) {
$win2kuser{$1} = 1;
}
}
close(WIN2K);
# Alle user abchecken
while(($login, $comment) = ((getpwent())[0,5])) {
last if $login eq "";
}
$comment =~ s/,.*$//;
# print "login=$login, comment=$comment\n";
if ($login =~ /^(\w\w\w\d\d\d\d\d)/) {
if (! $win2kuser{$login}) {
print "./adduser.win2k -c \"$comment\" -p $login
$login\n";
}
}
B.24 Backup/dumpbackup
#!/bin/sh
##########################################################################
# 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.
###########################################################################
TAPE=/dev/rmt/0c
NTAPE=/dev/rmt/0cn
FS="/ /home1 /home2 /home3"
echo rewinding tape ...
mt -f $NTAPE rewind
echo starting backup: `date`
for fs in $FS ;
do
echo `date`: dumping $fs
ufsdump 0f $NTAPE $fs
done
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003