diff options
Diffstat (limited to 'gmi.pl')
| -rwxr-xr-x | gmi.pl | 24 |
1 files changed, 22 insertions, 2 deletions
@@ -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 ($_) { |