do not use the .template mechanism
authorAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 19:01:56 +0000 (20:01 +0100)
committerAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 19:01:56 +0000 (20:01 +0100)
src/perlify.pl

index 83cf2bc..ffaf436 100755 (executable)
@@ -8,22 +8,29 @@ my $debug=1;
 my $cipherStrB=`cat cipherStringB.txt`;
 chomp $cipherStrB;
 
-my @files=`find . -name "*.tex.template" -print`;
+my @files=`find . -name "*.tex" -a \! -name "*_generated.tex" -print`;
 my $f;
 
 foreach  $f ( @files)  {
        chomp $f;
-       $f =~ /(.*\.tex)\.template/;
-       my $ftex = $1;
-
-       print "file = $f\n" if $debug;
-       print "ftex = $ftex\n" if $debug;
-
-       open(FH,    "<", $f ) or die "could not open file $f: $!";
-       open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
-       
-       while (<FH>) {
-               $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
-               print FHOUT $_;
+       $f =~ /(.*)\.tex/;
+       my $ftex = "$1_generated.tex";
+
+       my $rc=` grep -q "\@\@\@CIPHERSTRINGB\@\@\@" $f`;
+       if ($rc == 0) {
+
+               print "file = $f\n" if $debug;
+               print "ftex = $ftex\n" if $debug;
+
+               open(FH,    "<", $f ) or die "could not open file $f: $!";
+               open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
+               
+               while (<FH>) {
+                       $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
+                       print FHOUT $_;
+               }
+       }
+       else {
+               print "skipping file $f\n" if $debug;
        }
 }