Changeset 240

Timestamp:

02/17/08 01:08:53 (9 months ago)

Author:

mbr

Message:

- Bugfix to not include previously encrypted files (i.e. those with a .gpg
extension) in the encryption/decryption file list. This bug was
introduced in gpgdir-1.5 when a change was made to ignore ascii-armored
files.

Files:

• gpgdir/trunk/ChangeLog (modified) (1 diff)
• gpgdir/trunk/gpgdir (modified) (2 diffs)

gpgdir/trunk/ChangeLog

@@ +1 @@
+gpgdir-1.6 (02//2008):
+    - Bugfix to not include previously encrypted files (i.e. those with a .gpg
+      extension) in the encryption/decryption file list.  This bug was
+      introduced in gpgdir-1.5 when a change was made to ignore ascii-armored
+      files.
+    - Added added LC_ALL=C locale setting for the install.pl script (this
+      should help to ensure gpgdir is properly installed on most systems). Two
+      new command line arguments --LC_ALL and --no-LC_ALL also allow the
+      locale setting to be changed or not used at all.
+    - Added --Exclude-mod-regex option to the install.pl script so that it is
+      possible to force the exclusion of perl modules that gpgdir would
+      normally install. This is useful for ensuring that gpgdir references
+      perl modules that are already installed in the system perl library tree
+      instead of using those that are installed in /usr/lib/gpgdir.
+    - Updated to display command line usage warnings without automatically
+      displaying the entire usage() page (which is quite long).
+
-gpgdir-1.5 (08/31/2007):
-    - Added the --Symmetric option so that files can be encrypted/decrypted

gpgdir/trunk/gpgdir

@@ -116 +116 @@
-Getopt::Long::Configure('no_ignore_case');
-
-&usage_and_exit()
+die "[-] Use --help for usage information.\n"
-    'encrypt=s'      => \$encrypt_dir,     # Encrypt files in this directory.
-    'decrypt=s'      => \$decrypt_dir,     # Decrypt files in this directory.
@@ -976 +976 @@
-    ### skip all links, zero size files, all hidden
-    ### files (includes .gnupg files), etc.
-
-
-
+
-    if (-e $file and not -l $file and -s $file != 0
-            and $file !~ m|/\.|) {
-encrypt_mode
-file =~ m|\.gpg| and $file =~ m|\.asc|
+file =~ m|\.gpg| or $file =~ m|\.asc|
+encrypt_mode
-                print "[-] Skipping encrypted file: $file\n" unless $quiet;
-
-
-
-
+
-                print "[-] Skipping unencrypted file: $file\n" unless $quiet;
-    return;
-}
-
+}
+return;
+ 
-        my ($atime, $mtime) = (stat($file))[8,9];
-        $files{$file}{'atime'} = $atime;