Changeset 13 in ProjectBuilder for devel/pb/bin

Timestamp:

Jul 30, 2007, 1:32:55 PM (17 years ago)

Author:

Bruno Cornec

Message:

Deal with rpm build process

File:

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

devel/pb/bin/pb.pl

@@ -15 +15 @@
 use Data::Dumper;
 use English;
+use Time::localtime qw(localtime);
+use POSIX qw(strftime);
 
 use lib qw (lib etc);
@@ -127 +129 @@
             print " OK\n";
         }
+        my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
+        my $pbdate = strftime("%Y-%m-%d", @date);
+
         open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
         while (<D>) {
@@ -135 +140 @@
             my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
             #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
+            #print "Filtering DDD => $pbdate, TTT => $tag, RRR => $tag$dsuf, VVV => $v\n";
+
+            # Filter build files from the most precise up to the less
+            # Filter all files found, keeping the name, and generating in dest
+            my @bfiles;
+            print "dir: $ENV{'PBCONF'}/$p/$ddir-$dver\n";
+            if (-d "$ENV{'PBCONF'}/$p/$ddir-$dver") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$ddir-$dver" || die "Unable to open dir $ENV{'PBCONF'}/$p/$ddir-$dver: $!");
+                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$ddir-$dver/$_" } readdir(BDIR);
+                closedir(BDIR);
+            } elsif (-d "$ENV{'PBCONF'}/$p/$ddir") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$ddir" || die "Unable to open dir $ENV{'PBCONF'}/$p/$ddir: $!");
+                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$ddir/$_" } readdir(BDIR);
+                closedir(BDIR);
+            } elsif (-d "$ENV{'PBCONF'}/$p/$dfam") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dfam" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dfam: $!");
+                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dfam/$_" } readdir(BDIR);
+                closedir(BDIR);
+            } elsif (-d "$ENV{'PBCONF'}/$p/$dtype") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dtype" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dtype: $!");
+                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dtype/$_" } readdir(BDIR);
+                closedir(BDIR);
+            } else {
+                print "No Build Files found for $ddir-$dver\n";
+                next;
+            }
+
         }
         close(D);
+
     }
 } else {