PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
# Display sshd option categories
require './sshd-lib.pl';
# Check if config file exists
if (!-r $config{'sshd_config'}) {
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
print &text('index_econfig', "<tt>$config{'sshd_config'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
&ui_print_footer("/", $text{"index"});
exit;
}
# Check if sshd exists
if (!&has_command($config{'sshd_path'})) {
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
print &text('index_esshd', "<tt>$config{'sshd_path'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
&ui_print_footer("/", $text{"index"});
exit;
}
# Check if sshd is the right version
%version = &get_sshd_version();
if (!%version) {
# Unknown version
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
print &text('index_eversion', "<tt>$config{'sshd_path'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name",
"<tt>$config{'sshd_path'} -h</tt>",
"<pre>$out</pre>"),"<p>\n";
&ui_print_footer("/", $text{"index"});
exit;
}
&write_file("$module_config_directory/version", \%version);
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
&help_search_link("ssh", "man", "doc", "google"), undef, undef,
&text('index_version', $version{'full'}));
# Display icons for options
foreach $i ('users', 'net', 'access', 'misc') {
push(@links, "edit_$i.cgi");
push(@titles, $text{$i.'_title'});
push(@icons, "images/$i.gif");
}
if (-r $config{'client_config'}) {
push(@links, "list_hosts.cgi");
push(@titles, $text{'hosts_title'});
push(@icons, "images/hosts.gif");
}
push(@links, "edit_sync.cgi");
push(@titles, $text{'sync_title'});
push(@icons, "images/sync.gif");
push(@links, "edit_keys.cgi");
push(@titles, $text{'keys_title'});
push(@icons, "images/keys.gif");
push(@links, "edit_manual.cgi");
push(@titles, $text{'manual_title'});
push(@icons, "images/manual.gif");
&icons_table(\@links, \@titles, \@icons, 4);
# Check if sshd is running
$pid = &get_sshd_pid();
print &ui_hr();
print &ui_buttons_start();
if ($pid) {
# Running .. offer to apply changes and stop
print &ui_buttons_row("apply.cgi",
$text{'index_apply'},
$config{'restart_cmd'} ?
&text('index_applymsg2', "<tt>$config{'restart_cmd'}</tt>") :
$text{'index_applymsg'});
print &ui_buttons_row("stop.cgi",
$text{'index_stop'}, $text{'index_stopmsg'});
}
else {
# Not running .. offer to start
print &ui_buttons_row("start.cgi", $text{'index_start'},
$text{'index_startmsg'});
}
print &ui_buttons_end();
&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`