Das serverseitige PERL-Programm navigation.pl von Mario Lang beruht auf einer frühen Version des clientseitigen Javascripts von Marcelino Alves Martins und wurde von Reinfried O. Peter erweitert.
Für jeden Knoten ist eine Zeile vorzusehen, wobei zwischen
Foldern und Dokumenten unterschieden wird.
Der Gesamtbaum wird durch
foldersTree = gFld("Text"[, "Link"[, "Target"]]))
definiert, Folder durch
level = insFld(parent_level, gFld("Text", ["Link"[, "Target"]]))
und Dokumente durch
insDoc(parent_level, gLnk("Text"[, "Link"[, "Target"]]))
level kann dabei die Werte auxn, parent_level die Werte foldersTree und auxn annehmen, wobei n (derzeit) kleiner als 7 sein muß.
Link ist entweder ein URL oder ein absoluter Pfad, mit Target kann ein Zielfenster angegeben werden, das vom Default-Zielfenster, das im Aufruf übergeben wird, abweicht, wobei eine leere Targetangabe (, "") ein neues Fenster öffnet (entspricht also , "_blank").
Die " und die Leerzeichen nach den Beistrichen sind notwendig!
Die Angaben in eckigen Klammern sind optional, ist für einen Folder aber auch ein Link definiert, dann löst das Anklicken des Folder- oder "+"-Icons nicht nur das Öffnen des Folders, sondern auch diesen Link aus.
nicht angezeigt werden soll (nohead=1) oder doch
angezeigt werden soll, damit wird die Suchfunktion des Browsers
gestartet (unterstützt aber nicht jeder Browser)
foldersTree = gFld("<B>HTML-Text1</B>", "optionaler Link")
aux1 = insFld(foldersTree, gFld("HTML-Text2", "optionaler Link"))
aux2 = insFld(aux1, gFld("HTML-Text3", "optionaler Link"))
aux3 = insFld(aux2, gFld("HTML-Text4", "optionaler Link"))
insDoc(aux3, gLnk("HTML-Text5", "Link"))
insDoc(aux3, gLnk("HTML-Text6", "Link"))
aux3 = insFld(aux2, gFld("HTML-Text7", "optionaler Link"))
insDoc(aux3, gLnk("HTML-Text8", "Link"))
insDoc(aux3, gLnk("HTML-Text9", "Link"))
aux2 = insFld(aux1, gFld("HTML-Text10", "optionaler Link"))
insDoc(aux2, gLnk("HTML-Text11", "Link"))
insDoc(aux2, gLnk("HTML-Text12", "Link"))
insDoc(foldersTree, gLnk("HTML-Text13", "Link"))
insDoc(foldersTree, gLnk("<IMG ALIGN=center SRC=/smiley.gif BORDER=0>", "Link"))
|
liefert mit dem Aufruf von /cgi-bin/navigation.pl?conf=/cgi/folderstree.txt&bgcolor=66CCFF&color=blue folgenden Baum.