[ipfire-2.x.git] / html / cgi-bin / shutdown.cgi

#!/usr/bin/perl
#
# SmoothWall CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The SmoothWall Team
#

use strict;

# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';

require 'CONFIG_ROOT/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

my %cgiparams=();
my $death = 0;
my $rebirth = 0;
my $default_time = '03:15';

&Header::showhttpheaders();

$cgiparams{'ACTION'} = '';
&Header::getcgihash(\%cgiparams);

if ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown'}) {
	$death = 1;
	&General::log($Lang::tr{'shutting down ipfire'});
	#system '/usr/local/bin/ipfiredeath';
	system '/usr/local/bin/ipfirereboot down';
} elsif ($cgiparams{'ACTION'} eq $Lang::tr{'reboot'}) {
	$rebirth = 1;
	&General::log($Lang::tr{'rebooting ipfire'});
	#system '/usr/local/bin/ipfirerebirth';
	system '/usr/local/bin/ipfirereboot boot';
} elsif ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
	my $days='';
	my $n = 1;
	# build list of days
	map ($cgiparams{$_} eq 'on' ?  $days .= ",".$n++ : $n++ ,
	    ('MONDAY','TUESDAY','WEDNESDAY','THURSDAY','FRIDAY','SATURDAY','SUNDAY') );

	# if days is empty, it is a remove else it is a change
	if (length ($days)){
	    substr($days,0,1) = ''; 	#kill front comma
	    &General::log("Scheduling reboot on $days at $cgiparams{'TIME'}");
	    my $min;
	    my $hour;
	    ($hour,$min) = split (':', $cgiparams{'TIME'});
	    $days = "'*'" if ($days eq '1,2,3,4,5,6,7');
	    my $mode = ($cgiparams{'MODE'} eq 'halt') ? '-h' : '-r';
	    system "/usr/local/bin/ipfirereboot cron+ $min $hour $days $mode"; #reboot checks values of $hour & $min
	} else {
	    &General::log("Remove scheduled reboot");
	    system '/usr/local/bin/ipfirereboot cron-';
	}
}
if ($death == 0 && $rebirth == 0) {

	&Header::openpage($Lang::tr{'shutdown control'}, 1, '');

	&Header::openbigbox('100%', 'left');

	print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";

	&Header::openbox('100%', 'left', $Lang::tr{'shutdown2'});
	print <<END
<table width='100%'>
<tr>
	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot'}' /></td>
	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown'}' /></td>
</tr>
</table>
END
	;
	&Header::closebox();

	&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>&nbsp;</td>
    <td>
        <input type='checkbox' name='WEDNESDAY' $checked{'WEDNESDAY'}></td>
    <td width='15%' class='base'>
        $Lang::tr{'wednesday'}</td></tr>
<tr>
    <td>&nbsp;</td>
    <td>
        <input type='checkbox' name='THURSDAY'  $checked{'THURSDAY'}></td>
    <td width='15%' class='base'>
        $Lang::tr{'thursday'}</td></tr>
<tr>
    <td>&nbsp;</td>
    <td>
        <input type='checkbox' name='FRIDAY'    $checked{'FRIDAY'}></td>
    <td width='15%' class='base'>
        $Lang::tr{'friday'}</td></tr>
<tr>
    <td>&nbsp;</td>
    <td>
        <input type='checkbox' name='SATURDAY'  $checked{'SATURDAY'}></td>
    <td width='15%' class='base'>
        $Lang::tr{'saturday'}</td></tr>
<tr>
    <td>&nbsp;</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%'>&nbsp;</td>
    <td width='30%' align='center'>
        <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
    </td>
    <td width='10%' align='right'>
        <a href='${General::adminmanualurl}/system.html#shutdown' target='_blank'>
        <img src='/images/web-support.png' title='$Lang::tr{'online help en'}' /></a></td>
</tr>
</table>

END
;
	&Header::closebox();
	print "</form>\n";
} else {
	my $message='';
	my $title='';
	my $refresh = "<meta http-equiv='refresh' content='5; URL=/cgi-bin/index.cgi' />";
	if ($death) {
		$title = $Lang::tr{'shutting down'};
		$message = $Lang::tr{'ipfire has now shutdown'};
	} else {
		$title = $Lang::tr{'rebooting'};
		$message = $Lang::tr{'ipfire has now rebooted'};
	}
	&Header::openpage($title, 0, $refresh);

	&Header::openbigbox('100%', 'center');
	print <<END
<div align='center'>
<table width='100%' bgcolor='#ffffff'>
<tr><td align='center'>
<br /><br /><img src='/ipfire_big.gif' /><br /><br /><br />
</td></tr>
</table>
<br />
<font size='6'>$message</font>
</div>
END
	;
}

