michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add CGI args parser

Browse Source
This commit is contained in:
Jamie Cameron
2009-06-09 00:22:08 +00:00
parent b5514de8d4
commit c06054ec40
2 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mailcap/cgi_args.pl Normal file
View File

@@ -0,0 +1,12 @@
do 'mailcap-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit.cgi') {
my @mailcap = &list_mailcap();
return @mailcap ? 'index='.$mailcap[0]->{'index'} : 'new=1';
}
return undef;
}

13
mailcap/index.cgi
View File

@@ -7,9 +7,10 @@ require './mailcap-lib.pl';
@mailcap = &list_mailcap();
if (@mailcap) {
print &ui_form_start("delete.cgi", "post");
print &select_all_link("d"),"\n";
print &select_invert_link("d"),"\n";
print "<a href='edit.cgi?new=1'>$text{'index_add'}</a><br>\n";
@links = ( &select_all_link("d"),
&select_invert_link("d"),
"<a href='edit.cgi?new=1'>$text{'index_add'}</a>" );
print &ui_links_row(\@links);
@tds = ( "width=5" );
print &ui_columns_start([
@@ -18,7 +19,7 @@ if (@mailcap) {
$text{'index_program'},
$text{'index_cmt'},
$text{'index_enabled'},
], "width=100%", 0, \@tds);
], 100, 0, \@tds);
foreach $m (@mailcap) {
print &ui_checked_columns_row([
"<a href='edit.cgi?index=$m->{'index'}'>$m->{'type'}</a>",
@@ -30,9 +31,7 @@ if (@mailcap) {
}
print &ui_columns_end();
print &select_all_link("d"),"\n";
print &select_invert_link("d"),"\n";
print "<a href='edit.cgi?new=1'>$text{'index_add'}</a><br>\n";
print &ui_links_row(\@links);
print &ui_form_end([ [ "delete", $text{'index_delete'} ],
undef,
[ "disable", $text{'index_disable'} ],