tor-webwml.git

1) #!/usr/bin/wml
2) 
3) <:
4) 
5) sub getMetadata($) {
6) 	my ($file) = @_;
7) 

8) 	die ("File $file is not a regular file") unless (-f $file);
9) 

10) 	open(F, "$file") or die ("Cannot open $file: $!\n");
11) 	my $found_metadata = 0;
12) 	while (<F>) {
13) 		chomp;

14) 		s/\r$//;

15) 		if ($_ eq '## translation metadata') {
16) 			$found_metadata = 1;
17) 			last;
18) 		};
19) 	};
20) 	die ("Did not find translation metadata in $file") unless $found_metadata;
21) 	my %data;
22) 	while (<F>) {
23) 		chomp;

24) 		s/\r$//;

25) 		if (/^#\s*(\S*):\s*(.*?)\s*$/) {
26) 			$data{$1} = $2;
27) 		} else {
28) 			last;
29) 		};
30) 	};

31) 	return \%data;

32) };
33) 

34) sub translation_get_masterrevision_file($$) {
35) 	my ($dir, $page) = @_;
36) 	my $master = getMetadata("$dir/en/$page");

37) 

38) 	die ("Cannot find 'Revision' header in master's translation metadata of en/$page") unless exists $master->{'Revision'};

39) 

40) 	my ($rev) = $master->{'Revision'} =~ m/([0-9.]+)/;

41) 	if ($rev eq '') { $rev = '(Revision not a valid number)'; };

42) 
43) 	return $rev;
44) };

45) sub translation_get_masterrevision() {

46) 	translation_get_masterrevision_file('.', $WML_SRC_FILENAME);

47) };

48) 

49) sub translation_get_basedonrevision_langfile($$$) {
50) 	my ($dir, $lang, $page) = @_;
51) 	my $translation = getMetadata("$dir/$lang/$page");

52) 

53) 	die ("Cannot find 'Based-On-Revision' header in translations's translation metadata of $lang/$page") unless exists $translation->{'Based-On-Revision'};

54) 

55) #	my ($rev) = $translation->{'Based-On-Revision'};
56) 	my ($rev) = $translation->{'Based-On-Revision'} =~ m/([0-9.]+)/;

57) 	if ($rev eq '') { $rev = '(unknown)'; };
58) 
59) 	return $rev
60) };

61) sub translation_get_basedonrevision() {

62) 	translation_get_basedonrevision_langfile(".", "$(LANG)", $WML_SRC_FILENAME);

63) };

64) 
65) 
66) sub translation_current() {
67) 	return (translation_get_masterrevision() eq translation_get_basedonrevision());
68) };
69) 

70) sub file_is_obsolete($$$) {
71) 	my ($dir, $lang, $page) = @_;
72) 	my $translation = getMetadata("$dir/$lang/$page");

73) 	return (exists $translation->{'Status'} && ($translation->{'Status'} eq 'obsolete'))

74) };
75) 

76) sub list_translations() {
77)   my @links = ();
78)   my $page = $WML_SRC_FILENAME;
79)   $page =~ s/\.wml//;

80)   for my $dir (@LANGUAGES) {

81)     if (-e "$dir/$WML_SRC_FILENAME") {
82)       if ($dir ne '$(LANG)') {
83)         push @links, sprintf('<a href="%s.html.%s">%s</a>', $page, $dir, $LANGUAGES{$dir});
84)       };
85)     };
86)   };
87)   return join(', ', @links);
88) };
89) 
90) sub has_translations() {
91)   return list_translations() ne '';
92) };
93)