&Header::closebigbox();
&Header::closepage();


# Create a named select box containing valid times from quarter to quarter.
sub select_hour_var {
	# Create a variable containing the SELECT with selected value variable name and current value selected
        my $select_hour_var = shift;
	my $selected_hour = shift;

	my $select_hour = "<select name='$select_hour_var'>";
	my $hh = 0;
	my $mm = 15;
	my $str = '00:00';
	for (my $x=0; $x<(24*4); $x++) {
	    my $check = $selected_hour eq $str ?  "selected='selected'" : '';
	    $select_hour .= "<Option $check value='$str'>$str";
	    $str = sprintf("%.02d", $hh) . ":" . sprintf("%.02d", $mm);
	    $mm += 15;
	    if ($mm==60) {$mm=0; $hh++; }
	}
	$select_hour .= "</select>\n";
	return ($select_hour);
}
Commit	Line	Data
	1	#!/usr/bin/perl
	2	#
	3	# SmoothWall CGIs
	4	#
	5	# This code is distributed under the terms of the GPL
	6	#
	7	# (c) The SmoothWall Team
	8	#
	9
	10	use strict;
	11
	12	# enable only the following on debugging purpose
	13	#use warnings;
	14	#use CGI::Carp 'fatalsToBrowser';
	15
	16	require 'CONFIG_ROOT/general-functions.pl';
	17	require "${General::swroot}/lang.pl";
	18	require "${General::swroot}/header.pl";
	19
	20	my %cgiparams=();
	21	my $death = 0;
	22	my $rebirth = 0;
	23	my $default_time = '03:15';
	24
	25	&Header::showhttpheaders();
	26
	27	$cgiparams{'ACTION'} = '';
	28	&Header::getcgihash(\%cgiparams);
	29
	30	if ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown'}) {
	31	$death = 1;
	32	&General::log($Lang::tr{'shutting down ipfire'});
	33	#system '/usr/local/bin/ipfiredeath';
	34	system '/usr/local/bin/ipfirereboot down';
	35	} elsif ($cgiparams{'ACTION'} eq $Lang::tr{'reboot'}) {
	36	$rebirth = 1;
	37	&General::log($Lang::tr{'rebooting ipfire'});
	38	#system '/usr/local/bin/ipfirerebirth';
	39	system '/usr/local/bin/ipfirereboot boot';
	40	} elsif ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
	41	my $days='';
	42	my $n = 1;
	43	# build list of days
	44	map ($cgiparams{$_} eq 'on' ? $days .= ",".$n++ : $n++ ,
	45	('MONDAY','TUESDAY','WEDNESDAY','THURSDAY','FRIDAY','SATURDAY','SUNDAY') );
	46
	47	# if days is empty, it is a remove else it is a change
	48	if (length ($days)){
	49	substr($days,0,1) = ''; #kill front comma
	50	&General::log("Scheduling reboot on $days at $cgiparams{'TIME'}");
	51	my $min;
	52	my $hour;
	53	($hour,$min) = split (':', $cgiparams{'TIME'});
	54	$days = "'*'" if ($days eq '1,2,3,4,5,6,7');
	55	my $mode = ($cgiparams{'MODE'} eq 'halt') ? '-h' : '-r';
	56	system "/usr/local/bin/ipfirereboot cron+ $min $hour $days $mode"; #reboot checks values of $hour & $min
	57	} else {
	58	&General::log("Remove scheduled reboot");
	59	system '/usr/local/bin/ipfirereboot cron-';
	60	}
	61	}
	62	if ($death == 0 && $rebirth == 0) {
	63
	64	&Header::openpage($Lang::tr{'shutdown control'}, 1, '');
	65
	66	&Header::openbigbox('100%', 'left');
	67
	68	print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
	69
	70	&Header::openbox('100%', 'left', $Lang::tr{'shutdown2'});
	71	print <<END
	72	<table width='100%'>
	73	<tr>
	74	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot'}' /></td>
	75	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown'}' /></td>
	76	</tr>
	77	</table>
	78	END
	79	;
	80	&Header::closebox();
	81
	82	&Header::openbox('100%', 'left', $Lang::tr{'reboot schedule'});
	83	my %checked=();
	84	my $reboot_at = $default_time;
	85	my $days = '';
	86
	87	#decode the shutdown line stored in crontab
	88	#get the line
	89	open(FILE, "/usr/local/bin/ipfirereboot cron?\|");
	90	my $schedule = <FILE>;
	91	close (FILE);
	92
	93	if ($schedule) { # something exist
	94	$schedule =~ /(\d+) (\d+) \* \* ([1234567,]+) . (-[h\|r])/;
	95	$reboot_at = sprintf("%.02d",$2) . ':' . sprintf("%.02d",$1); # hour (03:45)
	96	$days = $3; # 1,2,3... or *
	97	if ($4 eq '-h') {
	98	$checked{'MODE'}{'halt'} = "checked='checked'";
	99	} else {
	100	$checked{'MODE'}{'reboot'} = "checked='checked'";
	101	}
	102	}
	103	#decode $days
	104	if ($days eq '*') {
	105	$checked{'MONDAY'} = "checked='checked'";
	106	$checked{'TUESDAY'} = "checked='checked'";
	107	$checked{'WEDNESDAY'} = "checked='checked'";
	108	$checked{'THURSDAY'} = "checked='checked'";
	109	$checked{'FRIDAY'} = "checked='checked'";
	110	$checked{'SATURDAY'} = "checked='checked'";
	111	$checked{'SUNDAY'} = "checked='checked'";
	112	} else {
	113	$checked{'MONDAY'} = "checked='checked'" if ($days =~ /1/);
	114	$checked{'TUESDAY'} = "checked='checked'" if ($days =~ /2/);
	115	$checked{'WEDNESDAY'} = "checked='checked'" if ($days =~ /3/);
	116	$checked{'THURSDAY'} = "checked='checked'" if ($days =~ /4/);
	117	$checked{'FRIDAY'} = "checked='checked'" if ($days =~ /5/);
	118	$checked{'SATURDAY'} = "checked='checked'" if ($days =~ /6/);
	119	$checked{'SUNDAY'} = "checked='checked'" if ($days =~ /7/);
	120	}
	121
	122	print <<END
	123	<table width='100%'>
	124	<tr>
	125	<td class='boldbase' colspan='2'><b>$Lang::tr{'time'}</b></td>
	126	<td class='boldbase' colspan='2'><b>$Lang::tr{'day'}</b></td>
	127	<td class='boldbase'><b>$Lang::tr{'action'}</b></td>
	128	</tr>
	129	<tr>
	130	END
	131	;
	132	print "<td align='left' width='15%' class='base' valign='top' rowspan='2'>", &select_hour_var("TIME", $reboot_at);
	133	print <<END
	134	</td>
	135	<td>
	136	<input type='checkbox' name='MONDAY' $checked{'MONDAY'}></td>
	137	<td width='15%' class='base'>
	138	$Lang::tr{'monday'}</td>
	139	<td>
	140	<input type='radio' name='MODE' value='reboot' $checked{'MODE'}{'reboot'} /></td>
	141	<td width='70%' class='base'>$Lang::tr{'reboot'}</td></tr>
	142	<tr>
	143	<td>
	144	<input type='checkbox' name='TUESDAY' $checked{'TUESDAY'}></td>
	145	<td width='15%' class='base'>
	146	$Lang::tr{'tuesday'}</td>
	147	<td>
	148	<input type='radio' name='MODE' value='halt' $checked{'MODE'}{'halt'} /></td>
	149	<td class='base'>$Lang::tr{'shutdown'}</td></tr>
	150	<tr>
	151	<td> </td>
	152	<td>
	153	<input type='checkbox' name='WEDNESDAY' $checked{'WEDNESDAY'}></td>
	154	<td width='15%' class='base'>
	155	$Lang::tr{'wednesday'}</td></tr>
	156	<tr>
	157	<td> </td>
	158	<td>
	159	<input type='checkbox' name='THURSDAY' $checked{'THURSDAY'}></td>
	160	<td width='15%' class='base'>
	161	$Lang::tr{'thursday'}</td></tr>
	162	<tr>
	163	<td> </td>
	164	<td>
	165	<input type='checkbox' name='FRIDAY' $checked{'FRIDAY'}></td>
	166	<td width='15%' class='base'>
	167	$Lang::tr{'friday'}</td></tr>
	168	<tr>
	169	<td> </td>
	170	<td>
	171	<input type='checkbox' name='SATURDAY' $checked{'SATURDAY'}></td>
	172	<td width='15%' class='base'>
	173	$Lang::tr{'saturday'}</td></tr>
	174	<tr>
	175	<td> </td>
	176	<td>
	177	<input type='checkbox' name='SUNDAY' $checked{'SUNDAY'}></td>
	178	<td width='15%' class='base'>
	179	$Lang::tr{'sunday'}</td></tr>
	180	</table>
	181
	182	<table width='100%'>
	183	<hr />
	184	<tr>
	185	<td width='60%'> </td>
	186	<td width='30%' align='center'>
	187	<input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
	188	</td>
	189	<td width='10%' align='right'>
	190	<a href='${General::adminmanualurl}/system.html#shutdown' target='_blank'>
	191	<img src='/images/web-support.png' title='$Lang::tr{'online help en'}' /></a></td>
	192	</tr>
	193	</table>
	194
	195	END
	196	;
	197	&Header::closebox();
	198	print "</form>\n";
	199	} else {
	200	my $message='';
	201	my $title='';
	202	my $refresh = "<meta http-equiv='refresh' content='5; URL=/cgi-bin/index.cgi' />";
	203	if ($death) {
	204	$title = $Lang::tr{'shutting down'};
	205	$message = $Lang::tr{'ipfire has now shutdown'};
	206	} else {
	207	$title = $Lang::tr{'rebooting'};
	208	$message = $Lang::tr{'ipfire has now rebooted'};
	209	}
	210	&Header::openpage($title, 0, $refresh);
	211
	212	&Header::openbigbox('100%', 'center');
	213	print <<END
	214	<div align='center'>
	215	<table width='100%' bgcolor='#ffffff'>
	216	<tr><td align='center'>
	217	<br /><br /><img src='/ipfire_big.gif' /><br /><br /><br />
	218	</td></tr>
	219	</table>
	220	<br />
	221	<font size='6'>$message</font>
	222	</div>
	223	END
	224	;
	225	}
	226
	227	&Header::closebigbox();
	228	&Header::closepage();
	229
	230
	231
	232	# Create a named select box containing valid times from quarter to quarter.
	233	sub select_hour_var {
	234	# Create a variable containing the SELECT with selected value variable name and current value selected
	235	my $select_hour_var = shift;
	236	my $selected_hour = shift;
	237
	238	my $select_hour = "<select name='$select_hour_var'>";
	239	my $hh = 0;
	240	my $mm = 15;
	241	my $str = '00:00';
	242	for (my $x=0; $x<(24*4); $x++) {
	243	my $check = $selected_hour eq $str ? "selected='selected'" : '';
	244	$select_hour .= "<Option $check value='$str'>$str";
	245	$str = sprintf("%.02d", $hh) . ":" . sprintf("%.02d", $mm);
	246	$mm += 15;
	247	if ($mm==60) {$mm=0; $hh++; }
	248	}
	249	$select_hour .= "</select>\n";
	250	return ($select_hour);
	251	}