added check for gpgdir_dN directories in -O encrypt mode
authorMichael Rash <mbr@cipherdyne.org>
Sun, 21 Mar 2010 20:52:34 +0000 (20:52 +0000)
committerMichael Rash <mbr@cipherdyne.org>
Sun, 21 Mar 2010 20:52:34 +0000 (20:52 +0000)
git-svn-id: file:///home/mbr/svn/gpgdir_repos/gpgdir/trunk@354 958e171a-1414-0410-8e2f-9d295d3c0db0

test/gpgdir_test.pl

index 3ddbb12..6b907e1 100755 (executable)
@@ -375,11 +375,18 @@ sub obf_recursively_encrypted() {
     @data_dir_files = ();
     find(\&find_files, $data_dir);
     for my $file (@data_dir_files) {
-        if (-f $file and not ($file =~ m|^\.| or $file =~ m|/\.|)) {
+        next if $file =~ m|^\.| or $file =~ m|/\.|;
+        if (-f $file) {
             ### gpgdir_1.gpg
             unless ($file =~ m|gpgdir_\d+\.gpg$|) {
                 return &print_errors("[-] File $file not " .
-                    "encrypted and obfuscated");
+                    "encrypted and obfuscated as 'gpgdir_N.gpg'");
+            }
+        } elsif (-d $file) {
+            ### gpgdir_d1/
+            unless ($file =~ m|gpgdir_\d+$|) {
+                return &print_errors("[-] Directory $file not " .
+                    "obfuscated as 'gpgdir_dN'");
             }
         }
     }