Changeset 9 in ProjectBuilder for devel/pb/lib/common.pm

Timestamp:

Jul 30, 2007, 1:22:32 AM (17 years ago)

Author:

Bruno Cornec

Message:

cms2build begins to export

File:

• devel/pb/lib/common.pm (modified) (4 diffs)

devel/pb/lib/common.pm

@@ -7 +7 @@
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(set_env);
+@EXPORT = qw(env_init);
 
 use lib qw (lib);
@@ -13 +13 @@
 use strict;
 use File::Basename;
-use ExtUtils::Command;
+use File::Path;
 use File::Temp qw /tempdir/;
 use vars qw (%defpkgdir %extpkgdir %version);
@@ -20 +20 @@
 $ENV{'PBCONF'} = "/etc/pb";
 
-sub set_env {
+sub env_init {
 
 my $proj=shift;
@@ -85 +85 @@
 #
 $ENV{'PBTOPDIR'}="$ENV{'PBROOT'}/../delivery";
-$ENV{'PBDESTDIR'}=$ENV{'PBTOPDIR'}."/".$ENV{'PBVER'}."-".$ENV{'PBTAG'};
-mkpath $ENV{'PBDESTDIR'};
+$ENV{'PBDESTDIR'}="$ENV{'PBTOPDIR'}/$ENV{'PBVER'}-$ENV{'PBTAG'}";
+pbrm_rf($ENV{'PBDESTDIR'}) if (-d "$ENV{'PBDESTDIR'}");
+pbmkdir_p($ENV{'PBDESTDIR'}) || die "Unable to recursively create $ENV{'PBDESTDIR'}";
 
 umask 0022;
 return($proj);
 }
+
+sub pbmkdir_p {
+    my @dir = @_;
+    my $ret = mkpath(@dir, 0, 0755);
+    return($ret);
+}
+
+sub pbrm_rf {
+    my @dir = @_;
+    my $ret = rmtree(@dir, 0, 0);
+    return($ret);
+}
+
 1;