--- loncom/localize/localize/synch.pl	2003/09/26 14:13:35	1.1
+++ loncom/localize/localize/synch.pl	2003/09/26 15:23:24	1.2
@@ -13,4 +13,30 @@ 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);
+}