auto mv to working directory
authorPaul Mangan <paul@claws-mail.org>
Sun, 21 Oct 2001 09:37:23 +0000 (09:37 +0000)
committerPaul Mangan <paul@claws-mail.org>
Sun, 21 Oct 2001 09:37:23 +0000 (09:37 +0000)
tools/README
tools/filter_conv.pl

index 22e4b49..47a6af7 100644 (file)
@@ -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
 
index fa3e6c8..f06b379 100644 (file)
 #  * 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;