loncom/localize/localize/synch.pl - diff

Return to synch.pl CVS log

Up to [LON-CAPA] / loncom / localize / localize

-version 1.1, 2003/09/26 14:13:35
+version 1.2, 2003/09/26 15:23:24
  Line 13  sub readlexicon {
      return %lexicon;
  }
- &readlexicon('de.pm');
+ my %master=();
+ foreach (<*.pm>) {
+     print "Reading: ".$_."\n";
+     %master=(%master,&readlexicon($_));
+ }
+ foreach (<*.pm>) {
+     print "Synching: ".$_."\n";
+     my %lang=&readlexicon($_);
+     copy ($fn,$fn.'.original');
+     open(IN,$fn.'.original');
+     open(OUT,'>'.$fn);
+     my $found=0;
+     foreach (<IN>) {
+ 	if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; }
+ 	print OUT $_;
+     }
+     if ($found) {
+ 	print OUT "\n\#SYNC ".localtime."\n";
+ 	print OUT "\n\#SYNCMARKER\n";
+ 	foreach (<IN>) {
+ 	    print OUT $_;
+ 	}
+     }
+     close (IN);
+     close (OUT);
+ }