remove unused modules

4 files changed, 0 insertions, 353 deletions

diff --git a/MANIFEST b/MANIFEST
index 51e723e..8cfea13 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -16,7 +16,6 @@ lib/JWebmail/Plugin/I18N2/INI.pm
 lib/JWebmail/Plugin/I18N2/Maketext.pm
 lib/JWebmail/Plugin/I18N2/Role.pm
 lib/JWebmail/Plugin/I18N2.pm
-lib/JWebmail/Plugin/INIConfig.pm
 lib/JWebmail/Plugin/Paginate.pm
 lib/JWebmail/Plugin/ServerSideSessionData.pm
 lib/JWebmail/Plugin/TOMLConfig.pm
diff --git a/confninja.sh b/confninja.sh
index e5fb52e..c60bf1c 100644
--- a/confninja.sh
+++ b/confninja.sh
@@ -155,7 +155,6 @@ JWebmail/Plugin/I18N2/INI.pm
 JWebmail/Plugin/I18N2/Maketext.pm
 JWebmail/Plugin/I18N2/Role.pm
 JWebmail/Plugin/I18N2.pm
-JWebmail/Plugin/INIConfig.pm
 JWebmail/Plugin/Paginate.pm
 JWebmail/Plugin/ServerSideSessionData.pm
 JWebmail/Plugin/TOMLConfig.pm
