Move website to wml
Peter Palfrader authored 18 years ago
|
3) #include "links.wmi"
4) #include "versions.wmi"
5) #include "navigation.wmi"
6)
7) <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
8) <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
9) <head>
10) <title>Tor: $(TITLE)</title>
11) <meta name="Author" content="Roger Dingledine" />
12) <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
13) <link rel="stylesheet" type="text/css" href="stylesheet.css" />
14) <link rel="shortcut icon" type="image/x-icon" href="favicon.ico" />
15) <ifneq "$(REDIRECT)" "" "<meta http-equiv="refresh" content="0;url=$(REDIRECT).html" />">
16) </head>
17)
18) <body>
19)
20) <div class="center">
21) <table class="banner" border="0" cellpadding="0" cellspacing="0">
22) <tr>
23) <td class="banner-left"></td>
24) <td class="banner-middle">
25) <:
26) while (@navigation) {
27) $key = shift @navigation;
28) $val = shift @navigation;
29) push @keys, $key;
30) $navigation{$key} = $val;
31) }
32)
33) for $key (@keys) {
34) $page = $WML_SRC_FILENAME;
35) $page =~ s/\.wml//;
36) if ($page ne $key) {
37) printf '<a href="%s.$(LANG).html">%s</a>'."\n", $key, $navigation{$key};
38) } else {
39) printf '<a class="current">%s</a>'."\n", $navigation{$key};
40) }
41) }
42) :>
43) </td>
44) <td class="banner-right">
45) <:
46) $page = $WML_SRC_FILENAME;
47) $page =~ s/\.wml//;
|
Add translation-status page
Peter Palfrader authored 18 years ago
|
48) for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
49) printf('<a href="%s.%s.html"><img src="$(IMGROOT)/%s.png" alt="%s" /></a>', $page, $dir, $dir, $LANGUAGES{$dir}) if (-e "$dir/$WML_SRC_FILENAME");
|