ignore certain files. Fix the script
authorAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 20:44:46 +0000 (21:44 +0100)
committerAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 20:44:46 +0000 (21:44 +0100)
src/perlify.pl

index ffaf436..8228fa4 100755 (executable)
@@ -1,9 +1,10 @@
 #!/usr/bin/env perl
 
 use strict;
-
+use File::Basename;
 
 my $debug=1;
+my @exclude=('DH.tex', 'ECC.tex', 'LATER.tex', 'PKIs.tex', 'RNGs.tex', 'abstract.tex', 'acknowledgements.tex', 'applied-crypto-hardening.tex', 'bib.tex', 'cipher_suites.tex', 'disclaimer.tex', 'further_research.tex', 'howtoread.tex', 'keylengths.tex', 'links.tex', 'methods.tex', 'motivation.tex', 'practical_settings.tex', 'reviewers.tex', 'scope.tex', 'ssllibs.tex', 'suggested_reading.tex', 'template.tex', 'tools.tex');
 
 my $cipherStrB=`cat cipherStringB.txt`;
 chomp $cipherStrB;
@@ -14,10 +15,11 @@ my $f;
 foreach  $f ( @files)  {
        chomp $f;
        $f =~ /(.*)\.tex/;
+       my $fbasename = basename($f);
        my $ftex = "$1_generated.tex";
 
        my $rc=` grep -q "\@\@\@CIPHERSTRINGB\@\@\@" $f`;
-       if ($rc == 0) {
+       if ($rc eq 0 and not (/$fbasename/ ~~ @exclude)) {
 
                print "file = $f\n" if $debug;
                print "ftex = $ftex\n" if $debug;