ids_to_dbdump is still needed by the mailbot

[pciids.git] / scripts / mailbot

diff --git a/scripts/mailbot b/scripts/mailbot
index 8119f92bba94de0daa8abda36d64409e3848bfa7..8a862b690a6b4d1d0cc45be7a30f893b35f0a2e0 100755 (executable)
--- a/scripts/mailbot
+++ b/scripts/mailbot
@@ -99,6 +99,7 @@ if (!$patch) {
 }
 
 $home = "$ENV{HOME}/";
+my $scripts = "$home/ids/perl/scripts";
 $tprefix = "${home}tmp/mbot-$$";
 # Little hack to stop spam: ignore everything from people not already in database
 $hasAuth->execute( $author );
@@ -196,11 +197,11 @@ sub process
                } else {
                        print LOG "Patch succeeded.\n";
                        print LOG "Parsing patched file.\n";
-                       print LOG `$home/bin/ids_to_dbdump <$orig 2>&1 >orig.db.unsorted`;
+                       print LOG `$scripts/ids_to_dbdump <$orig 2>&1 >orig.db.unsorted`;
                        $? && error("Error parsing original ID database");
                        print LOG `sort -k1 <orig.db.unsorted >orig.db`;
                        $? && error("Error sorting original ID database");
-                       print LOG `$home/bin/ids_to_dbdump <pci.ids 2>&1 >new.db.unsorted`;
+                       print LOG `$scripts/ids_to_dbdump <pci.ids 2>&1 >new.db.unsorted`;
                        $? && error("Error parsing the patched pci.ids file");
                        print LOG `sort -k1 <new.db.unsorted >new.db`;
                        $? && error("Error sorting the patched pci.ids file");