also use "use warnings" (20cb78bfc) - tor-webwml.git

also use "use warnings"

Peter Palfrader commited on 2005-10-08 14:34:51
Zeige 6 geänderte Dateien mit 18 Einfügungen und 16 Löschungen.

de/foot.wmi 49d4a0cc3..dcbbcd339
en/foot.wmi f6c6435d3..afd039d28
en/translation-status.wml 54f0e6d5f..4819edf60
include/head.wmi 13039de7b..a5a92bf00
include/links.wmi 6350805d1..5f25260ae
it/foot.wmi 49e43c082..f0b42c077

de/foot.wmi

@@ -4,13 +4,13 @@
 # Based-On-Revision: 1.2
 # Last-Translator: peter@palfrader.org
 
-#include "functions.wmi"
+#use "functions.wmi"
 
 </div>
   <div class="bottom" id="bottom">
      <i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
 #     Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp 
-      Letzte &auml;nderung: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
+      Letzte &auml;nderung: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
       -
       Zuletzt kompiliert: <: print scalar localtime(); :>
 

en/foot.wmi

Zeige Datei @ 20cb78bfc

@@ -3,13 +3,13 @@
 ## translation metadata
 # Revision: $Revision$
 
-#include "functions.wmi"
+#use "functions.wmi"
 
 </div>
   <div class="bottom" id="bottom">
      <i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
 #     Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp 
-      Last modified: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
+      Last modified: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
       -
       Last compiled: <: print scalar localtime(); :>
 

en/translation-status.wml

Zeige Datei @ 20cb78bfc

@@ -2,6 +2,7 @@
 # Revision: $Revision$
 
 #include "head.wmi" TITLE="Translation status"
+#use "functions.wmi"
 
 <div class="main-column">
 

include/head.wmi

Zeige Datei @ 20cb78bfc

@@ -1,9 +1,10 @@
 #! /usr/bin/wml
 <: use strict; :>
-#include "perl-globals.wmi"
-#include "links.wmi"
-#include "versions.wmi"
-#include "navigation.wmi"
+<: use warnings; :>
+#use "perl-globals.wmi"
+#use "links.wmi"
+#use "versions.wmi"
+#use "navigation.wmi"
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
@@ -23,7 +24,7 @@
     <tr>
         <td class="banner-left"></td>
         <td class="banner-middle">
-	<:
+	<:{
 	    my %navigation;
 	    my @keys;
 	    while (@navigation) {
@@ -42,17 +43,17 @@
 	        printf '<a class="current">%s</a>'."\n", $navigation{$key};
 	       }
 	     }
-	:>
+	}:>
         </td>
         <td class="banner-right">
-	<:
+	<:{
 	  my $page = $WML_SRC_FILENAME;
 	  $page =~ s/\.wml//;
 	  for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
 	    next if $dir eq '$(LANG)';
 	    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");
 	  };
-	:>
+	}:>
         </td>
     </tr>
 </table>

include/links.wmi

Zeige Datei @ 20cb78bfc

@@ -5,7 +5,7 @@
 #  Xinclude "locallinks.wmi"
 #  Xinclude "langlocallinks.$(LANG).wmi"
 
-<define-tag page whitespace=delete><:
+<define-tag page whitespace=delete><:{
 	my $page="%0";
 	my $lang="$(LANG)";
 	if (-e "$lang/$page.wml") {
@@ -15,4 +15,4 @@
 	} else {
 		warn "$WML_SRC_FILENAME has a [page $page], but that doesn't exist.";
 	};
-:></define-tag>
+}:></define-tag>

it/foot.wmi

Zeige Datei @ 20cb78bfc

@@ -4,13 +4,13 @@
 # Based-On-Revision: unknown
 # Last-Translator: unknown
 
-#include "functions.wmi"
+#use "functions.wmi"
 
 </div>
   <div class="bottom" id="bottom">
      <i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
 #     Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp 
-      Last modified: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
+      Last modified: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
       -
       Last compiled: <: print scalar localtime(); :>
 


