/[webwml]/webwml/touch_translations.pl
ViewVC logotype

Diff of /webwml/touch_translations.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by joey, Fri May 18 14:46:47 2001 UTC revision 1.7 by joy, Sun Jul 22 16:06:54 2001 UTC
# Line 24  Line 24 
24  # This should contain all languages  # This should contain all languages
25  %langs = (  %langs = (
26          "ar" => "arabic",          "ar" => "arabic",
27            "ca" => "catalan",
28          "zh" => "chinese",          "zh" => "chinese",
29          "hr" => "croatian",          "hr" => "croatian",
30            "cs" => "czech",
31          "da" => "danish",          "da" => "danish",
32          "nl" => "dutch",          "nl" => "dutch",
         "el" => "hellas",  
33          "en" => "english",          "en" => "english",
34          "eo" => "esperanto",          "eo" => "esperanto",
35          "fi" => "finnish",          "fi" => "finnish",
36          "fr" => "french",          "fr" => "french",
37          "de" => "german",          "de" => "german",
38            "el" => "greek",
39          "hu" => "hungarian",          "hu" => "hungarian",
40          "it" => "italian",          "it" => "italian",
41          "ja" => "japanese",          "ja" => "japanese",
# Line 43  Line 45 
45          "pt" => "portuguese",          "pt" => "portuguese",
46          "ro" => "romanian",          "ro" => "romanian",
47          "ru" => "russian",          "ru" => "russian",
48            "sk" => "slovak",
49          "es" => "spanish",          "es" => "spanish",
50          "sv" => "swedish",          "sv" => "swedish",
51          "tr" => "turkish");          "tr" => "turkish");
# Line 103  my ($path, $file) = ($1, $2); Line 106  my ($path, $file) = ($1, $2);
106    
107  # Get the revision of the original file  # Get the revision of the original file
108  my $origrev;  my $origrev;
109  open FILE, "${path}/CVS/Entries" or die "${path}/CVS/Entries: $!";  if (open FILE, "${path}/CVS/Entries") {
110  while (<FILE>) {    while (<FILE>) {
111      if (m,^/$file.wml/([^/]+)/,) {      if (m,^/$file.wml/([^/]+)/,) {
112          $origrev = $1;          $origrev = $1;
113          last;          last;
114      }      }
115      }
116    } else {
117        $origrev = "1.0";
118  }  }
119    
120  foreach $lang (@langs) {  foreach $lang (@langs) {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.5