Changes in devel/pb/bin/pb.pl [30:20] in ProjectBuilder

File:

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

devel/pb/bin/pb.pl

@@ -8 +8 @@
 # Provided under the GPL v2
 
-# Syntax: see at end
+# Syntax: pb [-p project] <action> [<params>...]
 
 use strict 'vars';
+use Switch;
 use Getopt::Std;
 use Data::Dumper;
@@ -16 +17 @@
 use AppConfig qw(:argcount :expand);
 use File::Basename;
-use File::Copy;
+use Archive::Tar;
 use Time::localtime qw(localtime);
 use POSIX qw(strftime);
 
-use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles $debug $LOG);
+use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles);
 %extpkgdir = ();
 %filteredfiles = ();
-$debug = 0;                 # Debug level
-$LOG = *STDOUT;             # Where to log
 use lib qw (lib);
 use common qw (env_init);
@@ -43 +42 @@
 my $pbdate = strftime("%Y-%m-%d", @date);
 
-getopts('hl:p:qtv',\%opts);
-
-if (defined $opts{'h'}) {
-    syntax();
-    exit(0);
-}
-if (defined $opts{'v'}) {
-    $debug++;
-}
-if (defined $opts{'q'}) {
-    $debug=-1;
-}
-if (defined $opts{'l'}) {
-    open(LOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!";
-    $LOG = *LOG;
-    $debug = 0  if ($debug == -1);
-    }
+getopts('p:t',\%opts);
+
 # Handles project name if any
 if (defined $opts{'p'}) {
@@ -75 +59 @@
 # Get Action
 $action = shift @ARGV;
-die syntax() if (not defined $action);
-
-print $LOG "Project $ENV{'PBPROJ'}\n" if ($debug >= 0);
-print $LOG "Action: $action\n" if ($debug >= 0);
+die "Syntax: pb [-p project] <action> [<params>...]" if (not defined $action);
+
+print "Project $ENV{'PBPROJ'}\n";
+#print "Action: $action - ARGV:".Dumper(\@ARGV);
 
 # Act depending on action
 if ($action =~ /^cms2build$/) {
-    my $ptr = get_pkg();
-    @pkgs = @$ptr;
+    print "Action: cms2build\n";
+    # Get packages list
+    if (not defined $ARGV[0]) {
+        @pkgs = keys %defpkgdir;
+    } elsif ($ARGV[0] =~ /^all$/) {
+        @pkgs = keys %defpkgdir;
+        if (defined %extpkgdir) {
+            my $k = keys %extpkgdir;
+            if (defined $k) {
+                push(@pkgs, keys %extpkgdir);
+            }
+        }
+    } else {
+        @pkgs = @ARGV;
+    }
+    print "Packages:\n";
+    print Dumper(@pkgs);
     cms_init();
 
-    foreach my $pbpkg (@pkgs) {
-        if (-f "$ENV{'PBROOT'}/$pbpkg/VERSION") {
-            open(V,"$ENV{'PBROOT'}/$pbpkg/VERSION") || die "Unable to open $ENV{'PBROOT'}/$pbpkg/VERSION";
+    foreach my $pkg (@pkgs) {
+
+        if (-f "$ENV{'PBROOT'}/$pkg/VERSION") {
+            open(V,"$ENV{'PBROOT'}/$pkg/VERSION") || die "Unable to open $ENV{'PBROOT'}/$pkg/VERSION";
             $pbver = <V>;
             chomp($pbver);
@@ -96 +96 @@
         }
 
-        if (-f "$ENV{'PBROOT'}/$pbpkg/TAG") {
-            open(T,"$ENV{'PBROOT'}/$pbpkg/TAG") || die "Unable to open $ENV{'PBROOT'}/$pbpkg/TAG";
+        if (-f "$ENV{'PBROOT'}/$pkg/TAG") {
+            open(T,"$ENV{'PBROOT'}/$pkg/TAG") || die "Unable to open $ENV{'PBROOT'}/$pkg/TAG";
             $pbtag = <T>;
             chomp($pbtag);
@@ -105 +105 @@
         }
         $pbrev = $ENV{'PBREVISION'};
-        print $LOG "\n" if ($debug >= 0);
-        print $LOG "Management of $pbpkg $pbver-$pbtag (rev $pbrev)\n" if ($debug >= 0);
+        print "Management of $pkg $pbver-$pbtag (rev $pbrev)\n";
         die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
         # Clean up dest if necessary. The export will recreate it
-        my $dest = "$ENV{'PBDESTDIR'}/$pbpkg-$pbver";
+        my $dest = "$ENV{'PBDESTDIR'}/$pkg-$pbver";
         pbrm_rf($dest) if (-d $dest);
 
@@ -115 +114 @@
         # And generate some additional files
         $OUTPUT_AUTOFLUSH=1;
-
+        print "$ENV{'PBCMSEXP'} of $pkg...";
         # computes in which dir we have to work
-        my $dir = $defpkgdir{$pbpkg};
-        $dir = $extpkgdir{$pbpkg} if (not defined $dir);
-        pbsystem("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null", "Exporting $ENV{'PBROOT'}/$dir");
+        my $dir = $defpkgdir{$pkg};
+        $dir = $extpkgdir{$pkg} if (not defined $dir);
+        system("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null");
+        if ($? == -1) {
+            print "failed to execute: $!\n";
+        } elsif ($? & 127) {
+            printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+        } else {
+            print " Done under $dest\n";
+        }
 
         # Creates a REVISION file
@@ -127 +133 @@
 
         # Extract cms log history and store it
-        pbsystem("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}", "Extracting log info");
-
-        my %build;
+        system("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}");
+        print "$ENV{'PBCMSLOG'} of $pkg...";
+        if ($? == -1) {
+            print "failed to execute: $!\n";
+        } elsif ($? & 127) {
+            printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+        } else {
+            print " OK\n";
+        }
         open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
         while (<D>) {
@@ -135 +147 @@
             my ($dir,$ver) = split(/_/,$d);
             chomp($ver);
+            print "Generating build files for $dir ($ver)\n";
             my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
-            print $LOG "DEBUG: distro tuple: ".Dumper($ddir, $dver, $dfam, $dtype, $dsuf)."\n" if ($debug >= 1);
-            print $LOG "DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n" if ($debug >= 1);
+            #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
+            #print "Filtering DDD => $pbdate, TTT => $pbtag, RRR => $pbtag$dsuf, VVV => $pbver\n";
 
             # Filter build files from the less precise up to the most with overloading
@@ -144 +157 @@
             # Find all build files first relatively to PBROOT
             my %bfiles;
-            print $LOG "DEBUG dir: $ENV{'PBCONF'}/$pbpkg\n" if ($debug >= 1);
-            $build{"$ddir-$dver"} = "yes";
-            if (-d "$ENV{'PBCONF'}/$pbpkg/$dtype") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$dtype") || die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$dtype: $!";
+            #print "dir: $ENV{'PBCONF'}/$pkg\n";
+            if (-d "$ENV{'PBCONF'}/$pkg/$dtype") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$dtype" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$dtype: $!");
                 foreach my $f (readdir(BDIR)) {
                     next if ($f =~ /^\./);
-                    $bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dtype/$f";
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$dtype/$f";
                     $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
                 }
                 closedir(BDIR);
-            } elsif (-d "$ENV{'PBCONF'}/$pbpkg/$dfam") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$dfam") || die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$dfam: $!";
+            } elsif (-d "$ENV{'PBCONF'}/$pkg/$dfam") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$dfam" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$dfam: $!");
                 foreach my $f (readdir(BDIR)) {
                     next if ($f =~ /^\./);
-                    $bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dfam/$f";
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$dfam/$f";
                     $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
                 }
                 closedir(BDIR);
-            } elsif (-d "$ENV{'PBCONF'}/$pbpkg/$ddir") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$ddir") || die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$ddir: $!";
+            } elsif (-d "$ENV{'PBCONF'}/$pkg/$ddir") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$ddir" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$ddir: $!");
                 foreach my $f (readdir(BDIR)) {
                     next if ($f =~ /^\./);
-                    $bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir/$f";
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$ddir/$f";
                     $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
                 }
                 closedir(BDIR);
-            } elsif (-d "$ENV{'PBCONF'}/$pbpkg/$ddir-$dver") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$ddir-$dver") || die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$ddir-$dver: $!";
+            } elsif (-d "$ENV{'PBCONF'}/$pkg/$ddir-$dver") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$ddir-$dver" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$ddir-$dver: $!");
                 foreach my $f (readdir(BDIR)) {
                     next if ($f =~ /^\./);
-                    $bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir-$dver/$f";
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$ddir-$dver/$f";
                     $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
                 }
                 closedir(BDIR);
             } else {
-                $build{"$ddir-$dver"} = "no";
+                print "No Build Files found for $ddir-$dver\n";
                 next;
             }
