include/head.wmi (df21b2fac) - tor-webwml.git

df21b2fac6f073e60fb41414aa7cd707f3eea3d2

Move website to wml Peter Palfrader authored 18 years ago	`1) #! /usr/bin/wml`
Make translation status mor... Peter Palfrader authored 18 years ago	`2) <: use strict; :>`
also use "use warnings" Peter Palfrader authored 18 years ago	`3) <: use warnings; :> 4) #use "perl-globals.wmi" 5) #use "links.wmi" 6) #use "versions.wmi" 7) #use "navigation.wmi"`
Move website to wml Peter Palfrader authored 18 years ago	`8)`
We don't claim to do XML an... Peter Palfrader authored 18 years ago	`9) #<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> 10) <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd"> 11) #<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"> 12) <html>`
Move website to wml Peter Palfrader authored 18 years ago	`13) <head> 14) <title>Tor: $(TITLE)</title> 15) <meta name="Author" content="Roger Dingledine" /> 16) <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />`
WMLify eff/ Peter Palfrader authored 18 years ago	`17) <link rel="stylesheet" type="text/css" href="$(DOCROOT)/stylesheet.css" />`
Move website to wml Peter Palfrader authored 18 years ago	`18) <link rel="shortcut icon" type="image/x-icon" href="favicon.ico" />`
WMLify eff/ Peter Palfrader authored 18 years ago	`19) <ifneq "$(REDIRECT)" "" "<meta http-equiv="refresh" content="0;url=$(DOCROOT)/$(REDIRECT).html" />">`
Move website to wml Peter Palfrader authored 18 years ago	`20) </head> 21) 22) <body> 23) 24) <div class="center"> 25) <table class="banner" border="0" cellpadding="0" cellspacing="0"> 26) <tr> 27) <td class="banner-left"></td> 28) <td class="banner-middle">`
also use "use warnings" Peter Palfrader authored 18 years ago	`29) <:{`
Make translation status mor... Peter Palfrader authored 18 years ago	`30) my %navigation; 31) my @keys;`
Move website to wml Peter Palfrader authored 18 years ago	`32) while (@navigation) {`
Make translation status mor... Peter Palfrader authored 18 years ago	`33) my $key = shift @navigation; 34) my $val = shift @navigation;`
Move website to wml Peter Palfrader authored 18 years ago	`35) push @keys, $key; 36) $navigation{$key} = $val; 37) } 38)`
Make translation status mor... Peter Palfrader authored 18 years ago	`39) for my $key (@keys) { 40) my $page = $WML_SRC_FILENAME;`
Move website to wml Peter Palfrader authored 18 years ago	`41) $page =~ s/\.wml//; 42) if ($page ne $key) {`
Add gui and minor fixes Peter Palfrader authored 18 years ago	`43) if (-e "$(DOCROOT)/$(LANG)/$key.wml") {`
WMLify eff/ Peter Palfrader authored 18 years ago	`44) printf '<a href="$(DOCROOT)/%s.html.$(LANG)">%s</a>'."\n",`
bugfix on the website: the... Roger Dingledine authored 18 years ago	`45) $key, $navigation{$key}; 46) } else {`
WMLify eff/ Peter Palfrader authored 18 years ago	`47) printf '<a href="$(DOCROOT)/%s.html">%s</a>'."\n",`
bugfix on the website: the... Roger Dingledine authored 18 years ago	`48) $key, $navigation{$key}; 49) } 50) } else { 51) printf '<a class="current">%s</a>'."\n", $navigation{$key}; 52) } 53) }`
also use "use warnings" Peter Palfrader authored 18 years ago	`54) }:>`
Move website to wml Peter Palfrader authored 18 years ago	`55) </td> 56) <td class="banner-right">`
also use "use warnings" Peter Palfrader authored 18 years ago	`57) <:{`
Make translation status mor... Peter Palfrader authored 18 years ago	`58) my $page = $WML_SRC_FILENAME;`
this is a better hack. stil... Roger Dingledine authored 18 years ago	`59) my $numlangs = 0;`
Move website to wml Peter Palfrader authored 18 years ago	`60) $page =~ s/\.wml//;`
Add translation-status page Peter Palfrader authored 18 years ago	`61) for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {`
this is a better hack. stil... Roger Dingledine authored 18 years ago	`62) if (-e "$dir/$WML_SRC_FILENAME") {`
More languages in the top r... Peter Palfrader authored 18 years ago	`63) if ($dir eq '$(LANG)') { 64) printf('<img src="$(IMGROOT)/%s.png" alt="%s" /> ', $dir, $LANGUAGES{$dir}); 65) } else {`
Add gui and minor fixes Peter Palfrader authored 18 years ago	`66) printf('<a href="%s.html.%s"><img src="$(IMGROOT)/%s.png" alt="%s" /></a> ', $page, $dir, $dir, $LANGUAGES{$dir});`
More languages in the top r... Peter Palfrader authored 18 years ago	`67) }; 68) } else { 69) printf('<img src="$(IMGROOT)/green-flagspace.png"/> '); 70) };`
Move website to wml Peter Palfrader authored 18 years ago	`71) };`
also use "use warnings" Peter Palfrader authored 18 years ago	`72) }:>`
Move website to wml Peter Palfrader authored 18 years ago	`73) </td> 74) </tr> 75) </table> 76)`