From 166c2f0affcdf05bcef25f833ed27c77294886ab Mon Sep 17 00:00:00 2001 From: jake Date: Tue, 1 Feb 2022 19:37:58 -0500 Subject: Add license --- gmi.pl | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) (limited to 'gmi.pl') diff --git a/gmi.pl b/gmi.pl index b295a08..5102dc0 100755 --- a/gmi.pl +++ b/gmi.pl @@ -1,6 +1,22 @@ #!/usr/bin/perl -# this is a gemini client +# This is a gemini client. +# Copyright (C) 2022 Jake Thoughts +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +# +# jake@jakes-mail.top, jjakke@sqt.wtf, jjakke@member.fsf.org (email & xmpp) use strict; use warnings; @@ -10,7 +26,7 @@ use warnings; use feature qw(refaliasing); no warnings qw(experimental::refaliasing); -our $VERSION = 'v0.0.34'; +our $VERSION = 'v1.0.0'; # TODO: # back() only works once; should fix this @@ -186,6 +202,10 @@ $term->ornaments(0); $prompt = "$current_url > "; +print $OUT "gmi.pl Copyright (C) 2022 Jake Thoughts\n"; +print $OUT "This program comes with ABSOLUTELY NO WARRANTY.\n"; +print $OUT "This is free software, and you are welcome to redisdtribute it\n"; +print $OUT "under certain conditions. See COPYING for details.\n"; print $OUT "Press to see available commands.\n"; while ( defined ($_ = $term->readline($prompt)) ) { if ($_) { -- cgit v1.2.3