include "global.tbh" declare sub login_action(pass_varified as ok_ng) declare session as string(SESSION_LEN) declare pass as ok_ng ?>