#!/bin/sh

if [ a$TaligentSystemDocs = a ]; then
	echo "ERROR: Environment variable 'TaligentSystemDocs' must be set to use"
	echo "       the online documentation system."
	exit
fi

tclsh -args $@ << 'EOF'

set argv [lrange $argv 1 end];

set OnlineBase $env(TaligentSystemDocs)/TaligentOnline
set OnlineBinaries $OnlineBase/bin
regsub -all " " $argv "+" resultTerm;

set safeSuffix "";

while {[regexp {(.*)([^A-Za-z+])(.*)} $resultTerm match resultTerm mchar suffix]} {
  scan $mchar "%c" decimalChar;
  set safeSuffix [format "%%%X%s%s" $decimalChar $suffix $safeSuffix];
}

set mungedString "$resultTerm$safeSuffix";

set searchArgument "http://localhost:2053/1.0/bin/search?term1=$mungedString&term2=&term3=";

exec $OnlineBinaries/browser.startup $searchArgument &;

EOF