I have created from, I want to write the value from the form to the file in the same order which the from submits. I trying to write simple module in webmin to get some values from web browser and write into a file

#!/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{'bandw
+idth'} , 80, 0, 40, ) );
print &ui_table_row("Distance", &ui_textbox( "distance",$read{'distanc
+e'}, 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'});
[download]

First

I have created from, I want to write the value from the form to the file in the same order which the from submits. I trying to write simple module in webmin to get some values from web browser and write into a file

#!/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{'bandw
+idth'} , 80, 0, 40, ) );
print &ui_table_row("Distance", &ui_textbox( "distance",$read{'distanc
+e'}, 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'});
[download]