PAL.C.T MINI SHELL
do 'init-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_action.cgi') {
# Link to init script
return 'none' if ($init_mode ne 'init');
my @iacts = &list_actions();
my @ac = split(/\s+/, $iacts[0]);
return '0+'.$ac[0];
}
elsif ($cgi eq 'edit_hostconfig.cgi') {
return 'none' if ($init_mode ne 'osx');
my @hconf_set = &hostconfig_settings();
return '0+'.$hconf_set[0][0];
}
elsif ($cgi eq 'edit_rc.cgi') {
return 'none' if ($init_mode ne 'rc');
my @rcs = &list_rc_scripts();
return 'name='.&urlize($rcs[0]->{'name'});
}
elsif ($cgi eq 'reboot.cgi' || $cgi eq 'shutdown.cgi') {
# Link *without* confirm parameter
return '';
}
return undef;
}
�
y���~�or�5�J�={��E��e�u磝Qk��ᯘG{�?���+�]������ן�?w�M3X^��歌>{�7پ�K�>�o��n�\����j�y��R���g/�=��f�O��r�o��NV�v��~�Y+��NG�u���Ý����HW��y�w�[eQ�ʨ�S�b��>������>�}G�mx[o[<��{���Ϯ_��qF���vMIEND�B`