#!/usr/bin/perl -w

use strict;
use CGI::Pretty qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my %webobj = ( 	  
				'template' => param('template'), 
				'minscale' => param('minscale')
			);
							
print header, start_html;
print<<WEBOBJ;
<form method='get' action='webobj.cgi'>
<b>Web Object</b>
<table border='0'>
	<tr>
		<td align='right'>Template</td>
		<td><input type='text' name='template' value="$webobj{'template'}"></td>
	</tr>
	<tr>
		<td align='right'>Minscale</td>
		<td><input type='text' name='minscale' value="$webobj{'minscale'}"></td>
	</tr>
	<tr><td></td><td colspan='2'><input type='Submit' value='submit'> <input type='reset'></td></tr>
</table>
</form>

<pre>
#
## start web object
WEB
  TEMPLATE "$webobj{'template'}"
  MINSCALE $webobj{'minscale'}
END
# end web object
#
</pre>
WEBOBJ

print end_html;