in reply to Re: ReadParse and Hash Value
in thread ReadParse and Hash Value
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'});
|
|---|