PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
# Display a list of run-levels and the actions that are run at boot and
# shutdown time for each level
require './inittab-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", "index", 1, 1, 0,
&help_search_link("inittab", "man"));
@inittab = &parse_inittab();
if (@inittab) {
print &ui_form_start("delete.cgi", "post");
@links = ( &select_all_link("d"),
&select_invert_link("d"),
&ui_link("edit_inittab.cgi?new=1", $text{'inittab_new'}) );
print &ui_links_row(\@links);
@tds = ( "width=5" );
print &ui_columns_start(
[ "",
&hlink( $text{ 'inittab_id' }, "id" ),
&hlink( $text{ 'inittab_active' }, "active" ),
&hlink( $text{ 'inittab_runlevels' }, "runlevels" ),
&hlink( $text{ 'inittab_action' }, "action" ),
&hlink( $text{ 'inittab_process' }, "process" ) ],
100, 0, \@tds);
foreach $i (@inittab) {
local @cols;
push(@cols, &ui_link("edit_inittab.cgi?id=".&urlize($i->{'id'}),
&html_escape($i->{'id'})) );
push(@cols, $i->{'comment'} ? "<font color=#ff0000>$text{'no'}</font>"
: $text{'yes'});
local @rls = @{$i->{'levels'}};
push(@cols, @rls ? &html_escape(join(", ", @rls))
: $text{'inittab_none'});
push(@cols, $text{"inittab_".$i->{'action'}} ||
"<tt>".&html_escape($i->{'action'})."</tt>");
push(@cols, &html_escape($i->{'process'}));
print &ui_checked_columns_row(\@cols, \@tds, "d", $i->{'id'});
}
print &ui_columns_end();
print &ui_links_row(\@links);
print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
}
else {
print "<b>$text{'inittab_none2'}</b><p>\n";
print &ui_link("edit_inittab.cgi?new=1", $text{'inittab_new'}),"<p>\n";
}
print &ui_hr();
print "<table width=100%><tr>\n";
print "<form action=apply.cgi>\n";
print "<td><input type=submit value='$text{'inittab_apply'}'></td>\n";
print "<td>$text{'inittab_applymsg'}</td>\n";
print "</form></tr></table><br>\n";
&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`