html/cgi-bin/index.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  28 require '/var/ipfire/general-functions.pl';
  29 require "${General::swroot}/lang.pl";
  30 require "${General::swroot}/header.pl";
  31 require "/opt/pakfire/lib/functions.pl";
  32
  33 my %cgiparams=();
  34 my %pppsettings=();
  35 my %modemsettings=();
  36 my %netsettings=();
  37 my %ddnssettings=();
  38 my $warnmessage = '';
  39 my $refresh = "";
  40 my $ipaddr='';
  41
  42
  43 &Header::showhttpheaders();
  44
  45 $cgiparams{'ACTION'} = '';
  46 &Header::getcgihash(\%cgiparams);
  47 $pppsettings{'VALID'} = '';
  48 $pppsettings{'PROFILENAME'} = 'None';
  49 &General::readhash("${General::swroot}/ppp/settings", \%pppsettings);
  50 &General::readhash("${General::swroot}/modem/settings", \%modemsettings);
  51 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  52 &General::readhash("${General::swroot}/ddns/settings", \%ddnssettings);
  53
  54 my %color = ();
  55 my %mainsettings = ();
  56 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  57 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  58
  59 my $connstate = &Header::connectionstatus();
  60
  61 # check if reboot is necessary
  62 my $reboot = 0;
  63 if (`find /var/run/need_reboot 2>/dev/null`) {
  64         $reboot = 1;
  65 }
  66
  67
  68
  69 if ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown'} || $cgiparams{'ACTION'} eq $Lang::tr{'reboot'}) {
  70         $refresh = "<meta http-equiv='refresh' content='300;'>";
  71 } elsif ($connstate =~ /$Lang::tr{'connecting'}/ || /$Lang::tr{'connection closed'}/ ){
  72         $refresh = "<meta http-equiv='refresh' content='5;'>";
  73 } elsif ($connstate =~ /$Lang::tr{'dod waiting'}/ || -e "${General::swroot}/main/refreshindex") {
  74         $refresh = "<meta http-equiv='refresh' content='30;'>";
  75 }
  76
  77 if ($cgiparams{'ACTION'} eq $Lang::tr{'dial profile'})
  78 {
  79         my $profile = $cgiparams{'PROFILE'};
  80         my %tempcgiparams = ();
  81         $tempcgiparams{'PROFILE'} = '';
  82         &General::readhash("${General::swroot}/ppp/settings-$cgiparams{'PROFILE'}",
  83                 \%tempcgiparams);
  84
  85         # make a link from the selected profile to the "default" one.
  86         unlink("${General::swroot}/ppp/settings");
  87         link("${General::swroot}/ppp/settings-$cgiparams{'PROFILE'}",
  88                 "${General::swroot}/ppp/settings");
  89         system ("/usr/bin/touch", "${General::swroot}/ppp/updatesettings");
  90
  91         # read in the new params "early" so we can write secrets.
  92         %cgiparams = ();
  93         &General::readhash("${General::swroot}/ppp/settings", \%cgiparams);
  94         $cgiparams{'PROFILE'} = $profile;
  95         $cgiparams{'BACKUPPROFILE'} = $profile;
  96         &General::writehash("${General::swroot}/ppp/settings-$cgiparams{'PROFILE'}",
  97                 \%cgiparams);
  98
  99         # write secrets file.
 100         open(FILE, ">/${General::swroot}/ppp/secrets") or die "Unable to write secrets file.";
 101         flock(FILE, 2);
 102         my $username = $cgiparams{'USERNAME'};
 103         my $password = $cgiparams{'PASSWORD'};
 104         print FILE "'$username' * '$password'\n";
 105         chmod 0600, "${General::swroot}/ppp/secrets";
 106         close FILE;
 107
 108         &General::log("$Lang::tr{'profile made current'} $tempcgiparams{'PROFILENAME'}");
 109         $cgiparams{'ACTION'} = "$Lang::tr{'dial'}";
 110 }
 111
 112 if ($cgiparams{'ACTION'} eq $Lang::tr{'dial'}) {
 113         system('/usr/local/bin/redctrl start > /dev/null') == 0
 114         or &General::log("Dial failed: $?"); sleep 1;}
 115 elsif ($cgiparams{'ACTION'} eq $Lang::tr{'hangup'}) {
 116         system('/usr/local/bin/redctrl stop > /dev/null') == 0
 117         or &General::log("Hangup failed: $?"); sleep 1;}
 118
 119 my $c;
 120 my $maxprofiles = 5;
 121 my @profilenames = ();
 122
 123 for ($c = 1; $c <= $maxprofiles; $c++)
 124 {
 125         my %temppppsettings = ();
 126         $temppppsettings{'PROFILENAME'} = '';
 127         &General::readhash("${General::swroot}/ppp/settings-$c", \%temppppsettings);
 128         $profilenames[$c] = $temppppsettings{'PROFILENAME'};
 129 }
 130 my %selected;
 131 for ($c = 1; $c <= $maxprofiles; $c++) {
 132         $selected{'PROFILE'}{$c} = '';
 133 }
 134 $selected{'PROFILE'}{$pppsettings{'PROFILE'}} = "selected='selected'";
 135 my $dialButtonDisabled = "disabled='disabled'";
 136
 137
 138 &Header::openpage($Lang::tr{'main page'}, 1, $refresh);
 139 &Header::openbigbox('', 'center');
 140
 141 # licence agreement
 142 if ($cgiparams{'ACTION'} eq $Lang::tr{'yes'} && $cgiparams{'gpl_accepted'} eq '1') {
 143         system('touch /var/ipfire/main/gpl_accepted')
 144 }
 145 if (`find /var/ipfire/main/gpl_accepted 2>/dev/null`) {
 146 &Header::openbox('100%', 'center', &Header::cleanhtml(`/bin/uname -n`,"y"));
 147
 148
 149 if ( ( $pppsettings{'VALID'} eq 'yes' && $modemsettings{'VALID'} eq 'yes' ) || ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ )) {
 150         if (open(IPADDR,"${General::swroot}/ddns/ipcache")) {
 151             $ipaddr = <IPADDR>;
 152             close IPADDR;
 153             chomp ($ipaddr);
 154         }
 155         if (open(IPADDR,"${General::swroot}/red/local-ipaddress")) {
 156             $ipaddr = <IPADDR>;
 157             close IPADDR;
 158             chomp ($ipaddr);
 159         }
 160 } elsif ($modemsettings{'VALID'} eq 'no') {
 161         print "$Lang::tr{'modem settings have errors'}\n </b></font>\n";
 162 } else {
 163         print "$Lang::tr{'profile has errors'}\n </b></font>\n";
 164 }
 165
 166 #if ( $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) {
 167 #       $ipaddr = $netsettings{'RED_ADDRESS'};
 168 #}
 169
 170 my $death = 0;
 171 my $rebirth = 0;
 172
 173 if ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown'}) {
 174         $death = 1;
 175         &General::log($Lang::tr{'shutting down ipfire'});
 176         system '/usr/local/bin/ipfirereboot down';
 177 } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'reboot'}) {
 178         $rebirth = 1;
 179         &General::log($Lang::tr{'rebooting ipfire'});
 180         system '/usr/local/bin/ipfirereboot boot';
 181 }
 182
 183 if ($death == 0 && $rebirth == 0) {
 184
 185 if ($mainsettings{'REBOOTQUESTION'} eq "off") {
 186 print <<END
 187         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 188         <table width='100%'>
 189         <tr>
 190                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot'}' /></td>
 191                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'refresh'}' /></td>
 192                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown'}' /></td>
 193         </tr>
 194         </table>
 195         </form>
 196 END
 197 ;
 198 } else {
 199         if ($cgiparams{'ACTION'} eq $Lang::tr{'reboot ask'}) {
 200 print <<END
 201         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 202         <table width='100%'>
 203           <tr>
 204             <td colspan="3" align='left'><font color="red">$Lang::tr{'reboot sure'}</font></td>
 205             </tr>
 206           <tr>
 207                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot'}' /></td>
 208                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'refresh'}' /></td>
 209                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown ask'}' /></td>
 210         </tr>
 211         </table>
 212         </form>
 213 END
 214 ;
 215         } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown ask'}) {
 216 print <<END
 217         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 218         <table width='100%'>
 219           <tr>
 220             <td colspan="3" align='right'><font color="red">$Lang::tr{'shutdown sure'}</font></td>
 221             </tr>
 222           <tr>
 223                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot ask'}' /></td>
 224                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'refresh'}' /></td>
 225                 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown'}' /></td>
 226         </tr>
 227         </table>
 228         </form>
 229 END
 230 ;
 231         } else {
 232 print <<END
 233                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 234                 <table width='100%'>
 235                 <tr>
 236                         <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'reboot ask'}' /></td>
 237                         <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'refresh'}' /></td>
 238                         <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'shutdown ask'}' /></td>
 239                 </tr>
 240                 </table>
 241                 </form>
 242 END
 243 ;
 244         }
 245 }
 246 print <<END;
 247
 248
 249 <!-- Table of networks -->
 250 <table border='0' width=80%>
 251   <tr>  <th bgcolor='$color{'color20'}'>$Lang::tr{'network'}
 252         <th bgcolor='$color{'color20'}'>IP
 253         <th bgcolor='$color{'color20'}'>$Lang::tr{'status'}
 254   <tr>  <td align='center' bgcolor='$Header::colourred' width='25%'><a href="/cgi-bin/pppsetup.cgi"><font size='2' color='white'><b>$Lang::tr{'internet'}</b></font></a><br>
 255         <td width='30%' align='center'>$ipaddr
 256         <td width='45%' align='center'>$connstate
 257 END
 258 if ( $netsettings{'RED_TYPE'} ne "STATIC" && $netsettings{'RED_TYPE'} ne "DHCP" ){
 259 print `/usr/local/bin/dialctrl.pl show`;
 260 print <<END;
 261         <tr><td colspan='2'>
 262                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>$Lang::tr{'profile'}:
 263                         <select name='PROFILE'>
 264 END
 265         for ($c = 1; $c <= $maxprofiles; $c++)
 266         {
 267                 if ($profilenames[$c] ne '') {
 268                         $dialButtonDisabled = "";
 269                         print "\t<option value='$c' $selected{'PROFILE'}{$c}>$c. $profilenames[$c]</option>\n";
 270                 }
 271         }
 272         $dialButtonDisabled = "disabled='disabled'" if (-e '/var/run/ppp-ipfire.pid' || -e "${General::swroot}/red/active");
 273         if ( ( $pppsettings{'VALID'} eq 'yes' ) || ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) ) {
 274                 print <<END;
 275                                 </select>
 276                                 <input type='submit' name='ACTION' value='$Lang::tr{'dial profile'}' $dialButtonDisabled />
 277                         </form>
 278                         <td align='center'>
 279                                 <table width='100%' border='0'>
 280                                         <tr>
 281                                         <td width='50%' align='right'>  <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 282                                                                                         <input type='submit' name='ACTION' value='$Lang::tr{'dial'}'>
 283                                                                                 </form>
 284                                         <td width='50%' align='left'>   <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 285                                                                                         <input type='submit' name='ACTION' value='$Lang::tr{'hangup'}'>
 286                                                                                 </form>
 287                                 </table>
 288 END
 289         } else {
 290         print "$Lang::tr{'profile has errors'}\n </b></font>\n";
 291         }
 292 }
 293         my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
 294         if ( "$HOSTNAME" ne "" ) {
 295                 print <<END;
 296         <tr><td><b>Hostname:</b><td align='center'>$HOSTNAME<td>&nbsp;
 297 END
 298         }
 299
 300         if ( -e "/var/ipfire/red/remote-ipaddress" ) {
 301                 my $GATEWAY = `cat /var/ipfire/red/remote-ipaddress`;
 302                 chomp($GATEWAY);
 303                 print <<END;
 304         <tr><td><b>Gateway:</b><td align='center'>$GATEWAY<td>&nbsp;
 305 END
 306         }
 307
 308         my $DNS1 = `cat /var/ipfire/red/dns1`;
 309         my $DNS2 = `cat /var/ipfire/red/dns2`;
 310         chomp($DNS1);
 311         chomp($DNS1);
 312
 313         if ( $DNS1 ) { print <<END;
 314         <tr><td><b>DNS-Server:</b><td align='center'>$DNS1
 315 END
 316         }
 317         if ( $DNS2 ) { print <<END;
 318         <td align='center'>$DNS2
 319 END
 320         } else { print <<END;
 321         <td>&nbsp;
 322 END
 323         }
 324
 325         if ( $netsettings{'GREEN_DEV'} ) { print <<END;
 326                 <tr><td align='center' bgcolor='$Header::colourgreen' width='25%'><a href="/cgi-bin/dhcp.cgi"><font size='2' color='white'><b>$Lang::tr{'lan'}</b></font></a>
 327                 <td width='30%' align='center'>$netsettings{'GREEN_ADDRESS'}
 328                 <td width='45%' align='center'>
 329 END
 330                 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
 331                         print $Lang::tr{'advproxy on'};
 332                         if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT=on` ) { print " (transparent)"; }
 333                 }       else { print $Lang::tr{'advproxy off'};  }
 334         }
 335         if ( $netsettings{'BLUE_DEV'} ) { print <<END;
 336                 <tr><td align='center' bgcolor='$Header::colourblue' width='25%'><a href="/cgi-bin/wireless.cgi"><font size='2' color='white'><b>$Lang::tr{'wireless'}</b></font></a><br>
 337                 <td width='30%' align='center'>$netsettings{'BLUE_ADDRESS'}
 338                 <td width='45%' align='center'>
 339 END
 340                 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
 341                         print $Lang::tr{'advproxy on'};
 342                         if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT_BLUE=on` ) { print " (transparent)"; }
 343                 }       else { print $Lang::tr{'advproxy off'};  }
 344         }
 345         if ( $netsettings{'ORANGE_DEV'} ) { print <<END;
 346                 <tr><td align='center' bgcolor='$Header::colourorange' width='25%'><a href="/cgi-bin/dmzholes.cgi"><font size='2' color='white'><b>$Lang::tr{'dmz'}</b></font></a><br>
 347                 <td width='30%' align='center'>$netsettings{'ORANGE_ADDRESS'}
 348                 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
 349 END
 350         }
 351         if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
 352              `cat /var/ipfire/vpn/settings | grep ^ENABLED_BLUE=on` ) {
 353                 my $ipsecip = `cat /var/ipfire/vpn/settings | grep ^VPN_IP= | cut -c 8-`;
 354                 my @status = `/usr/local/bin/ipsecctrl I`;
 355                 my %confighash = ();
 356                 &General::readhasharray("${General::swroot}/vpn/config", \%confighash);
 357                 print <<END;
 358                 <tr><td align='center' bgcolor='$Header::colourvpn' width='25%'><a href="/cgi-bin/vpnmain.cgi"><font size='2' color='white'><b>$Lang::tr{'vpn'}</b></font></a><br>
 359                 <td width='30%' align='center'>$ipsecip
 360                 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
 361 END
 362                 my $id = 0;
 363                 my $gif;
 364                 foreach my $key (keys %confighash) {
 365                         if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
 366
 367                         if ($id % 2) {
 368           print "<tr><td align='left' nowrap='nowrap' bgcolor='$color{'color20'}'>$confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ")</td><td align='center'>$confighash{$key}[11]</td>";
 369                         } else {
 370           print "<tr></td><td align='left' nowrap='nowrap' bgcolor='$color{'color22'}'>$confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ")</td><td align='center'>$confighash{$key}[11]</td>";
 371                         }
 372
 373                         my $active = "<table cellpadding='2' cellspacing='0' bgcolor='${Header::colourred}' width='100%'><tr><td align='center'><b><font color='#FFFFFF'>$Lang::tr{'capsclosed'}</font></b></td></tr></table>";
 374                         if ($confighash{$key}[0] eq 'off') {
 375                             $active = "<table cellpadding='2' cellspacing='0' bgcolor='${Header::colourblue}' width='100%'><tr><td align='center'><b><font color='#FFFFFF'>$Lang::tr{'capsclosed'}</font></b></td></tr></table>";
 376                         } else {
 377                             foreach my $line (@status) {
 378                                 if ($line =~ /\"$confighash{$key}[1]\".*IPsec SA established/) {
 379                                     $active = "<table cellpadding='2' cellspacing='0' bgcolor='${Header::colourgreen}' width='100%'><tr><td align='center'><b><font color='#FFFFFF'>$Lang::tr{'capsopen'}</font></b></td></tr></table>";
 380                                 }
 381                            }
 382                         }
 383                         print "<td align='center'>$active</td>";
 384                 }
 385         }
 386         if ( `cat /var/ipfire/ovpn/settings | grep ^ENABLED=on` ||
 387              `cat /var/ipfire/ovpn/settings | grep ^ENABLED_BLUE=on` ||
 388              `cat /var/ipfire/ovpn/settings | grep ^ENABLED_ORANGE=on`) {
 389                 my $ovpnip = `cat /var/ipfire/ovpn/settings | grep ^DOVPN_SUBNET= | cut -c 14- | sed -e 's\/\\/255.255.255.0\/\/'`;
 390                 print <<END;
 391                 <tr><td align='center' bgcolor='$Header::colourovpn' width='25%'><a href="/cgi-bin/ovpnmain.cgi"><font size='2' color='white'><b>OpenVPN</b></font></a><br>
 392                 <td width='30%' align='center'>$ovpnip
 393                 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
 394 END
 395         }
 396
 397 # Memory usage warning
 398 my @free = `/usr/bin/free`;
 399 $free[1] =~ m/(\d+)/;
 400 my $mem = $1;
 401 $free[2] =~ m/(\d+)/;
 402 my $used = $1;
 403 my $pct = int 100 * ($mem - $used) / $mem;
 404 if ($used / $mem > 90) {
 405         $warnmessage .= "<li> $Lang::tr{'high memory usage'}: $pct% !</li>\n";
 406 }
 407
 408 # Diskspace usage warning
 409 my @temp=();
 410 my $temp2=();
 411 my @df = `/bin/df -B M -x rootfs`;
 412 foreach my $line (@df) {
 413         next if $line =~ m/^Filesystem/;
 414         if ($line =~ m/root/ ) {
 415                 $line =~ m/^.* (\d+)M.*$/;
 416                 @temp = split(/ +/,$line);
 417                 if ($1<5) {
 418                         # available:plain value in MB, and not %used as 10% is too much to waste on small disk
 419                         # and root size should not vary during time
 420                         $warnmessage .= "<li> $Lang::tr{'filesystem full'}: $temp[0] <b>$Lang::tr{'free'}=$1M</b> !</li>\n";
 421                 }
 422
 423         } else {
 424                 # $line =~ m/^.* (\d+)m.*$/;
 425                 $line =~ m/^.* (\d+)\%.*$/;
 426                 if ($1>90) {
 427                         @temp = split(/ /,$line);
 428                         $temp2=int(100-$1);
 429                         $warnmessage .= "<li> $Lang::tr{'filesystem full'}: $temp[0] <b>$Lang::tr{'free'}=$temp2%</b> !</li>\n";
 430                 }
 431         }
 432 }
 433
 434 # S.M.A.R.T. health warning
 435 my @files = `/bin/ls /var/run/smartctl_out_hddtemp-*`;
 436 foreach my $file (@files) {
 437         chomp ($file);
 438         my $disk=`echo $file | cut -d"-" -f2`;
 439         chomp ($disk);
 440         if (`/bin/grep "SAVE ALL DATA" $file`) {
 441                 $warnmessage .= "<li> $Lang::tr{'smartwarn1'} /dev/$disk $Lang::tr{'smartwarn2'} !</li>\n\n";
 442         }
 443 }
 444
 445
 446 if ($warnmessage) {
 447         print "<tr><td align='center' bgcolor=$Header::colourred colspan='3'><font color='white'>$warnmessage</font></table>";
 448 }
 449 print <<END;
 450 </table>
 451 END
 452 ;
 453 &Pakfire::dblist("upgrade", "notice");
 454 print <<END;
 455 END
 456 if ($reboot == 1) {
 457         print "<br /><br /><font color='red'>$Lang::tr{'needreboot'}!</font>";
 458 }
 459 } else {
 460         my $message='';
 461         if ($death) {
 462                 $message = $Lang::tr{'ipfire has now shutdown'};
 463         } else {
 464                 $message = $Lang::tr{'ipfire has now rebooted'};
 465         }
 466         print <<END
 467 <div align='center'>
 468 <table width='100%' bgcolor='#ffffff'>
 469 <tr><td align='center'>
 470 <br /><br /><img src='/images/IPFire.png' /><br /><br /><br />
 471 </td></tr>
 472 </table>
 473 <br />
 474 <font size='6'>$message</font>
 475 </div>
 476 END
 477 ;
 478
 479 }
 480
 481 &Header::closebox();
 482 }
 483
 484 else {
 485 &Header::openbox('100%', 'left', $Lang::tr{'gpl license agreement'});
 486 print <<END;
 487         $Lang::tr{'gpl please read carefully the general public license and accept it below'}.
 488         <br /><br />
 489 END
 490 ;
 491 if (`find /usr/share/doc/licenses/GPLv3 2>/dev/null`) {
 492         print '<textarea rows=\'25\' cols=\'75\' readonly=\'true\'>';
 493         print `cat /usr/share/doc/licenses/GPLv3`;
 494         print '</textarea>'
 495 }
 496 else {
 497         print '<br /><a href=\'http://www.gnu.org/licenses/gpl-3.0.txt\' target=\'_blank\'>GNU GENERAL PUBLIC LICENSE</a><br />'
 498 }
 499 print <<END;
 500         <p>
 501                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 502                         <input type='checkbox' name='gpl_accepted' value='1'/> $Lang::tr{'gpl i accept these terms and conditions'}.
 503                         <br/ >
 504                         <input type='submit' name='ACTION' value=$Lang::tr{'yes'} />
 505                 </form>
 506         </p>
 507         <a href='http://www.gnu.org/licenses/translations.html' target='_blank'>$Lang::tr{'gpl unofficial translation of the general public license v3'}</a>
 508
 509 END
 510
 511 &Header::closebox();
 512 }
 513
 514 &Header::closebigbox();
 515 &Header::closepage();