test.cgi

readme.md

#!/usr/bin/perl
use WebminCore;

init_config();

ui_print_header(undef, "Test", "", undef, 1, 1, 0, undef, undef, undef, undef );

print ui_hidden_start('Tasks 1', 'hidden_1',1 );
print ui_columns_start([ "Virtual Device", "State", "Read", "Write", "Cksum" ]);
for (my $i = 0; $i < 10; $i++)
{
print ui_columns_row(["<a href='config-vdev.cgi?pool=".$i.'&dev='.$key."'>|_".$i."", $i, $i, $i, $i]);
}
print ui_columns_end();
print ui_hidden_end('hidden_1');

print ui_hidden_start('Tasks 2', 'hidden_2',1 );
print ui_columns_start([ "Virtual Device", "State", "Read", "Write", "Cksum" ]);
for (my $i = 0; $i < 10; $i++)
{
print ui_columns_row(["<a href='config-vdev.cgi?pool=".$i.'&dev='.$key."'>|_".$i."", $i, $i, $i, $i]);
}
print ui_columns_end();
print ui_hidden_end('hidden_2');

Output of test.cgi