X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=deletemailbox;h=9491d4811249bee8c95e732e62b2643441911ca0;hb=1886c7247cb16ed68a78cd5550b152689a465999;hp=cdd6f3224136f0b3001ccc2f3ef279acfb723d5b;hpb=7be10d24b200a2b83669c132f25badf75e2fd8fb;p=bin.git

diff --git a/deletemailbox b/deletemailbox
index cdd6f32..9491d48 100755
--- a/deletemailbox
+++ b/deletemailbox
@@ -82,25 +82,25 @@ $DEBUG = $options{debug};
 for my $mbox (@ARGV) {
      # Delete ~/.offlineimap/Repository-{Local,Remote}Lists/FolderValidity/mbox
      # initialcaps account needed for the account name
-     my $cmd = qq(rm $options{offlineimap}/Repository-Local).
+     my @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Local).
 	  ucfirst($options{account}).
-	       qq(/FolderValidity/$mbox;\n);
-     print $cmd;
-     qx($cmd);
-     $cmd = qq(rm $options{offlineimap}/Repository-Remote).
+	       qq(/FolderValidity/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
+     @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Remote).
 	  ucfirst($options{account}).
-	       qq(/FolderValidity/$options{account}.$mbox;\n);
-     print $cmd;
-     qx($cmd);
+	       qq(/FolderValidity/$options{account}.$mbox));
+     print join(' ',@cmd);
+     system @cmd;
      # Delete ~/.offlineimap/Account-Lists/mbox
-     $cmd =  qq(rm $options{offlineimap}/Account-).ucfirst($options{account}).
-	  qq(/LocalStatus/$mbox;\n);
-     print $cmd;
-     qx($cmd);
+     @cmd = ('rm','-fr',qq($options{offlineimap}/Account-).ucfirst($options{account}).
+	     qq(/LocalStatus/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
      # Delete ~/Mail/mbox
-     $cmd = qq(rm -rf $options{maildir}/$options{account}/$mbox;\n);
-     print $cmd;
-     qx($cmd);
+     @cmd = ('rm','-fr',qq($options{maildir}/$options{account}/$mbox));
+     print join(' ',@cmd);
+     system @cmd;
 }