#!/usr/local/gnu/bin/perl
$|=1;
#
# erzeugt eine Liste aller persoenlichen Homepages
#
@EXCLUDE_USERS = (
"ainf",
"binf",
"blaxxun",
"cb",
"cg",
"cgprakt",
"cinf",
"db",
"dbm5",
"dbp",
"dbs",
"famulus",
"graph",
"ipal",
"japi",
"java",
"mas2tex",
"mm",
"mmp",
"mmprakt",
"nn",
"oracle",
"pa",
"robot",
"robotik",
"se",
"se1",
"soft",
"sp",
"sypro",
"tsa",
"vcprakt",
"www",
"wwwfs"
);
@ANONYMOUS_USERS =(
);
$HTMLFILE = "/home/www/pub/userlist.php";
$HTMLURL = "/userlist.php";
print "Content-Type: text/html\n";
print "\n";
print "\n";
print "\n";
print " Index für persönliche Homepages erzeugen\n";
print "\n";
print "\n\n";
print "Index für persönliche Homepages erzeugen
\n\n";
print "Der Vorgang dauert einige Sekunden, bitte warten ...
\n";
print "\n";
if (!open(PIPE, "ypcat passwd|")) {
print "- Konnte Liste der User nicht bestimmen\n";
print "(Aufruf von ypcat passwd)\n";
} else {
# Alle User bestimmen und in Arrays speichern
$next = 0;
$next2 = 0;
while() {
chomp;
@user = split(/:/,$_);
# nur User mit Realnamen zulassen
if($user[4] ne "") {
if (grep(/^$user[0]$/,@ANONYMOUS_USERS) == 1) {
# nicht personenbezogene User voranstellen
# @DIR = ;
# if ($#DIR >= 0) {
if (-r "/vol/html/$user[0]/index.html" ||
-r "/vol/html/$user[0]/index.html.de" ||
-r "/vol/html/$user[0]/index.html.en" ||
-r "/vol/html/$user[0]/index.php" ||
-r "/vol/html/$user[0]/index.php.de" ||
-r "/vol/html/$user[0]/index.php.en") {
# Login- und Realname aus YellowPages
$GROUP[$next2] = $user[0];
$GROUPNAME[$next2] = $user[4];
++$next2;
}
} elsif (grep(/^$user[0]$/,@EXCLUDE_USERS) == 0) {
# nur User, die nicht in Ausnahmeliste stehen
# @DIR = ;
# if ($#DIR >= 0) {
if (-r "/vol/html/$user[0]/index.html" ||
-r "/vol/html/$user[0]/index.html.de" ||
-r "/vol/html/$user[0]/index.html.en" ||
-r "/vol/html/$user[0]/index.php" ||
-r "/vol/html/$user[0]/index.php.de" ||
-r "/vol/html/$user[0]/index.php.en") {
# Login- und Realname aus YellowPages
$LOGIN[$next] = $user[0];
$NAME[$next] = $user[4];
# Nachname ist letztes Wort im Namen
@tmp = split(/ +/,$user[4]);
$NNAME[$next] = pop @tmp;
$VNAME[$next] = join(" ",@tmp);
++$next;
}
}
}
}
close PIPE;
print "
- Userliste aus YellowPages ermittelt\n";
# Arrays nach Nachnamen sortieren
for ($i=0 ; $i<$next ; ++$i) {
$INDEX[$i] = $i;
}
@INDEX = sort {$NNAME[$a] cmp $NNAME[$b]} @INDEX;
print "
- User nach Nachnamen sortiert\n";
# Arrays nach Gruppennamen sortieren
for ($i=0 ; $i<$next2 ; ++$i) {
$INDEX2[$i] = $i;
}
@INDEX2 = sort {$GROUPNAME[$a] cmp $GROUPNAME[$b]} @INDEX2;
print "
- Gruppen nach Namen sortiert\n";
# HTML-Liste erzeugen
$lastCapital = "";
$USERLIST = "";
$USERLIST .= "
- $capital\n";
$USERLIST .= "\n
\n";
print "Liste aller User als HTML-Code erzeugt\n";
# Erzeugen einer Navigationsleiste (A-Z)
$NAVBAR = "[ ";
foreach $cap (split(//,"ABCDEFGHIJKLMNOPQRSTUVWXYZ")) {
if ($CAPITALS{$cap}) {
$NAVBAR .= "$lSep$cap";
} else {
$NAVBAR .= "$lSep$cap";
}
$lSep = " | ";
}
$NAVBAR .= " ]
";
print "Navigationsleiste erzeugt\n";
if (!open(FILE, ">$HTMLFILE")) {
print "HTML-Datei konnte nicht geöffnet werden\n";
print "($HTMLFILE)\n";
print "Mögliche Fehlerursache: Datei $HTMLFILE ist nicht\n";
print "für den CGI-User (normalerweise nobody) beschreibbar.\n";
} else {
print FILE "\n\n";
print FILE "Auf dieser Seite sind immer die zur Zeit verfügbaren\n";
print FILE "Seiten aller Mitarbeiter, Studentinnen und Studenten auf ",
"diesem Server aufgelistet.\n";
print FILE "
\n";
print FILE "Achtung:
Alle diese Links führen direkt in die\n";
print FILE "Home-Verzeichnisse der einzelnen Personen, also in die Wildnis.\n";
print FILE "Alles, was dort zu finden ist, unterliegt keinerlei Zensur, und die\n";
print FILE "offiziellen WWW-Administratoren haben keinen Einfluß auf die\n";
print FILE "folgenden Seiten. Deshalb kann für Inhalt und Zustand der Seiten\n";
print FILE "keinerlei Verantwortung von offizieller Seite übernommen\n";
print FILE "werden!
\n";
print FILE "
\n";
print FILE $NAVBAR;
print FILE $USERLIST;
print FILE $NAVBAR;
print FILE "\n";
close FILE;
print "PHP-Datei $HTMLFILE wurde erzeugt\n";
print "\n";
print "Die Liste aller Homepages ist aktualisiert worden.\n";
print "
\n";
print " Liste aller Homepages
\n";
print " Zurück zur Administrationsseite\n";
print "
\n";
}
}
print "\n";
print "\n";