[BACK]Return to synch.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / localize / localize

Diff for /loncom/localize/localize/synch.pl between versions 1.2 and 1.4

version 1.2, 2003/09/26 15:23:24 version 1.4, 2003/09/26 18:39:48
Line 1 Line 1
   
   
 sub readlexicon {  sub readlexicon {
     my $fn=shift;      my $fn=shift;
     open(IN,$fn);      open(IN,$fn);
Line 18  foreach (<*.pm>) { Line 20  foreach (<*.pm>) {
     print "Reading: ".$_."\n";      print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));      %master=(%master,&readlexicon($_));
 }  }
 foreach (<*.pm>) {  
     print "Synching: ".$_."\n";  foreach my $fn (<*.pm>) {
     my %lang=&readlexicon($_);      print "Synching: ".$fn."\n";
     copy ($fn,$fn.'.original');      my %lang=&readlexicon($fn);
       system ("cp $fn $fn.original");
     open(IN,$fn.'.original');      open(IN,$fn.'.original');
     open(OUT,'>'.$fn);      open(OUT,'>'.$fn);
     my $found=0;      my $found=0;
     foreach (<IN>) {      while (<IN>) {
  if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; }    if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; } 
  print OUT $_;   print OUT $_;
     }      }
     if ($found) {      if ($found) {
  print OUT "\n\#SYNC ".localtime."\n";   print OUT "\n\#SYNC ".localtime()."\n";
    foreach (sort keys %master) {
       unless ($lang{$_}) {
    print OUT (<<ENDNEW);
      '$_'
   => '$_',
   
   ENDNEW
       }
    }
   
  print OUT "\n\#SYNCMARKER\n";   print OUT "\n\#SYNCMARKER\n";
  foreach (<IN>) {   foreach (<IN>) {
Removed from v.1.2  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>