Archiv Jahre

use strict; use utf8; my @linguas = qw(de fr en); my $directory = $SYSTEM_CONF{'DOCUMENT-ROOT'} ."/dh/ssi/generated/navigation/vnav/dh/aktuelles/archiv"; my $localtime = localtime(); $localtime =~ m|(\d{4})$|; my $start_jahr = 2003; my $end_jahr = $1; foreach my $lingua (@linguas) { clearlist(); my $pfad = $directory ."/menu.html.". $lingua; my $archiv_line = 0; my $ul = 0; open (OLDFILE, "< $pfad") or die "Konnte die Datei $pfad nicht oeffnen\n"; my $datei; while () { chomp; # Next, falls Zeile leer ist next if ($_ =~ /^\s*$/); # Next, falls ein

-Tag bereits besteht if ($_ =~ m|\s*
.*| ) { $ul = "1"; next; } # Und warten auf das schließende
-Tag elsif ($_ =~ m|\s*<\/ul>.*| ) { $ul = "0"; } # So lange kein

gefunden wurde, Next next if ($ul eq "1"); if ($archiv_line eq "0") { $datei .= $_."\n"; } else { $datei .= "

\n"; $datei .= generateJahre($end_jahr); $datei .= "

\n"; $archiv_line = 0; } if ($_ =~ m|\s*

\w*<\/a>| ) { $archiv_line = "1"; } } close OLDFILE; print $datei; open (NEWFILE, "> $pfad") or die "Konnte die Datei $pfad nicht oeffnen\n"; print NEWFILE $datei; close NEWFILE; } sub generateJahre() { my $end_jahr = shift; my $string = ""; for ($end_jahr; $end_jahr >= $start_jahr; $end_jahr--) { $string .= "

". $end_jahr ."

\n"; } return $string; }