PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
# Display commands available for execution
require './custom-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1);
@cust = grep { &can_run_command($_) } &list_commands();
@cust = &sort_commands(@cust);
# Build links
@links = ( );
if ($access{'edit'}) {
push(@links,&ui_link("edit_cmd.cgi?new=1",$text{'index_create'}));
push(@links,&ui_link("edit_file.cgi?new=1",$text{'index_ecreate'}));
push(@links,&ui_link("edit_sql.cgi?new=1",$text{'index_screate'}));
}
if (!@cust) {
print "<b>$text{'index_none'}</b> <p>\n";
}
elsif ($config{'display_mode'} == 0) {
# Show command buttons
print &ui_links_row(\@links);
@grid = ( );
$form = 0;
for($i=0; $i<@cust; $i++) {
$c = $cust[$i];
@a = @{$c->{'args'}};
local $html;
if ($c->{'edit'}) {
$html .= &ui_form_start("view.cgi");
}
elsif ($c->{'sql'}) {
$html .= &ui_form_start("sql.cgi");
}
else {
local @up = grep { $_->{'type'} == 10 } @a;
if (@up) {
# Has upload fields
@ufn = map { $_->{'name'} } @up;
$upid = time().$$;
$html .= &ui_form_start("run.cgi?id=$upid",
"form-data", undef,
&read_parse_mime_javascript($upid, \@ufn));
}
elsif (@a) {
$html .= &ui_form_start("run.cgi", "post");
}
else {
$html .= &ui_form_start("run.cgi");
}
}
$html .= &ui_hidden("id", $c->{'id'});
$html .= &ui_table_start(undef, undef, 2, [ "width=30%" ]);
($got_submit) = grep { $_->{'type'} == 16 } @a;
if (!$got_submit) {
$html .= &ui_table_row(undef,
&ui_submit($c->{'desc'}), 2, []);
}
if ($c->{'html'}) {
$html .= &ui_table_row(undef,
&filter_javascript($c->{'html'}), 2, []);
}
foreach $a (@a) {
$html .= &ui_table_row(&html_escape($a->{'desc'}),
&show_parameter_input($a, $formno));
}
if ($access{'edit'}) {
if ($c->{'edit'}) {
$link = &ui_link("edit_file.cgi?id=$c->{'id'}",$text{'index_fedit'});
}
elsif ($c->{'sql'}) {
$link = &ui_link("edit_sql.cgi?id=$c->{'id'}",$text{'index_sedit'});
}
else {
$link = &ui_link("edit_cmd.cgi?id=$c->{'id'}",$text{'index_edit'});
}
$html .= &ui_table_row(undef,
&ui_links_row([ $link ]), 2);
}
$html .= &ui_table_end();
$html .= &ui_form_end();
push(@grid, $html);
$form++;
}
print &ui_grid_table(\@grid, 2, 100, [ "width=50%", "width=50%" ]);
}
else {
# Just show table of commands
print &ui_links_row(\@links);
@tds = ( "width=30%", "width=60%", "width=10% nowrap" );
print &ui_columns_start([
$text{'index_cmd'},
$text{'index_desc'},
$text{'index_acts'},
], 100, 0, \@tds);
foreach $c (@cust) {
@cols = ( );
local @links = ( );
if ($access{'edit'}) {
local $e = $c->{'edit'} ? "edit_file.cgi" :
$c->{'sql'} ? "edit_sql.cgi" :
"edit_cmd.cgi";
push(@links, "<a href='$e?id=$c->{'id'}'>".
"$text{'index_ed'}</a>");
}
if ($c->{'edit'} && !@{$c->{'args'}}) {
# Open file editor directly, as file is known
push(@cols, &ui_link("view.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
push(@links, &ui_link("view.cgi?id=$c->{'id'}",$text{'index_acted'}));
}
elsif ($c->{'sql'} && !@{$c->{'args'}}) {
# Execute SQL directorly, as no args
push(@cols, &ui_link("sql.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
push(@links, &ui_link("sql.cgi?id=$c->{'id'}",$text{'index_actrun'}));
}
elsif ($c->{'sql'}) {
# Link to SQL query form
push(@cols, &ui_link("sqlform.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
push(@links, &ui_link("sqlform.cgi?id=$c->{'id'}",$text{'index_actsql'}));
}
elsif (!@{$c->{'args'}}) {
# Link direct to execute page
push(@cols, &ui_link("run.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
push(@links, &ui_link("run.cgi?id=$c->{'id'}",$text{'index_actrun'}));
}
else {
# Link to parameters form
push(@cols, &ui_link("form.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
push(@links, &ui_link("form.cgi?id=$c->{'id'}",$text{'index_actform'}));
}
push(@cols, $c->{'html'});
push(@cols, &ui_links_row(\@links));
print &ui_columns_row(\@cols, \@tds);
}
print &ui_columns_end();
}
print &ui_links_row(\@links);
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`