]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/gpl.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007-2012 IPFire Team <info@ipfire.org> #
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. #
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. #
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/>. #
20 ###############################################################################
23 # enable only the following on debugging purpose
25 #use CGI::Carp 'fatalsToBrowser';
27 require '/var/ipfire/general-functions.pl' ;
28 require "${General::swroot}/lang.pl" ;
29 require "${General::swroot}/header.pl" ;
30 require "/opt/pakfire/lib/functions.pl" ;
32 # If the license has already been accepted.
33 if ( - e
"/var/ipfire/main/gpl_accepted" ) {
38 $cgiparams { 'ACTION' } = '' ;
40 & Header
:: getcgihash
( \
%cgiparams );
42 # Check if the license agreement has been accepted.
43 if ( $cgiparams { 'ACTION' } eq " $Lang ::tr{'yes'}" && $cgiparams { 'gpl_accepted' } eq '1' ) {
44 open ( FILE
, ">/var/ipfire/main/gpl_accepted" );
50 & Header
:: showhttpheaders
();
52 & Header
:: openpage
( $Lang :: tr
{ 'main page' }, 1 );
53 & Header
:: openbigbox
( '' , 'center' );
55 & Header
:: openbox
( '100%' , 'left' , $Lang :: tr
{ 'gpl license agreement' });
57 $Lang ::tr{'gpl please read carefully the general public license and accept it below'}.
61 if ( - e
"/usr/share/doc/licenses/GPLv3" ) {
62 print '<textarea rows= \' 25 \' cols= \' 75 \' readonly= \' readonly \' >' ;
63 print `cat /usr/share/doc/licenses/GPLv3` ;
67 print '<br /><a href= \' http://www.gnu.org/licenses/gpl-3.0.txt \' target= \' _blank \' >GNU GENERAL PUBLIC LICENSE</a><br />' ;
71 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
72 <input type='checkbox' name='gpl_accepted' value='1'/> $Lang ::tr{'gpl i accept these terms and conditions'}.
74 <input type='submit' name='ACTION' value= $Lang ::tr{'yes'} />
77 <a href='http://www.gnu.org/licenses/translations.html' target='_blank'> $Lang ::tr{'gpl unofficial translation of the general public license v3'}</a>
82 & Header
:: closebigbox
();
86 print "Status: 302 Moved Temporarily \n " ;
87 print "Location: index.cgi \n\n " ;