chiark / gitweb /
Do referential integrity check on every incoming update
[ypp-sc-tools.db-live.git] / yarrg / commod-email-processor
index 79db83d..8acf4c1 100755 (executable)
@@ -39,7 +39,7 @@ BEGIN {
 use Commods;
 use CommodsDatabase;
 
-setlocale(LC_CTYPE, "en_GB.UTF-8");
+set_ctype_utf8();
 my $parser= new MIME::Parser;
 our $entity;
 
@@ -134,7 +134,7 @@ sub main () {
                 "SELECT stallid FROM stalls
                        WHERE islandid == $islandid AND stallname == ?
                 ");
-    $sth_insert{'commods'}= $dbh->prepare(
+    $sth_insert{'commod'}= $dbh->prepare(
                 "INSERT OR IGNORE
                         INTO commods
                         (commodname) VALUES (?)
@@ -195,7 +195,7 @@ sub main () {
     pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz');
 
 #    print "\n";
-    $dbh->commit();
+    db_chkcommit();
 
     # select * from ((buy natural join commods) natural join stalls) natural join islands;
     # select * from ((sell natural join commods) natural join stalls) natural join islands;