From ee472c4f764701bbc78f128622f01cb916f0641a Mon Sep 17 00:00:00 2001 From: J Pipkin Date: Tue, 19 Feb 2013 13:33:30 -0600 Subject: support env vars $TMP and $OUTPUT, and clean some excess spaces at the ends of some lines --- sboclean | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'sboclean') diff --git a/sboclean b/sboclean index c9ee8c0..52708ed 100755 --- a/sboclean +++ b/sboclean @@ -78,7 +78,7 @@ sub remove_stuff($) { } sub clean_c32() { - my $dir = '/tmp'; + my $dir = $tmpd; opendir(my $dh, $dir); FIRST: while (my $ls = readdir $dh) { next FIRST unless $ls =~ /^package-.+-compat32$/; @@ -89,7 +89,14 @@ sub clean_c32() { remove_stuff $config{SBO_HOME} .'/distfiles' if $clean_dist; if ($clean_work) { - remove_stuff '/tmp/SBo'; + my $tsbo = $env_tmp ? $env_tmp : "$tmpd/SBo"; + if ($tsbo =~ qr#^/tmp(|/)$# && !$interactive) { + warn "This will remove the entire contents of /tmp\n"; + print "Proceed? [y] "; + remove_stuff $tsbo if =~ /^[yY\n]/; + } else { + remove_stuff $tsbo; + } clean_c32; } -- cgit v1.2.3