Add license

1 files changed, 22 insertions, 2 deletions

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 <https://www.gnu.org/licenses/>.
+#
+# 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 <tab><tab> to see available commands.\n";
 while ( defined ($_ = $term->readline($prompt)) ) {
 	if ($_) {