#!/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/pb);
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'}) {
	set_env($opts{'p'});
} else {
	set_env();
}

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