From b2a0ef8f63b9bdf08403cc741ea1ee1f5d56f8ea Mon Sep 17 00:00:00 2001
From: Paul Mangan <paul@claws-mail.org>
Date: Sun, 21 Oct 2001 09:37:23 +0000
Subject: [PATCH] auto mv to working directory

---
 tools/README         |  5 ++---
 tools/filter_conv.pl | 11 ++++++++---
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/tools/README b/tools/README
index 22e4b49d4..47a6af7dc 100644
--- a/tools/README
+++ b/tools/README
@@ -13,7 +13,7 @@
 
   			eud2gc.py <Eudora-addressbook-file> <Gnomecard-file>
 
-  Be carefull not to overwrite your original GnomeCard.gcrd!
+  Be careful not to overwrite your original GnomeCard.gcrd!
   (But of course you might want to add the converted stuff to it)
 
   Copyleft some time long ago (around 1999?) by Jeroen Versteeg
@@ -31,8 +31,7 @@
 
   HOW TO USE IT
 
-  Move 'filter_conv.pl' to the $HOME/.sylpheed directory.
-  From the $HOME/.sylpheed directory, issue the command:
+  Issue the following command:
 
         perl filter_conv.pl
 
diff --git a/tools/filter_conv.pl b/tools/filter_conv.pl
index fa3e6c8a3..f06b379f7 100644
--- a/tools/filter_conv.pl
+++ b/tools/filter_conv.pl
@@ -17,13 +17,18 @@
 #  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #  *
 
+chdir;
+chdir '.sylpheed' || die("You don't appear to have Sylpheed installed");
 
-$INPUT = open (FILTERRC, "<filterrc");
+$INPUT = open (FILTERRC, "<filterrc") || die("Can't find your old filter rules");
 @input_file = <FILTERRC>;
-$WRITE_THIS = "";
 close FILTERRC;
 
+$WRITE_THIS = "";
+$COUNT      = "0";
+
 foreach $input_file (@input_file) {
+$COUNT++;
 @split_lines = split("\t", $input_file);
 if (($split_lines[3]) && ($split_lines[0] eq "To")) {
 $WRITE_THIS .= "to_or_cc match \"$split_lines[1]\"";
@@ -47,9 +52,9 @@ $WRITE_THIS .= "\n";
 }
 
 open (FILTERINGRC, ">filteringrc");
-
 print FILTERINGRC $WRITE_THIS;
 close FILTERINGRC;
 
+print "\nYou have sucessfully converted $COUNT filtering rules\n\n";
 exit;
 
-- 
2.25.1