-            print $LOG "DEBUG bfiles: ".Dumper(\%bfiles)."\n" if ($debug >= 1);
+            print "bfiles: ".Dumper(\%bfiles)."\n";
 
             # Get all filters to apply
@@ -189 +201 @@
             my @ffiles;
             my ($ffile0, $ffile1, $ffile2, $ffile3);
-            if (-d "$ENV{'PBCONF'}/$pbpkg/pbfilter") {
-                $ffile0 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dtype.pbf");
-                $ffile1 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dfam.pbf");
-                $ffile2 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir.pbf");
-                $ffile3 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir-$dver.pbf");
+            if (-d "$ENV{'PBCONF'}/$pkg/pbfilter") {
+                $ffile0 = "$ENV{'PBCONF'}/$pkg/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$dtype.pbf");
+                $ffile1 = "$ENV{'PBCONF'}/$pkg/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$dfam.pbf");
+                $ffile2 = "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir.pbf");
+                $ffile3 = "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir-$dver.pbf");
                 push @ffiles,$ffile0 if (defined $ffile0);
                 push @ffiles,$ffile1 if (defined $ffile1);
@@ -210 +222 @@
             my $ptr;
             if (@ffiles) {
-                print $LOG "DEBUG ffiles: ".Dumper(\@ffiles)."\n" if ($debug >= 1);
+                print "ffiles: ".Dumper(\@ffiles)."\n";
                 $config->file(@ffiles);
                 $ptr = $config->get("filter");
-                print $LOG "DEBUG f:".Dumper($ptr)."\n" if ($debug >= 1);
+                print "f:".Dumper($ptr)."\n";
             } else {
                 $ptr = { };
@@ -223 +235 @@
             if (defined $ptr) {
                 foreach my $f (values %bfiles) {
-                    filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
+                    filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pkg,$dtype,$dsuf);
                 }
                 foreach my $f (keys %filteredfiles) {
-                    filter_file($f,$ptr,"$dest/$f",$pbpkg,$dtype,$dsuf);
-                }
-            }
-        }
-        if ($debug >= 0) {
-            my @found;
-            my @notfound;
-            foreach my $b (keys %build) {
-                push @found,$b if ($build{$b} =~ /yes/);
-                push @notfound,$b if ($build{$b} =~ /no/);
-            }
-            print $LOG "Build files generated for ".join(',',@found)."\n";
-            print $LOG "No Build files found for ".join(',',@notfound)."\n";
+                    filter_file($f,$ptr,"$dest/$f",$pkg,$dtype,$dsuf);
+                }
+            }
         }
         close(D);
         # Prepare the dest directory for archive
