X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=gpgdir%2Ftest%2Fgpgdir_test.pl;h=6f1a3c417111a06b552b69e7adcb952bb447bb14;hb=b9fda31500e32a0b624ef376b161152f9643486a;hp=fafda65ca41ed1cb137995bc4c7193681511179c;hpb=957ed3e08d73f53b2df43e5c20c03c78f54c08f1;p=pgp-tools.git

diff --git a/gpgdir/test/gpgdir_test.pl b/gpgdir/test/gpgdir_test.pl
index fafda65..6f1a3c4 100755
--- a/gpgdir/test/gpgdir_test.pl
+++ b/gpgdir/test/gpgdir_test.pl
@@ -9,9 +9,9 @@
 #
 # Author: Michael Rash (mbr@cipherdyne.org)
 #
-# Version: 1.9.3
+# Version: 1.9.5
 #
-# Copyright (C) 2008 Michael Rash (mbr@cipherdyne.org)
+# Copyright (C) 2008-2009 Michael Rash (mbr@cipherdyne.org)
 #
 # License (GNU Public License):
 #
@@ -27,7 +27,7 @@
 #
 #############################################################################
 #
-# $Id: gpgdir_test.pl 328 2008-11-05 05:04:20Z mbr $
+# $Id: gpgdir_test.pl 341 2009-08-26 02:43:51Z mbr $
 #
 
 use Digest::MD5 'md5_base64';
@@ -284,7 +284,7 @@ sub recursively_decrypted() {
     find(\&find_files, $data_dir);
     for my $file (@data_dir_files) {
         if (-f $file and not ($file =~ m|^\.| or $file =~ m|/\.|)) {
-            if ($file =~ m|\.gpg$|) {
+            if ($file =~ m|\.gpg$| or $file =~ m|\.pgp$|) {
                 return &print_errors("[-] File $file not encrypted");
             }
         }
@@ -410,7 +410,8 @@ sub skipped_hidden_files_dirs() {
         if ($file =~ m|^\.| or $file =~ m|/\.|) {
             ### check for any .gpg or .asc extensions except
             ### for the gpgdir_map_file
-            if ($file =~ m|\.gpg$| or $file =~ m|\.asc$|) {
+            if ($file =~ m|\.gpg$| or $file =~ m|\.asc$|
+                    or $file =~ m|\.pgp$|) {
                 return &print_errors("[-] Encrypted hidden file");
             }
         }
@@ -426,7 +427,7 @@ sub obf_skipped_hidden_files_dirs() {
             ### check for any .gpg or .asc extensions except
             ### for the gpgdir_map_file
             if ($file !~ m|gpgdir_map_file| and ($file =~ m|\.gpg$|
-                    or $file =~ m|\.asc$|)) {
+                    or $file =~ m|\.asc$| or $file =~ m|\.pgp$|)) {
                 return &print_errors("[-] Encrypted hidden file");
             }
         }