#!/usr/bin/perl

require './mymodule-lib.pl';

if ( $ENV{'REQUEST_METHOD'} eq 'POST')
{
	
	&ReadParse();

	local $ref =\%in;

	&write_file($config{'info'}, $ref );
	
}

&read_file($config{'info'}, \%read, );
print &ui_print_header(undef, "Configuration Information", "", undef, 1, 1, 0);

#Start of  form to get inputs 
print &ui_form_start("index.cgi", "post" );							
print &ui_table_start("Configurations", undef, 2, ["width=30%"] );

print &ui_table_row("Bandwidth", &ui_textbox( "bandwidth",$read{'bandwidth'} , 80, 0, 40, ) );
print &ui_table_row("Distance", &ui_textbox( "distance",$read{'distance'}, 80, 0, 40, ) );
print &ui_table_row("Size", &ui_textbox( "size",$read{'size'} , 80, 0, 40, ) );
print &ui_table_row("Active",&ui_yesno_radio("active", $read{'active'} ? 1 : 0 , 1 ));


print &ui_table_end();
print &ui_form_end([ [ undef, "submit" ] ]);

print &ui_print_footer("/", $text{'index'});