#!/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.
# 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]