tor-webwml.git

Strukturansicht: ff0711aa2
ff0711aa2117e11a509ff3a1691b126b0ad95fba
Peter Palfrader Move website to wml

Peter Palfrader authored 19 years ago

 
1) #! /usr/bin/wml
Peter Palfrader Add translation-status page

Peter Palfrader authored 19 years ago

 
2) #include "perl-globals.wmi"
Peter Palfrader Move website to wml

Peter Palfrader authored 19 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) {
Peter Palfrader Apparently foo.html.en work...

Peter Palfrader authored 19 years ago

 
37) 	        printf '<a href="%s.html.$(LANG)">%s</a>'."\n", $key, $navigation{$key};
Peter Palfrader Move website to wml

Peter Palfrader authored 19 years ago

 
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//;
Peter Palfrader Add translation-status page

Peter Palfrader authored 19 years ago

 
48) 	  for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
Peter Palfrader Revert side effect from usi...

Peter Palfrader authored 19 years ago

 
49) 	    next if $dir eq '$(LANG)';
Peter Palfrader Apparently foo.html.en work...

Peter Palfrader authored 19 years ago

 
50) 	    printf('<a href="%s.html.%s"><img src="$(IMGROOT)/%s.png" alt="%s" /></a>', $page, $dir, $dir, $LANGUAGES{$dir}) if (-e "$dir/$WML_SRC_FILENAME");