diff options
Diffstat (limited to 'neocitiesfs.pl')
-rwxr-xr-x | neocitiesfs.pl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/neocitiesfs.pl b/neocitiesfs.pl index 4b93693..0ee4e78 100755 --- a/neocitiesfs.pl +++ b/neocitiesfs.pl @@ -1,19 +1,28 @@ #!/usr/bin/perl -w +# 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/>. +# author: jake [a\ jakes-mail dot top +# release: 29, Oct 2023 use strict; use warnings; use 5.010; use Mojo::UserAgent; use JSON; -use Data::Dumper; use Fuse qw(fuse_get_context); use POSIX qw(ENOENT EISDIR EINVAL EEXIST ENOTEMPTY EACCES EFBIG EPERM EBADF ENOSPC EMFILE ENOSYS); -use Smart::Comments; use File::Slurper qw(read_text); use Mojo::Date; -use Carp::Always; - use Getopt::Long; + my $user; my $pass; my $api; |