remove cache

* remove cache, cache setup is not easy, todays servers do not really
* need it anymore
* add prototypes and fix parameter issues
* suppress redefinition
This commit is contained in:
Milan
2019-04-13 20:31:25 +02:00
parent e90ea3929d
commit d3fc5f998a
81 changed files with 3190 additions and 20267 deletions

View File

@@ -1,7 +1,8 @@
package config;
use warnings;
use strict;
use warnings;
no warnings 'redefine';
use FindBin();
use Config::General();
@@ -11,13 +12,13 @@ our @EXPORT_OK = qw(get set);
my $config = undef;
sub set {
sub set($) {
my $value = shift;
$config = $value;
return;
}
sub get {
sub get($) {
my $filename = shift;
return $config if ( defined $config ) && ( $config->{cache}->{cache_config} == 1 );