- &Header::openbox('100%', 'left', $Lang::tr{'reboot schedule'});
- my %checked=();
- my $reboot_at = $default_time;
- my $days = '';
-
- #decode the shutdown line stored in crontab
- #get the line
- open(FILE, "/usr/local/bin/ipfirereboot cron?|");
- my $schedule = <FILE>;
- close (FILE);
-
- if ($schedule) { # something exist
- $schedule =~ /(\d+) (\d+) \* \* ([1234567*,]+) .* (-[h|r])/;
- $reboot_at = sprintf("%.02d",$2) . ':' . sprintf("%.02d",$1); # hour (03:45)
- $days = $3; # 1,2,3... or *
- if ($4 eq '-h') {
- $checked{'MODE'}{'halt'} = "checked='checked'";
- } else {
- $checked{'MODE'}{'reboot'} = "checked='checked'";
- }
- }
- #decode $days
- if ($days eq '*') {
- $checked{'MONDAY'} = "checked='checked'";
- $checked{'TUESDAY'} = "checked='checked'";
- $checked{'WEDNESDAY'} = "checked='checked'";
- $checked{'THURSDAY'} = "checked='checked'";
- $checked{'FRIDAY'} = "checked='checked'";
- $checked{'SATURDAY'} = "checked='checked'";
- $checked{'SUNDAY'} = "checked='checked'";
- } else {
- $checked{'MONDAY'} = "checked='checked'" if ($days =~ /1/);
- $checked{'TUESDAY'} = "checked='checked'" if ($days =~ /2/);
- $checked{'WEDNESDAY'} = "checked='checked'" if ($days =~ /3/);
- $checked{'THURSDAY'} = "checked='checked'" if ($days =~ /4/);
- $checked{'FRIDAY'} = "checked='checked'" if ($days =~ /5/);
- $checked{'SATURDAY'} = "checked='checked'" if ($days =~ /6/);
- $checked{'SUNDAY'} = "checked='checked'" if ($days =~ /7/);
- }
-
- print <<END
-<table width='100%'>
-<tr>
- <td class='boldbase' colspan='2'><b>$Lang::tr{'time'}</b></td>
- <td class='boldbase' colspan='2'><b>$Lang::tr{'day'}</b></td>
- <td class='boldbase'><b>$Lang::tr{'action'}</b></td>
-</tr>
-<tr>
-END
- ;
- print "<td align='left' width='15%' class='base' valign='top' rowspan='2'>", &select_hour_var("TIME", $reboot_at);
- print <<END
-</td>
- <td>
- <input type='checkbox' name='MONDAY' $checked{'MONDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'monday'}</td>
- <td>
- <input type='radio' name='MODE' value='reboot' $checked{'MODE'}{'reboot'} /></td>
- <td width='70%' class='base'>$Lang::tr{'reboot'}</td></tr>
-<tr>
- <td>
- <input type='checkbox' name='TUESDAY' $checked{'TUESDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'tuesday'}</td>
- <td>
- <input type='radio' name='MODE' value='halt' $checked{'MODE'}{'halt'} /></td>
- <td class='base'>$Lang::tr{'shutdown'}</td></tr>
-<tr>
- <td> </td>
- <td>
- <input type='checkbox' name='WEDNESDAY' $checked{'WEDNESDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'wednesday'}</td></tr>
-<tr>
- <td> </td>
- <td>
- <input type='checkbox' name='THURSDAY' $checked{'THURSDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'thursday'}</td></tr>
-<tr>
- <td> </td>
- <td>
- <input type='checkbox' name='FRIDAY' $checked{'FRIDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'friday'}</td></tr>
-<tr>
- <td> </td>
- <td>
- <input type='checkbox' name='SATURDAY' $checked{'SATURDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'saturday'}</td></tr>
-<tr>
- <td> </td>
- <td>
- <input type='checkbox' name='SUNDAY' $checked{'SUNDAY'}></td>
- <td width='15%' class='base'>
- $Lang::tr{'sunday'}</td></tr>
-</table>
-
-<table width='100%'>
-<hr />
-<tr>
- <td width='60%'> </td>
- <td width='30%' align='center'>
- <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
- </td>
- <td width='10%' align='right'>
-</tr>
-</table>
-
-END
-;
- &Header::closebox();
- print "</form>\n";