Multilanguage fix for index.cgi.
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / index.cgi
CommitLineData
ac1cfefa 1#!/usr/bin/perl
70df8302
MT
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###############################################################################
ac1cfefa
MT
21
22use strict;
23
24# enable only the following on debugging purpose
cb5e9c6c
CS
25#use warnings;
26#use CGI::Carp 'fatalsToBrowser';
ac1cfefa 27
e383179b 28require '/var/ipfire/general-functions.pl';
ac1cfefa
MT
29require "${General::swroot}/lang.pl";
30require "${General::swroot}/header.pl";
2b38ab5c 31require "/opt/pakfire/lib/functions.pl";
ac1cfefa
MT
32
33my %cgiparams=();
34my %pppsettings=();
35my %modemsettings=();
36my %netsettings=();
37my %ddnssettings=();
38my $warnmessage = '';
c85ec3b4 39my $refresh = "";
e383179b 40my $ipaddr='';
ac1cfefa 41
337305ef 42
ac1cfefa
MT
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
f2fdd0c1
CS
54my %color = ();
55my %mainsettings = ();
56&General::readhash("${General::swroot}/main/settings", \%mainsettings);
57&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
58
ac1cfefa 59my $connstate = &Header::connectionstatus();
56b7a3e2 60
337305ef
JPT
61# check if reboot is necessary
62my $reboot = 0;
63if (`find /var/run/need_reboot 2>/dev/null`) {
64 $reboot = 1;
65}
66
7fa7c7dd
JPT
67
68
56b7a3e2
CS
69if ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown'} || $cgiparams{'ACTION'} eq $Lang::tr{'reboot'}) {
70 $refresh = "<meta http-equiv='refresh' content='300;'>";
8a5898e7 71} elsif ($connstate =~ /$Lang::tr{'connecting'}/ || /$Lang::tr{'connection closed'}/ ){
ac1cfefa 72 $refresh = "<meta http-equiv='refresh' content='5;'>";
56b7a3e2
CS
73} elsif ($connstate =~ /$Lang::tr{'dod waiting'}/ || -e "${General::swroot}/main/refreshindex") {
74 $refresh = "<meta http-equiv='refresh' content='30;'>";
ac1cfefa
MT
75}
76
957363eb
CS
77if ($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
112if ($cgiparams{'ACTION'} eq $Lang::tr{'dial'}) {
a56b5be4 113 system('/usr/local/bin/redctrl start > /dev/null') == 0
957363eb
CS
114 or &General::log("Dial failed: $?"); sleep 1;}
115elsif ($cgiparams{'ACTION'} eq $Lang::tr{'hangup'}) {
a56b5be4 116 system('/usr/local/bin/redctrl stop > /dev/null') == 0
957363eb
CS
117 or &General::log("Hangup failed: $?"); sleep 1;}
118
e383179b
MT
119my $c;
120my $maxprofiles = 5;
121my @profilenames = ();
122
123for ($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}
130my %selected;
131for ($c = 1; $c <= $maxprofiles; $c++) {
132 $selected{'PROFILE'}{$c} = '';
133}
134$selected{'PROFILE'}{$pppsettings{'PROFILE'}} = "selected='selected'";
135my $dialButtonDisabled = "disabled='disabled'";
136
137
ac1cfefa
MT
138&Header::openpage($Lang::tr{'main page'}, 1, $refresh);
139&Header::openbigbox('', 'center');
ac1cfefa 140
7fa7c7dd 141# licence agreement
0cac94cc 142if ($cgiparams{'ACTION'} eq $Lang::tr{'yes'} && $cgiparams{'gpl_accepted'} eq '1') {
7fa7c7dd
JPT
143 system('touch /var/ipfire/main/gpl_accepted')
144}
145if (`find /var/ipfire/main/gpl_accepted 2>/dev/null`) {
146&Header::openbox('100%', 'center', &Header::cleanhtml(`/bin/uname -n`,"y"));
3489ebac
MT
147
148
a08a5f33 149if ( ( $pppsettings{'VALID'} eq 'yes' && $modemsettings{'VALID'} eq 'yes' ) || ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ )) {
986e08d9
MT
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")) {
786f2c8a 156 $ipaddr = <IPADDR>;
986e08d9
MT
157 close IPADDR;
158 chomp ($ipaddr);
159 }
ac1cfefa
MT
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
3489ebac
MT
166#if ( $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) {
167# $ipaddr = $netsettings{'RED_ADDRESS'};
168#}
e383179b 169
a56b5be4
CS
170my $death = 0;
171my $rebirth = 0;
172
173if ($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
183if ($death == 0 && $rebirth == 0) {
0ab4385a
JPT
184
185if ($mainsettings{'REBOOTQUESTION'} eq "off") {
186print <<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>
c853dcce
JPT
196END
197;
0ab4385a
JPT
198} else {
199 if ($cgiparams{'ACTION'} eq $Lang::tr{'reboot ask'}) {
200print <<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>
b4ad0027
JPT
213END
214;
0ab4385a 215 } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'shutdown ask'}) {
a56b5be4 216print <<END
0ab4385a
JPT
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>
a56b5be4
CS
229END
230;
0ab4385a
JPT
231 } else {
232print <<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>
242END
243;
244 }
b4ad0027 245}
a56b5be4 246print <<END;
e383179b 247
0ab4385a 248
e383179b
MT
249<!-- Table of networks -->
250<table border='0' width=80%>
f2fdd0c1
CS
251 <tr> <th bgcolor='$color{'color20'}'>$Lang::tr{'network'}
252 <th bgcolor='$color{'color20'}'>IP
253 <th bgcolor='$color{'color20'}'>$Lang::tr{'status'}
33e1f48c 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>
c85ec3b4
CS
255 <td width='30%' align='center'>$ipaddr
256 <td width='45%' align='center'>$connstate
f3bbb213 257END
c85ec3b4 258if ( $netsettings{'RED_TYPE'} ne "STATIC" && $netsettings{'RED_TYPE'} ne "DHCP" ){
f3bbb213
MT
259print `/usr/local/bin/dialctrl.pl show`;
260print <<END;
e383179b 261 <tr><td colspan='2'>
957363eb 262 <form method='post' action='$ENV{'SCRIPT_NAME'}'>$Lang::tr{'profile'}:
e383179b
MT
263 <select name='PROFILE'>
264END
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 }
c6aa4ac1 272 $dialButtonDisabled = "disabled='disabled'" if (-e '/var/run/ppp-ipfire.pid' || -e "${General::swroot}/red/active");
a08a5f33 273 if ( ( $pppsettings{'VALID'} eq 'yes' ) || ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) ) {
e383179b
MT
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>
957363eb 281 <td width='50%' align='right'> <form method='post' action='$ENV{'SCRIPT_NAME'}'>
e383179b
MT
282 <input type='submit' name='ACTION' value='$Lang::tr{'dial'}'>
283 </form>
957363eb 284 <td width='50%' align='left'> <form method='post' action='$ENV{'SCRIPT_NAME'}'>
e383179b
MT
285 <input type='submit' name='ACTION' value='$Lang::tr{'hangup'}'>
286 </form>
287 </table>
288END
289 } else {
290 print "$Lang::tr{'profile has errors'}\n </b></font>\n";
291 }
c85ec3b4 292}
786f2c8a
MT
293 my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
294 if ( "$HOSTNAME" ne "" ) {
295 print <<END;
c85ec3b4 296 <tr><td><b>Hostname:</b><td align='center'>$HOSTNAME<td>&nbsp;
786f2c8a
MT
297END
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;
c85ec3b4 304 <tr><td><b>Gateway:</b><td align='center'>$GATEWAY<td>&nbsp;
786f2c8a
MT
305END
306 }
307
c6aa4ac1
MT
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;
c85ec3b4 314 <tr><td><b>DNS-Server:</b><td align='center'>$DNS1
c6aa4ac1
MT
315END
316 }
317 if ( $DNS2 ) { print <<END;
c85ec3b4 318 <td align='center'>$DNS2
c6aa4ac1
MT
319END
320 } else { print <<END;
321 <td>&nbsp;
322END
323 }
324
072cd997 325 if ( $netsettings{'GREEN_DEV'} ) { print <<END;
33e1f48c 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>
c85ec3b4
CS
327 <td width='30%' align='center'>$netsettings{'GREEN_ADDRESS'}
328 <td width='45%' align='center'>
e383179b 329END
072cd997 330 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
ef482d53 331 print $Lang::tr{'advproxy on'};
072cd997 332 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT=on` ) { print " (transparent)"; }
ef482d53 333 } else { print $Lang::tr{'advproxy off'}; }
072cd997
MT
334 }
335 if ( $netsettings{'BLUE_DEV'} ) { print <<END;
33e1f48c 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>
c85ec3b4
CS
337 <td width='30%' align='center'>$netsettings{'BLUE_ADDRESS'}
338 <td width='45%' align='center'>
e383179b 339END
072cd997 340 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
ef482d53 341 print $Lang::tr{'advproxy on'};
072cd997 342 if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT_BLUE=on` ) { print " (transparent)"; }
ef482d53 343 } else { print $Lang::tr{'advproxy off'}; }
072cd997 344 }
39a7cc11 345 if ( $netsettings{'ORANGE_DEV'} ) { print <<END;
33e1f48c 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>
c85ec3b4
CS
347 <td width='30%' align='center'>$netsettings{'ORANGE_ADDRESS'}
348 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
e383179b 349END
072cd997 350 }
39a7cc11
MT
351 if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
352 `cat /var/ipfire/vpn/settings | grep ^ENABLED_BLUE=on` ) {
072cd997 353 my $ipsecip = `cat /var/ipfire/vpn/settings | grep ^VPN_IP= | cut -c 8-`;
db073a10 354 my @status = `/usr/local/bin/ipsecctrl I`;
e455cafe
MT
355 my %confighash = ();
356 &General::readhasharray("${General::swroot}/vpn/config", \%confighash);
072cd997 357 print <<END;
33e1f48c 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>
c85ec3b4
CS
359 <td width='30%' align='center'>$ipsecip
360 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
e383179b 361END
e455cafe
MT
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) {
9a2a723e 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>";
e455cafe 369 } else {
9a2a723e 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>";
e455cafe 371 }
fe6cda92 372
e455cafe
MT
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/) {
f2fdd0c1 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>";
e455cafe
MT
380 }
381 }
382 }
383 print "<td align='center'>$active</td>";
384 }
072cd997
MT
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;
33e1f48c 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>
c85ec3b4
CS
392 <td width='30%' align='center'>$ovpnip
393 <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
072cd997
MT
394END
395 }
ac1cfefa
MT
396
397# Memory usage warning
398my @free = `/usr/bin/free`;
399$free[1] =~ m/(\d+)/;
400my $mem = $1;
401$free[2] =~ m/(\d+)/;
402my $used = $1;
403my $pct = int 100 * ($mem - $used) / $mem;
404if ($used / $mem > 90) {
405 $warnmessage .= "<li> $Lang::tr{'high memory usage'}: $pct% !</li>\n";
406}
407
408# Diskspace usage warning
409my @temp=();
410my $temp2=();
411my @df = `/bin/df -B M -x rootfs`;
412foreach 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
62f1526a 420 $warnmessage .= "<li> $Lang::tr{'filesystem full'}: $temp[0] <b>$Lang::tr{'free'}=$1M</b> !</li>\n";
ac1cfefa
MT
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);
62f1526a 429 $warnmessage .= "<li> $Lang::tr{'filesystem full'}: $temp[0] <b>$Lang::tr{'free'}=$temp2%</b> !</li>\n";
ac1cfefa
MT
430 }
431 }
432}
433
c1712013
AF
434# S.M.A.R.T. health warning
435my @files = `/bin/ls /var/run/smartctl_out_hddtemp-*`;
436foreach 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`) {
62f1526a 441 $warnmessage .= "<li> $Lang::tr{'smartwarn1'} /dev/$disk $Lang::tr{'smartwarn2'} !</li>\n\n";
c1712013
AF
442 }
443}
444
337305ef 445
ac1cfefa 446if ($warnmessage) {
02dc0a76 447 print "<tr><td align='center' bgcolor=$Header::colourred colspan='3'><font color='white'>$warnmessage</font></table>";
ac1cfefa 448}
02dc0a76
MT
449print <<END;
450</table>
2b38ab5c
JPT
451END
452;
453&Pakfire::dblist("upgrade", "notice");
454print <<END;
02dc0a76 455END
6b1c728d 456if ($reboot == 1) {
337305ef
JPT
457 print "<br /><font color='red'>$Lang::tr{'needreboot'}!</font>";
458}
8de160ff
MT
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'>
94ec137d 470<br /><br /><img src='/images/IPFire.png' /><br /><br /><br />
8de160ff
MT
471</td></tr>
472</table>
473<br />
474<font size='6'>$message</font>
475</div>
476END
477;
b4ad0027
JPT
478
479}
480
ac1cfefa 481&Header::closebox();
7fa7c7dd
JPT
482}
483
484else {
485&Header::openbox('100%', 'left', $Lang::tr{'gpl license agreement'});
486print <<END;
487
488 $Lang::tr{'gpl please read carefully the general public license and accept it below'}.
489 <br /><br />
490 <textarea rows='25' cols='75' readonly='true'>
491 GNU GENERAL PUBLIC LICENSE
492 Version 3, 29 June 2007
493
494 Copyright (C) 2007 Free Software Foundation, Inc. http://fsf.org/
495 Everyone is permitted to copy and distribute verbatim copies
496 of this license document, but changing it is not allowed.
497
498 Preamble
499
500 The GNU General Public License is a free, copyleft license for
501software and other kinds of works.
502
503 The licenses for most software and other practical works are designed
504to take away your freedom to share and change the works. By contrast,
505the GNU General Public License is intended to guarantee your freedom to
506share and change all versions of a program--to make sure it remains free
507software for all its users. We, the Free Software Foundation, use the
508GNU General Public License for most of our software; it applies also to
509any other work released this way by its authors. You can apply it to
510your programs, too.
511
512 When we speak of free software, we are referring to freedom, not
513price. Our General Public Licenses are designed to make sure that you
514have the freedom to distribute copies of free software (and charge for
515them if you wish), that you receive source code or can get it if you
516want it, that you can change the software or use pieces of it in new
517free programs, and that you know you can do these things.
518
519 To protect your rights, we need to prevent others from denying you
520these rights or asking you to surrender the rights. Therefore, you have
521certain responsibilities if you distribute copies of the software, or if
522you modify it: responsibilities to respect the freedom of others.
523
524 For example, if you distribute copies of such a program, whether
525gratis or for a fee, you must pass on to the recipients the same
526freedoms that you received. You must make sure that they, too, receive
527or can get the source code. And you must show them these terms so they
528know their rights.
529
530 Developers that use the GNU GPL protect your rights with two steps:
531(1) assert copyright on the software, and (2) offer you this License
532giving you legal permission to copy, distribute and/or modify it.
533
534 For the developers' and authors' protection, the GPL clearly explains
535that there is no warranty for this free software. For both users' and
536authors' sake, the GPL requires that modified versions be marked as
537changed, so that their problems will not be attributed erroneously to
538authors of previous versions.
539
540 Some devices are designed to deny users access to install or run
541modified versions of the software inside them, although the manufacturer
542can do so. This is fundamentally incompatible with the aim of
543protecting users' freedom to change the software. The systematic
544pattern of such abuse occurs in the area of products for individuals to
545use, which is precisely where it is most unacceptable. Therefore, we
546have designed this version of the GPL to prohibit the practice for those
547products. If such problems arise substantially in other domains, we
548stand ready to extend this provision to those domains in future versions
549of the GPL, as needed to protect the freedom of users.
550
551 Finally, every program is threatened constantly by software patents.
552States should not allow patents to restrict development and use of
553software on general-purpose computers, but in those that do, we wish to
554avoid the special danger that patents applied to a free program could
555make it effectively proprietary. To prevent this, the GPL assures that
556patents cannot be used to render the program non-free.
557
558 The precise terms and conditions for copying, distribution and
559modification follow.
560
561 TERMS AND CONDITIONS
562
563 0. Definitions.
564
565 "This License" refers to version 3 of the GNU General Public License.
566
567 "Copyright" also means copyright-like laws that apply to other kinds of
568works, such as semiconductor masks.
569
570 "The Program" refers to any copyrightable work licensed under this
571License. Each licensee is addressed as "you". "Licensees" and
572"recipients" may be individuals or organizations.
573
574 To "modify" a work means to copy from or adapt all or part of the work
575in a fashion requiring copyright permission, other than the making of an
576exact copy. The resulting work is called a "modified version" of the
577earlier work or a work "based on" the earlier work.
578
579 A "covered work" means either the unmodified Program or a work based
580on the Program.
581
582 To "propagate" a work means to do anything with it that, without
583permission, would make you directly or secondarily liable for
584infringement under applicable copyright law, except executing it on a
585computer or modifying a private copy. Propagation includes copying,
586distribution (with or without modification), making available to the
587public, and in some countries other activities as well.
588
589 To "convey" a work means any kind of propagation that enables other
590parties to make or receive copies. Mere interaction with a user through
591a computer network, with no transfer of a copy, is not conveying.
592
593 An interactive user interface displays "Appropriate Legal Notices"
594to the extent that it includes a convenient and prominently visible
595feature that (1) displays an appropriate copyright notice, and (2)
596tells the user that there is no warranty for the work (except to the
597extent that warranties are provided), that licensees may convey the
598work under this License, and how to view a copy of this License. If
599the interface presents a list of user commands or options, such as a
600menu, a prominent item in the list meets this criterion.
601
602 1. Source Code.
603
604 The "source code" for a work means the preferred form of the work
605for making modifications to it. "Object code" means any non-source
606form of a work.
607
608 A "Standard Interface" means an interface that either is an official
609standard defined by a recognized standards body, or, in the case of
610interfaces specified for a particular programming language, one that
611is widely used among developers working in that language.
612
613 The "System Libraries" of an executable work include anything, other
614than the work as a whole, that (a) is included in the normal form of
615packaging a Major Component, but which is not part of that Major
616Component, and (b) serves only to enable use of the work with that
617Major Component, or to implement a Standard Interface for which an
618implementation is available to the public in source code form. A
619"Major Component", in this context, means a major essential component
620(kernel, window system, and so on) of the specific operating system
621(if any) on which the executable work runs, or a compiler used to
622produce the work, or an object code interpreter used to run it.
623
624 The "Corresponding Source" for a work in object code form means all
625the source code needed to generate, install, and (for an executable
626work) run the object code and to modify the work, including scripts to
627control those activities. However, it does not include the work's
628System Libraries, or general-purpose tools or generally available free
629programs which are used unmodified in performing those activities but
630which are not part of the work. For example, Corresponding Source
631includes interface definition files associated with source files for
632the work, and the source code for shared libraries and dynamically
633linked subprograms that the work is specifically designed to require,
634such as by intimate data communication or control flow between those
635subprograms and other parts of the work.
636
637 The Corresponding Source need not include anything that users
638can regenerate automatically from other parts of the Corresponding
639Source.
640
641 The Corresponding Source for a work in source code form is that
642same work.
643
644 2. Basic Permissions.
645
646 All rights granted under this License are granted for the term of
647copyright on the Program, and are irrevocable provided the stated
648conditions are met. This License explicitly affirms your unlimited
649permission to run the unmodified Program. The output from running a
650covered work is covered by this License only if the output, given its
651content, constitutes a covered work. This License acknowledges your
652rights of fair use or other equivalent, as provided by copyright law.
653
654 You may make, run and propagate covered works that you do not
655convey, without conditions so long as your license otherwise remains
656in force. You may convey covered works to others for the sole purpose
657of having them make modifications exclusively for you, or provide you
658with facilities for running those works, provided that you comply with
659the terms of this License in conveying all material for which you do
660not control copyright. Those thus making or running the covered works
661for you must do so exclusively on your behalf, under your direction
662and control, on terms that prohibit them from making any copies of
663your copyrighted material outside their relationship with you.
664
665 Conveying under any other circumstances is permitted solely under
666the conditions stated below. Sublicensing is not allowed; section 10
667makes it unnecessary.
668
669 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
670
671 No covered work shall be deemed part of an effective technological
672measure under any applicable law fulfilling obligations under article
67311 of the WIPO copyright treaty adopted on 20 December 1996, or
674similar laws prohibiting or restricting circumvention of such
675measures.
676
677 When you convey a covered work, you waive any legal power to forbid
678circumvention of technological measures to the extent such circumvention
679is effected by exercising rights under this License with respect to
680the covered work, and you disclaim any intention to limit operation or
681modification of the work as a means of enforcing, against the work's
682users, your or third parties' legal rights to forbid circumvention of
683technological measures.
684
685 4. Conveying Verbatim Copies.
686
687 You may convey verbatim copies of the Program's source code as you
688receive it, in any medium, provided that you conspicuously and
689appropriately publish on each copy an appropriate copyright notice;
690keep intact all notices stating that this License and any
691non-permissive terms added in accord with section 7 apply to the code;
692keep intact all notices of the absence of any warranty; and give all
693recipients a copy of this License along with the Program.
694
695 You may charge any price or no price for each copy that you convey,
696and you may offer support or warranty protection for a fee.
697
698 5. Conveying Modified Source Versions.
699
700 You may convey a work based on the Program, or the modifications to
701produce it from the Program, in the form of source code under the
702terms of section 4, provided that you also meet all of these conditions:
703
704 a) The work must carry prominent notices stating that you modified
705 it, and giving a relevant date.
706
707 b) The work must carry prominent notices stating that it is
708 released under this License and any conditions added under section
709 7. This requirement modifies the requirement in section 4 to
710 "keep intact all notices".
711
712 c) You must license the entire work, as a whole, under this
713 License to anyone who comes into possession of a copy. This
714 License will therefore apply, along with any applicable section 7
715 additional terms, to the whole of the work, and all its parts,
716 regardless of how they are packaged. This License gives no
717 permission to license the work in any other way, but it does not
718 invalidate such permission if you have separately received it.
719
720 d) If the work has interactive user interfaces, each must display
721 Appropriate Legal Notices; however, if the Program has interactive
722 interfaces that do not display Appropriate Legal Notices, your
723 work need not make them do so.
724
725 A compilation of a covered work with other separate and independent
726works, which are not by their nature extensions of the covered work,
727and which are not combined with it such as to form a larger program,
728in or on a volume of a storage or distribution medium, is called an
729"aggregate" if the compilation and its resulting copyright are not
730used to limit the access or legal rights of the compilation's users
731beyond what the individual works permit. Inclusion of a covered work
732in an aggregate does not cause this License to apply to the other
733parts of the aggregate.
734
735 6. Conveying Non-Source Forms.
736
737 You may convey a covered work in object code form under the terms
738of sections 4 and 5, provided that you also convey the
739machine-readable Corresponding Source under the terms of this License,
740in one of these ways:
741
742 a) Convey the object code in, or embodied in, a physical product
743 (including a physical distribution medium), accompanied by the
744 Corresponding Source fixed on a durable physical medium
745 customarily used for software interchange.
746
747 b) Convey the object code in, or embodied in, a physical product
748 (including a physical distribution medium), accompanied by a
749 written offer, valid for at least three years and valid for as
750 long as you offer spare parts or customer support for that product
751 model, to give anyone who possesses the object code either (1) a
752 copy of the Corresponding Source for all the software in the
753 product that is covered by this License, on a durable physical
754 medium customarily used for software interchange, for a price no
755 more than your reasonable cost of physically performing this
756 conveying of source, or (2) access to copy the
757 Corresponding Source from a network server at no charge.
758
759 c) Convey individual copies of the object code with a copy of the
760 written offer to provide the Corresponding Source. This
761 alternative is allowed only occasionally and noncommercially, and
762 only if you received the object code with such an offer, in accord
763 with subsection 6b.
764
765 d) Convey the object code by offering access from a designated
766 place (gratis or for a charge), and offer equivalent access to the
767 Corresponding Source in the same way through the same place at no
768 further charge. You need not require recipients to copy the
769 Corresponding Source along with the object code. If the place to
770 copy the object code is a network server, the Corresponding Source
771 may be on a different server (operated by you or a third party)
772 that supports equivalent copying facilities, provided you maintain
773 clear directions next to the object code saying where to find the
774 Corresponding Source. Regardless of what server hosts the
775 Corresponding Source, you remain obligated to ensure that it is
776 available for as long as needed to satisfy these requirements.
777
778 e) Convey the object code using peer-to-peer transmission, provided
779 you inform other peers where the object code and Corresponding
780 Source of the work are being offered to the general public at no
781 charge under subsection 6d.
782
783 A separable portion of the object code, whose source code is excluded
784from the Corresponding Source as a System Library, need not be
785included in conveying the object code work.
786
787 A "User Product" is either (1) a "consumer product", which means any
788tangible personal property which is normally used for personal, family,
789or household purposes, or (2) anything designed or sold for incorporation
790into a dwelling. In determining whether a product is a consumer product,
791doubtful cases shall be resolved in favor of coverage. For a particular
792product received by a particular user, "normally used" refers to a
793typical or common use of that class of product, regardless of the status
794of the particular user or of the way in which the particular user
795actually uses, or expects or is expected to use, the product. A product
796is a consumer product regardless of whether the product has substantial
797commercial, industrial or non-consumer uses, unless such uses represent
798the only significant mode of use of the product.
799
800 "Installation Information" for a User Product means any methods,
801procedures, authorization keys, or other information required to install
802and execute modified versions of a covered work in that User Product from
803a modified version of its Corresponding Source. The information must
804suffice to ensure that the continued functioning of the modified object
805code is in no case prevented or interfered with solely because
806modification has been made.
807
808 If you convey an object code work under this section in, or with, or
809specifically for use in, a User Product, and the conveying occurs as
810part of a transaction in which the right of possession and use of the
811User Product is transferred to the recipient in perpetuity or for a
812fixed term (regardless of how the transaction is characterized), the
813Corresponding Source conveyed under this section must be accompanied
814by the Installation Information. But this requirement does not apply
815if neither you nor any third party retains the ability to install
816modified object code on the User Product (for example, the work has
817been installed in ROM).
818
819 The requirement to provide Installation Information does not include a
820requirement to continue to provide support service, warranty, or updates
821for a work that has been modified or installed by the recipient, or for
822the User Product in which it has been modified or installed. Access to a
823network may be denied when the modification itself materially and
824adversely affects the operation of the network or violates the rules and
825protocols for communication across the network.
826
827 Corresponding Source conveyed, and Installation Information provided,
828in accord with this section must be in a format that is publicly
829documented (and with an implementation available to the public in
830source code form), and must require no special password or key for
831unpacking, reading or copying.
832
833 7. Additional Terms.
834
835 "Additional permissions" are terms that supplement the terms of this
836License by making exceptions from one or more of its conditions.
837Additional permissions that are applicable to the entire Program shall
838be treated as though they were included in this License, to the extent
839that they are valid under applicable law. If additional permissions
840apply only to part of the Program, that part may be used separately
841under those permissions, but the entire Program remains governed by
842this License without regard to the additional permissions.
843
844 When you convey a copy of a covered work, you may at your option
845remove any additional permissions from that copy, or from any part of
846it. (Additional permissions may be written to require their own
847removal in certain cases when you modify the work.) You may place
848additional permissions on material, added by you to a covered work,
849for which you have or can give appropriate copyright permission.
850
851 Notwithstanding any other provision of this License, for material you
852add to a covered work, you may (if authorized by the copyright holders of
853that material) supplement the terms of this License with terms:
854
855 a) Disclaiming warranty or limiting liability differently from the
856 terms of sections 15 and 16 of this License; or
857
858 b) Requiring preservation of specified reasonable legal notices or
859 author attributions in that material or in the Appropriate Legal
860 Notices displayed by works containing it; or
861
862 c) Prohibiting misrepresentation of the origin of that material, or
863 requiring that modified versions of such material be marked in
864 reasonable ways as different from the original version; or
865
866 d) Limiting the use for publicity purposes of names of licensors or
867 authors of the material; or
868
869 e) Declining to grant rights under trademark law for use of some
870 trade names, trademarks, or service marks; or
871
872 f) Requiring indemnification of licensors and authors of that
873 material by anyone who conveys the material (or modified versions of
874 it) with contractual assumptions of liability to the recipient, for
875 any liability that these contractual assumptions directly impose on
876 those licensors and authors.
877
878 All other non-permissive additional terms are considered "further
879restrictions" within the meaning of section 10. If the Program as you
880received it, or any part of it, contains a notice stating that it is
881governed by this License along with a term that is a further
882restriction, you may remove that term. If a license document contains
883a further restriction but permits relicensing or conveying under this
884License, you may add to a covered work material governed by the terms
885of that license document, provided that the further restriction does
886not survive such relicensing or conveying.
887
888 If you add terms to a covered work in accord with this section, you
889must place, in the relevant source files, a statement of the
890additional terms that apply to those files, or a notice indicating
891where to find the applicable terms.
892
893 Additional terms, permissive or non-permissive, may be stated in the
894form of a separately written license, or stated as exceptions;
895the above requirements apply either way.
896
897 8. Termination.
898
899 You may not propagate or modify a covered work except as expressly
900provided under this License. Any attempt otherwise to propagate or
901modify it is void, and will automatically terminate your rights under
902this License (including any patent licenses granted under the third
903paragraph of section 11).
904
905 However, if you cease all violation of this License, then your
906license from a particular copyright holder is reinstated (a)
907provisionally, unless and until the copyright holder explicitly and
908finally terminates your license, and (b) permanently, if the copyright
909holder fails to notify you of the violation by some reasonable means
910prior to 60 days after the cessation.
911
912 Moreover, your license from a particular copyright holder is
913reinstated permanently if the copyright holder notifies you of the
914violation by some reasonable means, this is the first time you have
915received notice of violation of this License (for any work) from that
916copyright holder, and you cure the violation prior to 30 days after
917your receipt of the notice.
918
919 Termination of your rights under this section does not terminate the
920licenses of parties who have received copies or rights from you under
921this License. If your rights have been terminated and not permanently
922reinstated, you do not qualify to receive new licenses for the same
923material under section 10.
924
925 9. Acceptance Not Required for Having Copies.
926
927 You are not required to accept this License in order to receive or
928run a copy of the Program. Ancillary propagation of a covered work
929occurring solely as a consequence of using peer-to-peer transmission
930to receive a copy likewise does not require acceptance. However,
931nothing other than this License grants you permission to propagate or
932modify any covered work. These actions infringe copyright if you do
933not accept this License. Therefore, by modifying or propagating a
934covered work, you indicate your acceptance of this License to do so.
935
936 10. Automatic Licensing of Downstream Recipients.
937
938 Each time you convey a covered work, the recipient automatically
939receives a license from the original licensors, to run, modify and
940propagate that work, subject to this License. You are not responsible
941for enforcing compliance by third parties with this License.
942
943 An "entity transaction" is a transaction transferring control of an
944organization, or substantially all assets of one, or subdividing an
945organization, or merging organizations. If propagation of a covered
946work results from an entity transaction, each party to that
947transaction who receives a copy of the work also receives whatever
948licenses to the work the party's predecessor in interest had or could
949give under the previous paragraph, plus a right to possession of the
950Corresponding Source of the work from the predecessor in interest, if
951the predecessor has it or can get it with reasonable efforts.
952
953 You may not impose any further restrictions on the exercise of the
954rights granted or affirmed under this License. For example, you may
955not impose a license fee, royalty, or other charge for exercise of
956rights granted under this License, and you may not initiate litigation
957(including a cross-claim or counterclaim in a lawsuit) alleging that
958any patent claim is infringed by making, using, selling, offering for
959sale, or importing the Program or any portion of it.
960
961 11. Patents.
962
963 A "contributor" is a copyright holder who authorizes use under this
964License of the Program or a work on which the Program is based. The
965work thus licensed is called the contributor's "contributor version".
966
967 A contributor's "essential patent claims" are all patent claims
968owned or controlled by the contributor, whether already acquired or
969hereafter acquired, that would be infringed by some manner, permitted
970by this License, of making, using, or selling its contributor version,
971but do not include claims that would be infringed only as a
972consequence of further modification of the contributor version. For
973purposes of this definition, "control" includes the right to grant
974patent sublicenses in a manner consistent with the requirements of
975this License.
976
977 Each contributor grants you a non-exclusive, worldwide, royalty-free
978patent license under the contributor's essential patent claims, to
979make, use, sell, offer for sale, import and otherwise run, modify and
980propagate the contents of its contributor version.
981
982 In the following three paragraphs, a "patent license" is any express
983agreement or commitment, however denominated, not to enforce a patent
984(such as an express permission to practice a patent or covenant not to
985sue for patent infringement). To "grant" such a patent license to a
986party means to make such an agreement or commitment not to enforce a
987patent against the party.
988
989 If you convey a covered work, knowingly relying on a patent license,
990and the Corresponding Source of the work is not available for anyone
991to copy, free of charge and under the terms of this License, through a
992publicly available network server or other readily accessible means,
993then you must either (1) cause the Corresponding Source to be so
994available, or (2) arrange to deprive yourself of the benefit of the
995patent license for this particular work, or (3) arrange, in a manner
996consistent with the requirements of this License, to extend the patent
997license to downstream recipients. "Knowingly relying" means you have
998actual knowledge that, but for the patent license, your conveying the
999covered work in a country, or your recipient's use of the covered work
1000in a country, would infringe one or more identifiable patents in that
1001country that you have reason to believe are valid.
1002
1003 If, pursuant to or in connection with a single transaction or
1004arrangement, you convey, or propagate by procuring conveyance of, a
1005covered work, and grant a patent license to some of the parties
1006receiving the covered work authorizing them to use, propagate, modify
1007or convey a specific copy of the covered work, then the patent license
1008you grant is automatically extended to all recipients of the covered
1009work and works based on it.
1010
1011 A patent license is "discriminatory" if it does not include within
1012the scope of its coverage, prohibits the exercise of, or is
1013conditioned on the non-exercise of one or more of the rights that are
1014specifically granted under this License. You may not convey a covered
1015work if you are a party to an arrangement with a third party that is
1016in the business of distributing software, under which you make payment
1017to the third party based on the extent of your activity of conveying
1018the work, and under which the third party grants, to any of the
1019parties who would receive the covered work from you, a discriminatory
1020patent license (a) in connection with copies of the covered work
1021conveyed by you (or copies made from those copies), or (b) primarily
1022for and in connection with specific products or compilations that
1023contain the covered work, unless you entered into that arrangement,
1024or that patent license was granted, prior to 28 March 2007.
1025
1026 Nothing in this License shall be construed as excluding or limiting
1027any implied license or other defenses to infringement that may
1028otherwise be available to you under applicable patent law.
1029
1030 12. No Surrender of Others' Freedom.
1031
1032 If conditions are imposed on you (whether by court order, agreement or
1033otherwise) that contradict the conditions of this License, they do not
1034excuse you from the conditions of this License. If you cannot convey a
1035covered work so as to satisfy simultaneously your obligations under this
1036License and any other pertinent obligations, then as a consequence you may
1037not convey it at all. For example, if you agree to terms that obligate you
1038to collect a royalty for further conveying from those to whom you convey
1039the Program, the only way you could satisfy both those terms and this
1040License would be to refrain entirely from conveying the Program.
1041
1042 13. Use with the GNU Affero General Public License.
1043
1044 Notwithstanding any other provision of this License, you have
1045permission to link or combine any covered work with a work licensed
1046under version 3 of the GNU Affero General Public License into a single
1047combined work, and to convey the resulting work. The terms of this
1048License will continue to apply to the part which is the covered work,
1049but the special requirements of the GNU Affero General Public License,
1050section 13, concerning interaction through a network will apply to the
1051combination as such.
1052
1053 14. Revised Versions of this License.
1054
1055 The Free Software Foundation may publish revised and/or new versions of
1056the GNU General Public License from time to time. Such new versions will
1057be similar in spirit to the present version, but may differ in detail to
1058address new problems or concerns.
1059
1060 Each version is given a distinguishing version number. If the
1061Program specifies that a certain numbered version of the GNU General
1062Public License "or any later version" applies to it, you have the
1063option of following the terms and conditions either of that numbered
1064version or of any later version published by the Free Software
1065Foundation. If the Program does not specify a version number of the
1066GNU General Public License, you may choose any version ever published
1067by the Free Software Foundation.
1068
1069 If the Program specifies that a proxy can decide which future
1070versions of the GNU General Public License can be used, that proxy's
1071public statement of acceptance of a version permanently authorizes you
1072to choose that version for the Program.
1073
1074 Later license versions may give you additional or different
1075permissions. However, no additional obligations are imposed on any
1076author or copyright holder as a result of your choosing to follow a
1077later version.
1078
1079 15. Disclaimer of Warranty.
1080
1081 THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
1082APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
1083HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
1084OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
1085THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
1086PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
1087IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
1088ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
1089
1090 16. Limitation of Liability.
1091
1092 IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
1093WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
1094THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
1095GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
1096USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
1097DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
1098PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
1099EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
1100SUCH DAMAGES.
1101
1102 17. Interpretation of Sections 15 and 16.
1103
1104 If the disclaimer of warranty and limitation of liability provided
1105above cannot be given local legal effect according to their terms,
1106reviewing courts shall apply local law that most closely approximates
1107an absolute waiver of all civil liability in connection with the
1108Program, unless a warranty or assumption of liability accompanies a
1109copy of the Program in return for a fee.
1110
1111 END OF TERMS AND CONDITIONS
1112 </textarea>
1113 <p>
1114 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
1115 <input type='checkbox' name='gpl_accepted' value='1'/> $Lang::tr{'gpl i accept these terms and conditions'}.
1116 <br/ >
1117 <input type='submit' name='ACTION' value=$Lang::tr{'yes'} />
1118 </form>
1119 </p>
1120 <a href='http://www.gnu.org/licenses/translations.html' target="_blank">$Lang::tr{'gpl unofficial translation of the general public license v3'}</a>
1121
1122END
1123
1124&Header::closebox();
1125}
1126
ac1cfefa 1127&Header::closebigbox();
ac1cfefa 1128&Header::closepage();