Changeset 1710

Timestamp:

2000-11-29T05:37:28+13:00 (23 years ago)

Author:

say1

Message:

RecPlug now skips CVS directories.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -72 +72 @@
     my $count = 0;
 
+ 
     # see if this is a directory
     my $dirname = &util::filename_cat ($base_dir, $file);
@@ -82 +83 @@
             return;
         }
+    if ($dirname =~ m|/CVS$|) {
+        print $outhandle "RecPlug: $dirname is a CVS directory, skipping.\n";
+        return 1;
+    }
 
     @dir = readdir (DIR);