#!/usr/bin/perl

require '../jcode.pl';
require '../set.pl';
require '../fset.pl';
require '../mimew.pl';

$frmfile = './frm.cgi';
$entfile = './ent.cgi';
$rtnfile = './rtn.cgi';
$logfile = './log.cgi';
$accfile = './acc.cgi';
$mgrfile = '../mgr.cgi';

# ------------------------------------------------------------------------------

	&decode;

	if ($agent) { require '../form.pl'; }
	else { require '../form_m.pl'; }

	&frm_read;
	&frm_split;
	&mgr_read;
	&mgr_split;

	&main;

	print $html;

exit;