unlink $mid or $!==&ENOENT or die "$mid $!";
}
+$o{'instance'}= $ENV{'YARRG_INSTANCE'};
my $mcontent= MIME::Entity->build(To => 'yarrg-commod-updates',
- Subject => $pwd,
+ Subject => $ENV{'YARRG_INSTANCE'},
Type => 'multipart/mixed',
Boundary => '=',
'Message-ID' => $mid,
const char *gziplevel /* 0 for read; may be 0, or "-1" etc. */) {
int zfd= open(zpath, oflags, 0666);
- if (!zfd) return errno;
+ if (zfd<0) return errno;
int pipefds[2];
sysassert(! pipe(pipefds) );
else if (IS("--dict-read-only")) o_flags &= (~ffs_dict | ff_dict_fetch);
else if (IS("--dict-anon")) o_flags &= ~ff_dict_pirate;
else if (IS("--dict-submit")) o_flags |= ff_dict_fetch|ff_dict_submit;
+ else if (IS("--dict-no-update")) o_flags &= ~ff_dict_fetch; // testing
else if (IS("--raw-tsv")) outputmode(omk_raw,0);
else if (IS("--upload")) outputmode_uploads();
else if (IS("--upload-yarrg")) outputmode(omk_upload_yarrg,arg+2);
# sponsored by Three Rings.
-# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict/pctb /home/ftp/users/ijackson/pctb
+# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict/yarrg /home/ftp/users/ijackson/yarrg
-# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict-test/pctb /home/ftp/users/ijackson/pctb/test
+# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict-test/yarrg /home/ftp/users/ijackson/yarrg/test
# ./dictionary-manager --approve-updates '' . .