-        if (-x "$ENV{'PBCONF'}/$pbpkg/pbpkginit") {
-            pbsystem("cd $dest ; $ENV{'PBCONF'}/$pbpkg/pbinit","Executing init script $ENV{'PBCONF'}/$pbpkg/pbinit");
-        }
-
+        if (-x "$ENV{'PBCONF'}/$pkg/pbpkginit") {
+            system("cd $dest ; $ENV{'PBCONF'}/$pkg/pbinit");
+            if ($? == -1) {
+                print "failed to execute: $!\n";
+            } elsif ($? & 127) {
+                printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+            } else {
+                print " $dest\n";
+            }
+        }
         # Archive dest dir
-        chdir "$ENV{'PBDESTDIR'}";
-        # Possibility to look at PBSRC to guess more the filename
-        pbsystem("tar cfphz $pbpkg-$pbver.tar.gz $pbpkg-$pbver","Creating $pbpkg tar files compressed");
+        chdir "$dest/..";
+        print "Creating $pkg tar files (gzip... ";
+        system("tar cfphz $pkg-$pbver.tar.gz $pkg-$pbver");
         if ($? == -1) {
-            print $LOG "failed to execute: $!\n" if ($debug >= 0);
+            print "failed to execute: $!\n";
         } elsif ($? & 127) {
-            printf $LOG "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without' if ($debug >= 0);
-        } else {
-            print $LOG " OK)\n" if ($debug >= 0);
-            print $LOG "Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz\n" if ($debug >= 0);
-            # Keep track of what is generated for build2pkg default
-            open(LAST,"> $ENV{'PBDESTDIR'}/LAST") || die "Unable to create $ENV{'PBDESTDIR'}/LAST";
-            print LAST "$pbver-$pbtag\n";
-            close(LAST);
-        }
-    }
-} elsif ($action =~ /^build2pkg$/) {
-    # Check whether we have a specific version to build
-    my $vertag = shift @ARGV;
-    if (not defined $vertag) {
-        open(LAST,"$ENV{'PBDESTDIR'}/LAST") || die "Unable to open $ENV{'PBDESTDIR'}/LAST\nYou may want to precise as parameter version-tag";
-        $vertag = <LAST>;
-        chomp($vertag);
-        close(LAST);
-    }
-    ($pbver,$pbtag) = split(/-/,$vertag);
-
-    # Get list of packages to build
-    my $ptr = get_pkg();
-    @pkgs = @$ptr;
-
-    # Get the running distro to build on
-    my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init();
-    print $LOG "DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $dsuf))."\n" if ($debug >= 1);
-
-    chdir "$ENV{'PBBUILDDIR'}";
-    foreach my $pbpkg (@pkgs) {
-        my $src="$ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz";
-        print $LOG "Handling source file $src\n" if ($debug >= 0);
-
-        if ($dtype eq "rpm") {
-            # rpm has its own standard build directory
-            my $tmp=`rpmquery --eval '%{_topdir}' 2> /dev/null`;
-            chomp($tmp);
-            $ENV{'PBBUILDDIR'}=$tmp;
-            print $LOG "Working under $ENV{'PBBUILDDIR'}\n" if ($debug >= 0);
-            foreach my $d ('RPMS','SRPMS','SPECS','SOURCES','BUILD') {
-                if (! -d "$ENV{'PBBUILDDIR'}/$d") {
-                pbmkdir_p("$ENV{'PBBUILDDIR'}/$d") || die "Please ensure that you can write into $ENV{'PBBUILDDIR'} to create $d\nSolution: setup _topdir in your ~/.rpmmacros or\nchown the $ENV{'PBBUILDDIR'} directory to your uid";
-                }
-            }
-
-            # We need to first extract the spec file
-            symlink "$src","$ENV{'PBBUILDDIR'}/SOURCES/".basename($src) || die "Unable to symlink $src in $ENV{'PBBUILDDIR'}/SOURCES";
-            my @specfile;
-            @specfile = extract_build_files($src,"$pbpkg-$pbver/pbconf/$ddir-$dver/","$ENV{'PBBUILDDIR'}/SPECS");
-
-            print $LOG "specfile: ".Dumper(\@specfile)."\n" if ($debug >= 1);
-            # set LANGUAGE to check for correct log messages
-            $ENV{'LANGUAGE'}="C";
-            #system("ls -R $ENV{'PBBUILDDIR'}") if ($debug >= 1);
-            foreach my $f (@specfile) {
-                if ($f =~ /\.spec$/) {
-                    pbsystem("rpmbuild -ba $f","Building package with $f");
-                    last;
-                }
-            }
-        } elsif ($dtype eq "tgz") {
-            pbmkdir_p("$ENV{'PBBUILDDIR'}/install") if (! -d "$ENV{'PBBUILDDIR'}/install");
-        } elsif ($dtype eq "ebuild") {
-            pbmkdir_p("$ENV{'PBBUILDDIR'}/portage") if (! -d "$ENV{'PBBUILDDIR'}/portage");
-        } else {
+            printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+        } else {
+            print " OK)\n";
+            print "Under $dest/../$pkg-$pbver.tar.gz\n";
         }
     }
 } else {
-    print $LOG "'$action' is not available\n";
-    syntax();
+    print "'$action' is not available\n";
+    print "Available actions are:\n";
+    print "    cms2build\n";
 }
 
