mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-06-25 23:56:34 +02:00
65 lines
2.1 KiB
Perl
Executable file
65 lines
2.1 KiB
Perl
Executable file
package Config;
|
|
|
|
#Deprecated config file
|
|
#Please use shareeconf/*
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use Config::General;
|
|
my $q = new CGI;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = {};
|
|
bless($self,$class);
|
|
return $self;
|
|
}
|
|
|
|
sub envonline(){
|
|
my $self = shift;
|
|
|
|
my $server_type = "operator";
|
|
my $server_key = "sharee_operator";
|
|
|
|
my $globalconf_file = "/var/www/copri4/shareeconf/global.cfg";
|
|
my $conf = Config::General->new($globalconf_file);
|
|
my %globalconf = $conf->getall;
|
|
|
|
my $basedir = "$globalconf{copri_conf}->{basedir}/$globalconf{$server_type}{$server_key}->{dir_dms}";
|
|
my $metahost = $globalconf{$server_type}{$server_key}->{operatorDMS1};
|
|
|
|
my %varenv = (
|
|
dbname => $globalconf{$server_type}{$server_key}{database}->{dbname},
|
|
dbuser => $globalconf{$server_type}{$server_key}{database}->{user},
|
|
dbpassw => $globalconf{$server_type}{$server_key}{database}->{passwd},
|
|
dbhost => $globalconf{$server_type}{$server_key}{database}->{host},
|
|
syshost => $globalconf{$server_type}{$server_key}->{dir_dms},
|
|
wwwhost => $globalconf{$server_type}{$server_key}->{operatorDMS},
|
|
praefix => $globalconf{$server_type}{$server_key}{database}->{dbname},
|
|
systype => "sharee",#(azn)
|
|
mandant => $globalconf{shareedms_conf}->{parent_node},
|
|
start => $globalconf{shareedms_conf}->{start},
|
|
profile => $globalconf{shareedms_conf}->{profile},
|
|
superu_id => $globalconf{copri_conf}->{superu_id},
|
|
debug => $globalconf{copri_conf}->{debug},
|
|
logdir => $globalconf{copri_conf}->{logdir},
|
|
live_hostname => $globalconf{$server_type}{$server_key}->{live_hostname},
|
|
metahost=>"$metahost",
|
|
orga => "dms",
|
|
basedir => "$basedir",
|
|
csv => "$basedir/csv",
|
|
pdf => "$basedir/pdf",
|
|
data => "$basedir/data",
|
|
xmlfile => "$basedir/xml",
|
|
head_logo => "$metahost/img/sharee_bike_Logo.jpg",
|
|
printer => "PDF"
|
|
);
|
|
return %varenv;
|
|
|
|
}
|
|
|
|
1;
|
|
|
|
|