source: devel/pb/bin/pb.pl @ 5

Last change on this file since 5 was 5, checked in by bruno, 12 years ago

Lots of modifs to find the right way. Probably still not good

  • Property svn:executable set to *
File size: 509 bytes
Line 
1#!/usr/bin/perl -w
2#
3# Project Builder main application
4#
5# $Id$
6#
7# Copyright B. Cornec 2007
8# Provided under the GPL v2
9
10use strict;
11use Switch;
12use Getopt::Std;
13
14use lib qw (lib /etc/pb);
15use vars qw (%defpkgdir %extpkgdir %version);
16use common qw (set_env);
17use pb qw (defpkgdir extpkgdir version pb_init);
18use cms;
19
20my %opts;                   # CLI Options
21
22getopts('p:',\%opts);
23
24# Handles project name if any
25if (defined $opts{'p'}) {
26    set_env($opts{'p'});
27} else {
28    set_env();
29}
30
31print "PBPROJ: $ENV{'PBPROJ'}\n";
Note: See TracBrowser for help on using the repository browser.