diff --git a/lib/JWebmail/Plugin/I18N.pm b/lib/JWebmail/Plugin/I18N.pm
deleted file mode 100644
index 55b1a39..0000000
--- a/lib/JWebmail/Plugin/I18N.pm
+++ /dev/null
@@ -1,215 +0,0 @@
-package JWebmail::Plugin::I18N;
-
-use Mojo::Base 'Mojolicious::Plugin';
-
-use Mojolicious::Controller;
-use Mojo::File;
-use Mojo::Util 'monkey_patch';
-
-use Config::Tiny;
-
-
-has '_language_loaded' => sub { {} };
-
-
-sub register {
-    my ($self, $app, $conf) = @_;
-    $conf //= {};
-
-    my $i18n_log = $app->log->context('[' . __PACKAGE__ . ']');
-
-    # config
-    # 1. what languages
-    # 2. where are the files
-    # 3. fallback language
-    #
-    # look for languages automatically
-    my $defaultLang = $conf->{default_language} || 'en';
-    my $fileLocation = $conf->{directory} && Mojo::File->new($conf->{directory})->is_abs
-                       ? $conf->{directory}
-                       : $app->home->child($conf->{directory} || 'lang');
-    my @languages = keys %{$conf->{languages} // {}};
-
-    unless (@languages) {
-        @languages = map { $_ =~ s|^.*/(..)\.lang$|$1|r } glob("$fileLocation/*.lang");
-    }
-
-    $app->defaults(lang => $defaultLang);
-    $app->defaults(languages => [@languages]);
-
-    # load languages
-    my $TXT;
-    for my $l (@languages) {
-        $TXT->{$l} = _loadi18n($fileLocation, $l, $i18n_log);
-    }
-
-    {
-        local $" = ',';
-        $i18n_log->info("loaded languages (@languages)");
-    }
-
-    $self->_language_loaded( { map { $_ => 1 } @languages } );
-
-    # add translator as helper
-    my $i18n = sub {
-        my ($lang, $word) = @_;
-        $TXT->{$lang}{$word} || scalar(
-            local $" = ' ',
-            $lang && $word ? $app->log->warn('[' . __PACKAGE__ . "] missing translation for $lang:$word @{[ caller(2) ]}[0..2]") : (),
-            '',
-        )
-    };
-    $app->helper( l => sub { my $c = shift; $i18n->($c->stash->{lang}, shift) } );
-
-    # rewrite url
-    $app->hook(before_dispatch => sub { $self->read_language_hook(@_) });
-
-    # patch url_for
-    my $mojo_url_for = Mojolicious::Controller->can('url_for');
-    my $i18n_url_for = sub {
-        my $c = shift;
-        my $url = $mojo_url_for->($c, @_);
-
-        my $args = (ref $_[0] eq 'HASH' and $_[0]) || (ref $_[1] eq 'HASH' and $_[1]) || do { my %x = @_[(@_ % 2) .. $#_]; \%x };
-        my $lang = $args->{lang} // $c->stash->{lang};
-
-        if ( $lang && (ref $_[0] eq 'HASH' || !ref $_[0] && ($_[0]//'') !~ m![:@/.]!) ) {
-            unshift @{ $url->path->parts }, $lang
-                if ($url->path->parts->[0] // '') ne $lang;
-            $url = $url->to_abs(Mojo::URL->new('/'));
-        }
-
-        return $url;
-    };
-    monkey_patch 'Mojolicious::Controller', url_for => $i18n_url_for;
-
-    0
-}
-
-
-sub read_language_hook {
-    my $self = shift;
-    my $c = shift;
-
-    # URL detection
-    if (my $path = $c->req->url->path) {
-
-        my $part = $path->parts->[0];
-
-        if ( $part && $self->_language_loaded->{$part} ) {
-            # Ignore static files
-            return if $c->res->code;
-
-            $c->app->log->debug('[' . __PACKAGE__ . "] Found language $part in URL $path");
-
-            # Save lang in stash
-            $c->stash(lang => $part);
-
-            if ( @{ $path->parts } == 1 && !$path->trailing_slash ) {
-                return $c->redirect_to($c->req->url->path->trailing_slash(1)); # default controller adds language back
-            }
-
-            # Clean path
-            shift @{$path->parts};
-            $path->trailing_slash(0);
-        }
-    }
-}
-
-
-sub _loadi18n {
-
-    my $langsubdir = shift;
-    my $lang = shift;
-    my $log = shift;
-
-    my $langFile = "$langsubdir/$lang.lang";
-    my $TXT;
-
-    if ( -f $langFile ) {
-        $TXT = Config::Tiny->read($langFile, 'utf8')->{'_'};
-        if ($@ || !defined $TXT) {
-            $log->error("error reading file $langFile: $@");
-        }
-    }
-    else {
-        $log->warn("language file $langFile does not exist!");
-    }
-    return $TXT;
-}
-
-
-1
-
-__END__
-
-=encoding utf8 
-
-=head1 NAME
-
-JWebmail::Plugin::I18N - Custom Made I18N Support Inspired by Mojolicious::Plugin::I18N
-
-=head1 SYNOPSIS
-
-  $app->plugin('I18N', {
-    languages => [qw(en de es)],
-    default_language => 'en',
-    directory => '/path/to/language/files/',
-  })
-
-  # in your controller
-  $c->l('hello')
-
-  # in your templates
-  <%= l 'hello' %>
-
-  @@ de.lang
-  login = anmelden
-  userid = nuzerkennung
-  passwd = passwort
-  failed = fehlgeschlagen
-  about = über
-
-  example.com/de/myroute # $c->stash('lang') eq 'de'
-  example.com/myroute    # $c->stash('lang') eq $defaultLanguage
-
-  # on example.com/de/myroute
-  url_for('my_other_route') #=> example.com/de/my_other_route
-
-  url_for('my_other_route', lang => 'es') #=> example.com/es/my_other_route
-
-=head1 DESCRIPTION
-
-L<JWebmail::Plugin::I18N> provides I18N support.
-
-The language will be taken from the first path segment of the url.
-Be carefult with colliding routes.
-
-Mojolicious::Controller::url_for is patched so that the current language will be kept for
-router named urls.
-
-=head1 OPTIONS
-
-=head2 default_language
-
-The default language when no other information is provided.
-
-=head2 directory
-
-Directory to look for language files.
-
-=head2 languages
-
-List of allowed languages.
-Files of the pattern "$lang.lang" will be looked for.
-
-=head1 HELPERS
-
-=head2 l
-
-This is used for your translations.
-
-  $c->l('hello')
-  $app->helper('hello')->()
-
-=cut
diff --git a/lib/JWebmail/Plugin/INIConfig.pm b/lib/JWebmail/Plugin/INIConfig.pm
deleted file mode 100644
index 08e1ef1..0000000
--- a/lib/JWebmail/Plugin/INIConfig.pm
+++ /dev/null
@@ -1,136 +0,0 @@
-package JWebmail::Plugin::INIConfig;
-use Mojo::Base 'Mojolicious::Plugin::Config';
-
-use List::Util 'all';
-
-use Config::Tiny;
-
-
-sub parse {
-    my ($self, $content, $file, $conf, $_app) = @_;
-
-    my $ct = Config::Tiny->new();
-    my $config = $ct->read_string($content, 'utf8');
-    die qq{Can't parse config "$file": } . $ct->errstr unless defined $config;
-
-    $config = _process_config($config) unless $conf->{flat};
-
-    return $config;
-}
-
-
-sub _process_config {
-    my $val_prev = shift;
-    my %val = %$val_prev;
-
-    # arrayify section with number keys
-    for my $key (keys %val) {
-        if (keys %{$val{$key}} && all { $_ =~ /\d+/} keys %{$val{$key}}) {
-            my $tmp = $val{$key};
-            $val{$key} = [];
-
-            for (keys %$tmp) {
-                $val{$key}[$_] = $tmp->{$_};
-            }
-        }
-    }
-
-    # merge top section
-    my $top_section = $val{'_'};
-    delete $val{'_'};
-    for (keys %$top_section) {
-        $val{$_} = $top_section->{$_} unless $val{$_};
-    }
-
-    # make implicit nesting explicit
-    for my $key (grep { $_ =~ /^\w+(::\w+)+$/} keys %val) {
-
-        my @sections = split m/::/, $key;
-        my $x = \%val;
-        my $y;
-        for (@sections) {
-            $x->{$_} = {} unless ref $x->{$_};# eq 'HASH';
-            $y = $x;
-            $x = $x->{$_};
-        }
-        # merge
-        if (ref $val{$key} eq 'ARRAY') {
-            $y->{$sections[-1]} = [];
-            $x = $y->{$sections[-1]};
-            for ( keys @{ $val{$key} } ) {
-                $x->[$_] = $val{$key}[$_];
-            }
-        }
-        else {
-            for ( keys %{ $val{$key} } ) {
-                $x->{$_} = $val{$key}{$_};
-            }
-        }
-        delete $val{$key};
-    }
-
-    return \%val
-}
-
-
-1
-
-__END__
-
-=encoding utf-8
-
-=head1 NAME
-
-INIConfig - Reads in ini config files.
-
-=head1 SYNOPSIS
-
-  $app->plugin('INIConfig');
-
-  @@ my_app.conf
-
-  # global section
-  key = val ; line comment
-  [section]
-  other_key = other_val
-  [other::section]
-  0 = key1
-  1 = key2
-  2 = key3
-
-=head1 DESCRIPTION
-
-INI configuration is simple with limited nesting and propper comments.
-For more precise specification on the syntax see the Config::Tiny documentation
-on cpan.
-
-=head1 OPTIONS
-
-=head2 default
-
-Sets default configuration values.
-
-=head2 ext
-
-Sets file extension defaults to '.conf'.
-
-=head2 file
-
-Sets file name default '$app->moniker'.
-
-=head2 flat
-
-Keep configuration to exactly two nesting levels for all
-and disable auto array conversion.
-
-=head1 METHODS
-
-=head2 parse
-
-overrides the parse method of Mojolicious::Plugin::Config
-
-=head1 DEPENDENCIES
-
-Config::Tiny
-
-=cut