PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a list of MySQL runtime variables for editing
require './mysql-lib.pl';
$access{'perms'} == 1 || &error($text{'vars_ecannot'});
&ui_print_header(undef, $text{'vars_title'}, "", "vars");
&ReadParse();
%d = map { $_, 1 } split(/\0/, $in{'d'});
print &text('vars_desc', 'edit_cnf.cgi'),"<p>\n";
# Work out which ones can be edited
%canedit = map { $_->[0], 1 } &list_system_variables();
# Show search form
print &ui_form_start("list_vars.cgi");
print "<b>$text{'vars_search'}</b> ",
&ui_textbox("search", $in{'search'}, 20)," ",
&ui_submit($text{'vars_ok'});
print &ui_form_end();
$d = &execute_sql($master_db, "show variables".
($in{'search'} ? " like '%".quotemeta($in{'search'})."%'" : ""));
if (@{$d->{'data'}}) {
print &ui_form_start("save_vars.cgi");
print &ui_hidden("search", $in{'search'});
@tds = ( "width=5" );
print &ui_columns_start([ "",
$text{'vars_name'},
$text{'vars_value'} ], 100, 0, \@tds);
foreach $v (@{$d->{'data'}}) {
if (!$canedit{$v->[0]}) {
# Cannot edit, so just show value
print &ui_columns_row(
[ "", $v->[0], &html_escape($v->[1]) ], \@tds);
}
elsif ($d{$v->[0]}) {
# Editing now
print &ui_columns_row([
"->", "<a name=$v->[0]>$v->[0]</a>",
&ui_textbox("value_".$v->[0], $v->[1], 40)
], \@tds);
}
else {
# Can edit
print &ui_checked_columns_row([
"<a name=$v->[0]>$v->[0]</a>",
&html_escape($v->[1])
], \@tds, "d", $v->[0]);
}
}
print &ui_columns_end();
print &ui_form_end([ [ "edit", $text{'vars_edit'} ],
%d ? ( [ "save", $text{'save'} ] ) : ( ) ]);
}
else {
print "<b>",$in{'search'} ? $text{'vars_none2'}
: $text{'vars_none'},"</b><p>\n";
}
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`