Changeset 15 in ProjectBuilder for devel/pb/bin

Timestamp:

Jul 30, 2007, 2:47:27 PM (18 years ago)

Author:

Bruno Cornec

Message:

Begin to deal with filters

File:

• devel/pb/bin/pb.pl (modified) (2 diffs)

devel/pb/bin/pb.pl

@@ -19 +19 @@
 
 use lib qw (lib etc);
-use vars qw (%defpkgdir %extpkgdir %version);
+use vars qw (%defpkgdir %extpkgdir %version @filteredfiles);
 use common qw (env_init);
-use pb qw (defpkgdir extpkgdir version pb_init);
+use pb qw (defpkgdir extpkgdir version filteredfiles pb_init);
 use distro qw (distro_init);
 use cms;
@@ -167 +167 @@
             }
 
+            # Get all filters to apply
+            # They're cumulative from less specific to most specific
+            # suffix is .pbf
+            if (-d "$ENV{'PBCONF'}/$p/pbfilter") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/pbfilter" || die "Unable to open dir $ENV{'PBCONF'}/$p/pbfilter: $!");
+                foreach my $f (readdir(BDIR)) {
+                    if (-f "$ENV{'PBCONF'}/$p/pbfilter/$dtype.pbf") {
+
+                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dtype/$_" } readdir(BDIR);
+                closedir(BDIR);
+            }
+
         }
         close(D);