]>
git.ipfire.org Git - people/teissler/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" ;
36 if ( - e
"/var/ipfire/main/gpl_accepted" ) {
37 print "Status: 302 Moved Temporarily \n " ;
38 print "Location: index.cgi \n\n " ;
41 & Header
:: showhttpheaders
();
43 $cgiparams { 'ACTION' } = '' ;
44 & Header
:: getcgihash
( \
%cgiparams );
46 & Header
:: openpage
( $Lang :: tr
{ 'main page' }, 1 , $refresh );
47 & Header
:: openbigbox
( '' , 'center' );
50 if ( $cgiparams { 'ACTION' } eq $Lang :: tr
{ 'yes' } && $cgiparams { 'gpl_accepted' } eq '1' ) {
51 system ( 'touch /var/ipfire/main/gpl_accepted' );
54 & Header
:: openbox
( '100%' , 'left' , $Lang :: tr
{ 'gpl license agreement' });
56 $Lang ::tr{'gpl please read carefully the general public license and accept it below'}.
60 if ( - e
"/usr/share/doc/licenses/GPLv3" ) {
61 print '<textarea rows= \' 25 \' cols= \' 75 \' readonly= \' true \' >' ;
62 print `cat /usr/share/doc/licenses/GPLv3` ;
66 print '<br /><a href= \' http://www.gnu.org/licenses/gpl-3.0.txt \' target= \' _blank \' >GNU GENERAL PUBLIC LICENSE</a><br />' ;
70 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
71 <input type='checkbox' name='gpl_accepted' value='1'/> $Lang ::tr{'gpl i accept these terms and conditions'}.
73 <input type='submit' name='ACTION' value= $Lang ::tr{'yes'} />
76 <a href='http://www.gnu.org/licenses/translations.html' target='_blank'> $Lang ::tr{'gpl unofficial translation of the general public license v3'}</a>
81 & Header
:: closebigbox
();