@@ -333 +280 @@
 my %filter=%$ptr;
 my $destfile=shift;
-my $pbpkg=shift;
+my $pkg=shift;
 my $dtype=shift;
 my $dsuf=shift;
 
-print $LOG "DEBUG: From $f to $destfile\n" if ($debug >= 1);
+print "From $f to $destfile\n";
 pbmkdir_p(dirname($destfile)) if (! -d dirname($destfile));
 open(DEST,"> $destfile") || die "Unable to create $destfile";
@@ -345 +292 @@
     foreach my $s (keys %filter) {
         # Process single variables
-        print $LOG "DEBUG filter{$s}: $filter{$s}\n" if ($debug > 1);
+        #print "debug: $filter{$s}\n";
         my $tmp = $filter{$s};
         next if (not defined $tmp);
@@ -353 +300 @@
         # special case for ChangeLog
         } elsif (($tmp =~ /^yes$/) && ($s =~ /^PBLOG$/) && ($line =~ /^PBLOG$/)) {
-            my $p = $defpkgdir{$pbpkg};
-            $p = $extpkgdir{$pbpkg} if (not defined $p);
-            changelog($dtype, $pbpkg, $pbtag, $dsuf, $p, \*DEST);
+            my $p = $defpkgdir{$pkg};
+            $p = $extpkgdir{$pkg} if (not defined $p);
+            changelog($dtype, $pkg, $pbtag, $dsuf, $p, \*DEST);
             $tmp = "";
         }