...	...	@@ -4,13 +4,13 @@
4	4	# Based-On-Revision: 1.2
5	5	# Last-Translator: peter@palfrader.org
6	6
7		-#include "functions.wmi"
	7	+#use "functions.wmi"
8	8
9	9	</div>
10	10	<div class="bottom" id="bottom">
11	11	<i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
12	12	# Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp
13		- Letzte änderung: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
	13	+ Letzte änderung: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
14	14	-
15	15	Zuletzt kompiliert: <: print scalar localtime(); :>
16	16

...	...	@@ -3,13 +3,13 @@
3	3	## translation metadata
4	4	# Revision: $Revision$
5	5
6		-#include "functions.wmi"
	6	+#use "functions.wmi"
7	7
8	8	</div>
9	9	<div class="bottom" id="bottom">
10	10	<i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
11	11	# Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp
12		- Last modified: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
	12	+ Last modified: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
13	13	-
14	14	Last compiled: <: print scalar localtime(); :>
15	15

...	...	@@ -2,6 +2,7 @@
2	2	# Revision: $Revision$
3	3
4	4	#include "head.wmi" TITLE="Translation status"
	5	+#use "functions.wmi"
5	6
6	7	<div class="main-column">
7	8

...	...	@@ -1,9 +1,10 @@
1	1	#! /usr/bin/wml
2	2	<: use strict; :>
3		-#include "perl-globals.wmi"
4		-#include "links.wmi"
5		-#include "versions.wmi"
6		-#include "navigation.wmi"
	3	+<: use warnings; :>
	4	+#use "perl-globals.wmi"
	5	+#use "links.wmi"
	6	+#use "versions.wmi"
	7	+#use "navigation.wmi"
7	8
8	9	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
9	10	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
...	...	@@ -23,7 +24,7 @@
23	24	<tr>
24	25	<td class="banner-left"></td>
25	26	<td class="banner-middle">
26		- <:
	27	+ <:{
27	28	my %navigation;
28	29	my @keys;
29	30	while (@navigation) {
...	...	@@ -42,17 +43,17 @@
42	43	printf '<a class="current">%s</a>'."\n", $navigation{$key};
43	44	}
44	45	}
45		- :>
	46	+ }:>
46	47	</td>
47	48	<td class="banner-right">
48		- <:
	49	+ <:{
49	50	my $page = $WML_SRC_FILENAME;
50	51	$page =~ s/\.wml//;
51	52	for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
52	53	next if $dir eq '$(LANG)';
53	54	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");
54	55	};
55		- :>
	56	+ }:>
56	57	</td>
57	58	</tr>
58	59	</table>

...	...	@@ -5,7 +5,7 @@
5	5	# Xinclude "locallinks.wmi"
6	6	# Xinclude "langlocallinks.$(LANG).wmi"
7	7
8		-<define-tag page whitespace=delete><:
	8	+<define-tag page whitespace=delete><:{
9	9	my $page="%0";
10	10	my $lang="$(LANG)";
11	11	if (-e "$lang/$page.wml") {
...	...	@@ -15,4 +15,4 @@
15	15	} else {
16	16	warn "$WML_SRC_FILENAME has a [page $page], but that doesn't exist.";
17	17	};
18		-:></define-tag>
	18	+}:></define-tag>

...	...	@@ -4,13 +4,13 @@
4	4	# Based-On-Revision: unknown
5	5	# Last-Translator: unknown
6	6
7		-#include "functions.wmi"
	7	+#use "functions.wmi"
8	8
9	9	</div>
10	10	<div class="bottom" id="bottom">
11	11	<i><a href="mailto:tor-webmaster@freehaven.net" class="smalllink">Webmaster</a></i> -
12	12	# Id: developers.html,v 1.41 2005/08/31 20:19:16 thomass Exp
13		- Last modified: <: my @stat = stat($(LANG).'/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); :>
	13	+ Last modified: <:{ my @stat = stat('$(LANG)/'.$WML_SRC_FILENAME); print scalar localtime($stat[9]); }:>
14	14	-
15	15	Last compiled: <: print scalar localtime(); :>
16	16
17	17