#!/usr/bin/wish
-# helper program for OCR in PCTB upload client
+# helper program for OCR in yarrg upload client
# This is part of ypp-sc-tools, a set of third-party tools for assisting
# players of Yohoho Puzzle Pirates.
# 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 '' . .
# returns 0, 1, 2 for none, anon, with pirate name
global env
- if {![info exists env(YPPSC_PCTB_DICT_SUBMIT)]} { debug a; return 0 }
- if {![string compare 0 $env(YPPSC_PCTB_DICT_SUBMIT)]} { debug b; return 0 }
+ if {![info exists env(YPPSC_YARRG_DICT_SUBMIT)]} { debug a; return 0 }
+ if {![string compare 0 $env(YPPSC_YARRG_DICT_SUBMIT)]} { debug b; return 0 }
if {![info exists env(YPPSC_PIRATE)]} { return 1 }
if {![info exists env(YPPSC_OCEAN)]} { return 1 }
}
lappend pl entry [format_database_entry/$reqkind $im $def]
- set url $env(YPPSC_PCTB_DICT_SUBMIT)
+ set url $env(YPPSC_YARRG_DICT_SUBMIT)
append url dictionary-update-receiver
set query [eval ::http::formatQuery $pl]