X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=deletemailbox;fp=deletemailbox;h=9491d4811249bee8c95e732e62b2643441911ca0;hb=746e82b0f6b436d9503c34e47684a46cb004d59e;hp=a9b4233cedad91d73aab39215b4d799885048b6f;hpb=1a8f9173abd091c284082cccbb41bfb5763c33ad;p=bin.git

diff --git a/deletemailbox b/deletemailbox
index a9b4233..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 -f $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 -f $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 -f $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;
 }