$! GEOLOCATE.COM $! $ dbug = 0 $ say = "write sys$output" $ if dbug $ then say "Content-Type: text/plain" $ else say "Content-Type: text/html; charset=utf-8" $ endif $ say "Script-Control: X-buffer-records" $ say "" $ if dbug then set verify $! $ if f$type(WWW_FORM_THIS) .eqs. "" $ then $ if WWW_PATH_INFO .eqs. "" $ then $ lookup = WWW_REMOTE_ADDR $ else $ lookup = f$extract(1,999,WWW_PATH_INFO) $ endif $ else $ lookup = WWW_FORM_THIS $ endif $ if lookup .eqs. "" then lookup = WWW_REMOTE_ADDR $ full = "" $ if f$type(WWW_FORM_FULL) .nes. "" then full = "/full" $ mcr cgi-bin:[000000]geolocate 'lookup' 'full' $ type sys$input: 
$ show symbol geolocate_*
$ say "
" $ say "
" $ say "   " $ say "" $ type sys$input:   full