Changeset 11 for devel/pb/bin/pb.pl


Ignore:
Timestamp:
Jul 30, 2007, 2:21:01 AM (13 years ago)
Author:
Bruno Cornec
Message:

Addition of distro management

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb.pl

    r9 r11  
    2020use common qw (env_init);
    2121use pb qw (defpkgdir extpkgdir version pb_init);
     22use distro qw (distro_init);
    2223use cms;
    2324
     
    126127            print " OK\n";
    127128        }
     129        open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
     130        while (<D>) {
     131            my $d = $_;
     132            my ($dir,$ver) = split(/_/,$d);
     133            chomp($ver);
     134            print "Generating build files for $dir ($ver)\n";
     135            my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
     136            #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
     137        }
     138        close(D);
    128139    }
    129140} else {
Note: See TracChangeset for help on using the changeset viewer.