User: mkirchner Date: 06/01/29 14:00:57 Modified: /de/www/dev/ makemap.pl
Log: Kleinere Aenderunge, Ueberschrift fuer Navbar File Changes: Directory: /de/www/dev/ ======================= File [changed]: makemap.pl Url: http://de.openoffice.org/source/browse/de/www/dev/makemap.pl?r1=1.4&r2=1.5 Delta lines: +43 -18 --------------------- --- makemap.pl 29 Nov 2005 15:24:43 -0000 1.4 +++ makemap.pl 29 Jan 2006 22:00:50 -0000 1.5 @@ -101,7 +101,7 @@ =head1 VERSION - Version 0.5.4 21.11.2005 Michael Kirchner + Version 0.5.5 29.01.2006 Michael Kirchner Copyright (c) 2005 Michael Kirchner, Marko Moeller Bei Fragen, Wünschen, Anregungen mail to: [EMAIL PROTECTED] This program is free software; you can redistribute it and/or @@ -126,6 +126,10 @@ Gruppen koennen Gruppen enthalten +=item 0601290000 + +Kleinere Aenderungen, Navbartitel + =back =head1 TODO @@ -198,7 +202,7 @@ $urlmatch = qr/^\./; # Wird in der Ausgabe $urlreplace = '.'; # in jedem relativen Link ersetzt $newdir = '..'; #Zielverzeichnis fuer Start -$Version = '0.5.4'; +$Version = '0.5.5'; @@ -258,6 +262,7 @@ if ($Aufgabe =~ /[amnw]/i) { &readsite; &crawl; + &checknew; } # a = aktualisieren @@ -352,7 +357,7 @@ } # readsite -sub validatesite { +sub checknew { # Die Liste der gescannten Dateien wird durchgesehen und mit # den Dateien im Datafile verglichen um geloeschte und neue zu identifizieren print VERBOSEOUT "Vergleiche Datenbank mit aktuellen html-Dateien" if $verbose; @@ -407,7 +412,9 @@ } # foreach pdffile print VERBOSEOUT ".\n" if $verbose; +} # sub checknew +sub validatesite { print VERBOSEOUT "Suche nach fehlenden Links in der Datenbank" if $verbose; # Jetzt soll geprueft werden, ob in $datafiles noch links # zu Dateien, die nicht mehr existieren, ueberiggeblieben sind. @@ -675,7 +682,12 @@ <!-- > Kommentare zur Seite - \$Id: makemap.pl,v 1.4 2005/11/29 15:24:43 mkirchner Exp $ + Achtung: Diese Seite wird automatisch mit dem Skript makemap.pl erzeugt. + Sie kann zwar direkt verändert und korrigiert werden, allerdings gehen + Änderungen, die nicht auch in der Flattext Datenbank site.data eingepflegt + werden, beim nächsten überschreiben verloren. Im Zweifelsfall bitte auf + devde um die Änderung bitten. + \$Id: makemap.pl,v 1.5 2006/01/29 22:00:50 mkirchner Exp $ < --> @@ -697,7 +709,7 @@ EOT -$sitemapfuss = <<EOT; +$sitemapfuss = <<EOT2; <p> @@ -708,7 +720,7 @@ </div> </body> </html> -EOT +EOT2 print OUTFILE $sitemapkopf; # ueber alle Gruppen in der Kategorie @@ -766,9 +778,12 @@ # die liste oeffnen if ($level == 1) { print OUTFILE "$intro<ul id=\"$navbarstil\">\n"; + #Ueberschrift der gesamten Navbar + print OUTFILE "$intro <li><div align=\"center\">de-links</div></li>\n"; } - elsif ($agroup->{'Stil'} eq '' ) { - # Fuer jede Gruppe eine Ueberschrift, es sei denn Pseudogruppen, + elsif ($level > 2 ) { + # Fuer jede Gruppe eine Ueberschrift, + # In Level=2 ist es eine Pseudokategorie, # die nur eine Auswahl aus einer Kategorie darstellen if ($agroup->{'Text'} ne '') { printf OUTFILE "$intro<li>%s\n", $agroup->{'Text'}; @@ -790,11 +805,14 @@ # ausgegeben werden, der Rest nur mit einem Link auf # eine UEbersichtsseite if ($auswahl eq '') { + # 1a) gesamte Gruppe, keine 2.Ebene ausgewaehlt, deshalb alle &writenavgroup ($adata,$level+1,$adata->{'Stil'}); } elsif ($auswahl eq $adata->{'Link'} ) { + # 1b) gesamte Gruppe die der gewaehlen 2. Ebene entspricht &writenavgroup ($adata,$level+1,$adata->{'Stil'}); } else { + # 2) # Ausgabe als Ueberschrift mit # dem ersten Link mit passendem Level in der Gruppe foreach $bdata (@{$data{$adata->{'Link'}}}){ @@ -803,8 +821,9 @@ printf OUTFILE "$intro <li> <a href=\"%s\" title=\"%s\"> %s </a></li>\n", $bdata->{'Link'}, - ($adata->{'Beschreibung'} ne "")? - $adata->{'Beschreibung'}:" ", + (($adata->{'Beschreibung'} eq "") or + ($adata->{'Beschreibung'} eq $noshow)) + ? " ": $adata->{'Beschreibung'}, # wenn kein Text definiert ist, wird Ein Dummy verwendet ($adata->{'Text'} ne "")? $adata->{'Text'}:'?????'; last; @@ -812,12 +831,14 @@ } } } - # Keine Untergruppe + # Keine Untergruppe als Link, es ist eine Datei oder URL angegeben else { printf OUTFILE "$intro <li> <a href=\"%s\" title=\"%s\"> %s </a></li>\n", $adata->{'Link'}, - ($adata->{'Beschreibung'} ne "")? $adata->{'Beschreibung'}:" ", + (($adata->{'Beschreibung'} eq "") or + ($adata->{'Beschreibung'} eq $noshow)) + ? " ": $adata->{'Beschreibung'}, # wenn kein Text definiert ist, wird Ein Dummy verwendet ($adata->{'Text'} ne "")? $adata->{'Text'}:'?????'; @@ -831,7 +852,7 @@ if ($level == 1) { printf OUTFILE "$intro</ul>\n"; } - elsif ($agroup->{'Stil'} eq '' ) { + elsif ($level > 2 ) { # Fuer jede Gruppe eine Ueberschrift print OUTFILE "$intro </ul>\n"; if ($agroup->{'Text'} ne '') { @@ -853,18 +874,20 @@ $outfile = $atype->{'Text'}; print VERBOSEOUT $outfile if $verbose; $navbarstil = $atype->{'Stil'}; - #hack: + # hack: ursprünglich sollten die Navbars mal unterschieden werden + # dies sollte sich im Stil ausdruecken $navbarstil = 'navbar_de'; - #hack:ende + # hack:ende $navbarlevel = $atype->{'Level'}; $navbartitle = $atype->{'Beschreibung'}; $kato = $atype->{'Link'}; open (OUTFILE, '>:utf8', $outfile) or die "Kann $outfile nicht oeffnen"; $Datum = strftime "%A, %d. %B %Y %H:%M:%S", localtime( time); + $navbarkopf = <<EOT; <!-- > Kommentare zur Navbar $navbartitle - \$Id: makemap.pl,v 1.4 2005/11/29 15:24:43 mkirchner Exp $ + \$Id: makemap.pl,v 1.5 2006/01/29 22:00:50 mkirchner Exp $ $outfile,V $Version $Datum $ENV{'USERNAME'} < --> EOT @@ -922,6 +945,7 @@ ALLFILE: foreach $file (@files) { + print VERBOSEOUT "\n$file" if $verbose; # soll ueberhaupt eine Navbar angelegt werden? # ersmal alle File-styles pruefen @@ -933,19 +957,20 @@ } } - # dann den ersten gruppenstil nehmen, wenn existent + # wenn er immer noch fehlt, dann den ersten gruppenstil nehmen, wenn existent if ($navbarstil eq '' ) { $adata = $datafiles{$file}{'Ref'}[0]; $gruppe = $adata->{'Gruppe'}; - $adata = $data{$gruppe}->[0]; + if ($gruppe ne $unsorted) { + $adata = $data{$gruppe}[0]; $navbarstil = $adata->{'Stil'}; } + } if ($navbarstil ne '' ) { # Einlesen der html-Datei in ein Array - print VERBOSEOUT "\n$file" if $verbose; open (HTMLFILE, "<:utf8",$file) or die "Kann $file nicht oeffnen"; @sourcefile = (); local ($/) = "\012"; --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
