changecom({/**}, {**/})
define({ContentDiversions}, {2})
define({mhtml_gif_dir}, {gifs})
define({mhtml_dir}, {/var/www/mhtml})
define({http_request_method},getenv({REQUEST_METHOD}))
define({mhtml_asciify},{patsubst($1,{%\([0-9a-fA-F]+\)}, {{}format({%c},eval(0x\1))})})
define({mhtml_query_string}, mhtml_asciify(getenv(QUERY_STRING)))
define({mhtml_request_error}, {{divert}
Error: $1
{m4exit(1)}})
define({mhtml_getparam}, {patsubst(mhtml_query_string, {^\(.*&\)*}$1{=\([^&]+\)\(&.*\)*$}, {\2})})
define({env_request_uri},getenv({REQUEST_URI}))
define({env_script_name},getenv({SCRIPT_NAME}))
define({mhtml_base_uri}, patsubst(env_script_name, {\([^\?]+\)\(\?.*\)*$}, {\1}))
define({env_http_user_agent},getenv({HTTP_USER_AGENT}))
define({mhtml_directory}, {/var/www/mhtml/})
ifdef({mhtml_script_filename}, ,
{define(mhtml_script_filename, getenv(SCRIPT_FILENAME))})
ifdef({mhtml_script_basename}, ,
{define(mhtml_script_basename,
patsubst(mhtml_script_filename, {.*/\([^/]+\)$}, \1))})
ifdef({mhtml_pagetype}, ,{define({mhtml_pagetype}, mhtml_getparam({pagetype}))})
dnl divert{initial mhtml_pagetype} = mhtml_pagetype
divert(-1)
ifelse(mhtml_pagetype, {text}, {},
mhtml_pagetype, {frames}, {},
mhtml_pagetype, {bannerframe}, {},
mhtml_pagetype, {contentframe}, {},
mhtml_pagetype, {tables}, {},
eval(index(env_http_user_agent,{Lynx}) >= 0), 1,
{define({mhtml_pagetype}, {text})},
eval(index(env_http_user_agent,{Mosaic}) >= 0), 1,
{define({mhtml_pagetype}, {text})},
{define({mhtml_pagetype}, {tables})}
)
define({mhtml_pagetype}, translit(mhtml_pagetype, { }))
dnl divert{final mhtml_pagetype} = mhtml_pagetype
divert(-1)
define({include_pagetype_macros},{
ifelse(
mhtml_pagetype, {frames},
{define({mhtml_page_directory}, {mhtml_directory{}frames.m4})},
mhtml_pagetype, {bannerframe},
{define({mhtml_page_directory}, {mhtml_directory{}bannerframe.m4})},
mhtml_pagetype, {contentframe},
{define({mhtml_page_directory}, {mhtml_directory{}contentframe.m4})},
mhtml_pagetype, {tables},
{define({mhtml_page_directory}, {mhtml_directory{}tables.m4})},
mhtml_pagetype, {text},
{define({mhtml_page_directory}, {mhtml_directory{}text.m4})},
{define({mhtml_page_directory}, {mhtml_directory{}text.m4})}
)
include(mhtml_page_directory)
})
dnl divert
dnl
dnl {env_request_uri} = env_request_uri
dnl {env_http_user_agent} = env_http_user_agent
dnl {mhtml_directory} = mhtml_directory
dnl {mhtml_pagetype} = mhtml_pagetype
dnl {mhtml_page_directory} = mhtml_page_directory
dnl {mhtml_script_filename} = mhtml_script_filename
dnl {mhtml_script_basename} = mhtml_script_basename
dnl {mhtml_base_uri} = mhtml_base_uri
dnl
dnl divert(-1)
define({colorred}, {"#B1383B"})
define({colorblue}, {"#050c87"})
define({colorblack}, {"#000000"})
define({colorwhite}, {"#ffffff"})
define({colorgray}, {"#DEDEDE"})
define({spadegif}, {"http://www.okbridge.com/gifs/s.gif"})
define({heartgif}, {"http://www.okbridge.com/gifs/h.gif"})
define({diamondgif}, {"http://www.okbridge.com/gifs/d.gif"})
define({clubgif}, {"http://www.okbridge.com/gifs/c.gif"})
define({spadesuit}, {
})
define({heartsuit}, {
})
define({diamondsuit}, {
})
define({clubsuit}, {
})
define({BodyFont},
{})
define({SideBarFont},
{})
define({_Logo},
{ | })
define({BeginFrames},
{})
define({BeginBody}, {BodyFont})
define({EndBody}, {})
define({html_header},
{
{$1}
})
define({BeginPage},
{include_pagetype_macros
html_header({$1})
define({PageTitleLeft}, {})
define({PageTitleRight}, {})
ifdef({BaseName},,{define({BaseName}, {$3})}) })
define({EndPage},
{