X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fcommod-email-processor;h=0c16cd196f8e6f53268c6003a9015f8e33f8977e;hb=555fcf1a304c5f1aef9384c3c4d07d5255a0f05d;hp=ec4f222dcedb25abba947181d5d6a554b2ba9aab;hpb=b9ed9d127c61f567c76618b145658763fa7b700e;p=ypp-sc-tools.main.git diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor index ec4f222..0c16cd1 100755 --- a/yarrg/commod-email-processor +++ b/yarrg/commod-email-processor @@ -25,25 +25,6 @@ # are used without permission. This program is not endorsed or # sponsored by Three Rings. -# Emails are: -# multipart/mixed, containing -# text/plain; name="metadata"; charset="utf-8" -# Content-Disposition: inline; filename="metadata" -# ocean\t canonical mixed case -# island\t canonical mixed case -# timestamp\t time_t (non-leap secs since start of 1970 UTC) -# clientname\t may contain spaces -# clientversion\t may contain spaces -# clientfixes\t space-delimited list -# clientspec\t \t\t -# servername\t may contain spaces -# serverversion\t may contain spaces -# serverfixes\t space-delimited list -# serverspec\t \t\t -# application/octet-stream; name="deduped.tsv.gz" -# Content-Disposition: attachment; filename="deduped.tsv.gz" -# - use strict (qw(vars)); use POSIX; @@ -208,7 +189,7 @@ sub main () { pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz'); - print "\n"; +# print "\n"; $dbh->commit(); # select * from ((buy natural join commods) natural join stalls) natural join islands;