|
<:
while (@navigation) {
$key = shift @navigation;
$val = shift @navigation;
push @keys, $key;
$navigation{$key} = $val;
}
for $key (@keys) {
$page = $WML_SRC_FILENAME;
$page =~ s/\.wml//;
if ($page ne $key) {
printf '%s'."\n", $key, $navigation{$key};
} else {
printf '%s'."\n", $navigation{$key};
}
}
:>
|
<:
opendir(DIR, ".") || die ("Cannot open directory .: $!\n");
my @subdirs = grep { $_ ne '.' && $_ ne '..' && -d $_ && $_ ne "$(LANG)" && exists $languages{$_}} readdir(DIR);
closedir(DIR);
$page = $WML_SRC_FILENAME;
$page =~ s/\.wml//;
for my $dir (sort {$languages{$a} cmp $languages{$b}} @subdirs) {
printf('/%s.png) ', $page, $dir, $dir, $languages{$dir}) if (-e "$dir/$WML_SRC_FILENAME");
};
:>
|