mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-26 19:00:34 +02:00
gpl.cgi: Grab and GPLv3 license in pure perl.
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
committed by
Michael Tremer
parent
1e7c0108ab
commit
2a4b9f0eef
@@ -60,7 +60,19 @@ END
|
||||
;
|
||||
if ( -e "/usr/share/doc/licenses/GPLv3" ) {
|
||||
print '<textarea rows=\'25\' cols=\'75\' readonly=\'readonly\'>';
|
||||
print `cat /usr/share/doc/licenses/GPLv3`;
|
||||
|
||||
# Open and read-in GPL file content.
|
||||
open(FILE, "/usr/share/doc/licenses/GPLv3");
|
||||
|
||||
# Grab license.
|
||||
my @license = <FILE>;
|
||||
|
||||
# Close filehandle.
|
||||
close(FILE);
|
||||
|
||||
# Print license to textarea.
|
||||
print "@license";
|
||||
|
||||
print '</textarea>';
|
||||
}
|
||||
else {
|
||||
|
||||
Reference in New Issue
Block a user