@@ -365 +312 @@
 close(DEST);
 }
-
-sub get_pkg {
-
-my @pkgs;
-
-# Get packages list
-if (not defined $ARGV[0]) {
-    @pkgs = keys %defpkgdir;
-} elsif ($ARGV[0] =~ /^all$/) {
-    @pkgs = keys %defpkgdir;
-    if (defined %extpkgdir) {
-        my $k = keys %extpkgdir;
-        if (defined $k) {
-            push(@pkgs, keys %extpkgdir);
-        }
-    }
-} else {
-    @pkgs = @ARGV;
-}
-print $LOG "Packages: ".join(',',@pkgs)."\n" if ($debug >= 0);
-return(\@pkgs);
-}
-
-sub extract_build_files {
-
-my $src=shift;
-my $dir=shift;
-my $ddir=shift;
-my @files;
-
-pbsystem("tar xfz $src $dir >/dev/null","Extracting build files");
-opendir(DIR,"$dir") || die "Unable to open directory $dir";
-foreach my $f (readdir(DIR)) {
-    next if ($f =~ /^\./);
-    move("$dir/$f","$ddir") || die "Unable to move $dir/$f to $ddir";
-    print $LOG "mv $dir/$f $ddir\n" if ($debug >= 1);
-    push @files,"$ddir/$f";
-}
-closedir(DIR);
-# Not enough but still a first cleanup
-pbrm_rf("$dir");
-return(@files);
-}
-
-sub syntax {
-
-    print "Syntax: pb [-vhqt][-p project] <action> [<params>...]\n";
-    print "\n";
-    print "-h : This help file\n";
-    print "-q : Quiet mode\n";
-    print "-t : Test mode (not done yet)\n";
-    print "-v : Verbose mode\n";
-    print "\n";
-    print "-p project : Name of the project you're working on\n";
-    print "             (or use the env variable PBPROJ)     \n";
-    print "\n";
-    print "<action> can be:\n";
-    print "\n";
-    print "\tcms2build: Create a tar file of the project under your CMS\n";
-    print "\t           CMS supported are SVN and CVS\n";
-    print "\t           parameters are packages to build\n";
-    print "\t           if not using default list\n";
-    print "\n";
-    print "\tbuild2pkg: Create packages for your running distribution  \n";
-    print "\t           first parameter is version-tag to build\n";
-    print "\t           if not using default version-tag\n";
-    print "\t           following parameters are packages to build\n";
-    print "\t           if not using default list\n";
-    print "\n";
-    print "\n";
-}