gpl.cgi: Grab and GPLv3 license in pure perl.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2021-05-18 19:38:02 +02:00
committed by Michael Tremer
parent 1e7c0108ab
commit 2a4b9f0eef

View File

@@ -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 {