Changeset 739 in ProjectBuilder

Timestamp:

Mar 18, 2009, 1:45:23 AM (15 years ago)

Author:

Bruno Cornec

Message:

Adds clean feature

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -232 +232 @@
 
 Deliver the Web site content to the target server using ssh.
+
+=item B<clean>
+
+Purge the build and delivery directories related to the current project
 
 =back 
@@ -444 +448 @@
     # Nothing to do - already done in pb_env_init
 } elsif ($action =~ /^clean$/) {
-    # TBC
+    pb_clean();
 } elsif ($action =~ /^announce$/) {
     # For announce only. Require avoids the systematic load of these modules
@@ -1732 +1736 @@
 
 
+sub pb_clean {
+
+    my $sleep=10;
+    die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
+    die "Unable to get env var PBBUILDDIR" if (not defined $ENV{'PBBUILDDIR'});
+    pb_log(0,"We will now wait $sleep s before removing both directories\n$ENV{'PBDESTDIR'} and $ENV{'PBBUILDDIR'}.\nPlease break me if this is wrong\n");
+    sleep $sleep;
+    pb_rm_rf($ENV{'PBDESTDIR'});
+    pb_rm_rf($ENV{'PBBUILDDIR'});
+}
+
 sub pb_newver {