source: ProjectBuilder/devel/pb/bin/pb.pl@ 8

#!/usr/bin/perl -w
#
# Project Builder main application
#
# $Id$
#
# Copyright B. Cornec 2007
# Provided under the GPL v2

use strict;
use Switch;
use Getopt::Std;

use lib qw (lib etc);
use vars qw (%defpkgdir %extpkgdir %version);
use common qw (set_env);
use pb qw (defpkgdir extpkgdir version pb_init);
use cms;

my %opts;                   # CLI Options

getopts('p:',\%opts);

# Handles project name if any
if (defined $opts{'p'}) {
    $ENV{'PBPROJ'} = set_env($opts{'p'});
} else {
    $ENV{'PBPROJ'} = set_env();
}

print "PBPROJ: $ENV{'PBPROJ'}\n";

cms_init();