PAL.C.T MINI SHELL
#!/usr/bin/perl
# Parse inputs from cron_chooser.cgi and update original field
require './virtual-server-lib.pl';
&ReadParse();
&foreign_require("cron", "cron-lib.pl");
# Parse inputs
$job = { };
&cron::parse_times_input($job, \%in);
$when = &cron::when_text($job, 1);
# Output Javascript to set main fields
&popup_header($text{'cron_title'});
print "<script>\n";
print "top.opener.hfield.value = \"",
"e_escape(join(" ", $job->{'mins'}, $job->{'hours'}, $job->{'days'},
$job->{'months'}, $job->{'weekdays'}), '"'),
"\";\n";
print "top.opener.cfield.value = \"$when\";\n";
print "window.close();\n";
print "</script>\n";
&popup_footer();
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`