mirror of
https://github.com/webmin/webmin.git
synced 2025-08-17 19:06:28 +00:00
35 lines
709 B
Perl
Executable File
35 lines
709 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Show all Foobar webserver websites
|
|
|
|
require 'foobar-lib.pl';
|
|
|
|
ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1);
|
|
|
|
# Build table contents
|
|
my @sites = list_foobar_websites();
|
|
my @table = ( );
|
|
foreach my $s (@sites) {
|
|
push(@table, [ "<a href='edit.cgi?domain=".urlize($s->{'domain'}).
|
|
"'>".html_escape($s->{'domain'})."</a>",
|
|
html_escape($s->{'directory'})
|
|
]);
|
|
}
|
|
|
|
# Show the table with add links
|
|
print ui_form_columns_table(
|
|
undef,
|
|
undef,
|
|
0,
|
|
[ [ 'edit.cgi?new=1', $text{'index_add'} ] ],
|
|
undef,
|
|
[ $text{'index_domain'}, $text{'index_directory'} ],
|
|
100,
|
|
\@table,
|
|
undef,
|
|
0,
|
|
undef,
|
|
$text{'index_none'},
|
|
);
|
|
|
|
ui_print_footer('/', $text{'index'});
|