X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fcommod-email-processor;h=e65b2b6a91fcfe2237f6d8c123e0891a0ec5cebd;hb=19669922dd2393c23371ee1532824e528b897de0;hp=3f802ad58f71653ddf77b59a06e06e6658d37634;hpb=e722e7f00fbf26f0c310ae84a5a3b1b0f8b4ed39;p=ypp-sc-tools.web-live.git

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index 3f802ad..e65b2b6 100755
--- a/yarrg/commod-email-processor
+++ b/yarrg/commod-email-processor
@@ -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;
 
@@ -195,8 +195,9 @@ sub main () {
     pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz');
 
 #    print "\n";
-    $dbh->commit();
+    db_chkcommit(0);
 
+    # Warning!  Below runes are bogus.  Do not use NATURAL JOIN!
     # select * from ((buy natural join commods) natural join stalls) natural join islands;
     # select * from ((sell natural join commods) natural join stalls) natural join islands;