mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-06-10 17:26:45 +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 = "website";
|
|
my $server_key = "shareeweb-project";
|
|
|
|
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_web}";
|
|
my $metahost = $globalconf{$server_type}{$server_key}->{operatorWeb1};
|
|
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_web},
|
|
wwwhost => $globalconf{$server_type}{$server_key}->{operatorWeb},
|
|
praefix => $globalconf{$server_type}{$server_key}{database}->{dbname},
|
|
systype => "sharee",#(azn)
|
|
mandant => $globalconf{$server_type}{$server_key}->{parent_node},
|
|
start => $globalconf{shareeapp_conf}->{start},
|
|
profile => $globalconf{shareeapp_conf}->{profile},
|
|
accounting_1 => $globalconf{shareeapp_conf}->{accounting_1},
|
|
accounting_1_5 => $globalconf{shareeapp_conf}->{accounting_1_5},
|
|
accounting_2 => $globalconf{shareeapp_conf}->{accounting_2},
|
|
accounting_3 => $globalconf{shareeapp_conf}->{accounting_3},
|
|
superu_id => $globalconf{copri_conf}->{superu_id},
|
|
debug => $globalconf{copri_conf}->{debug},
|
|
logdir => $globalconf{copri_conf}->{logdir},
|
|
metahost=>"$metahost",
|
|
orga => "",
|
|
basedir => "$basedir",
|
|
pdf => "$basedir/pdf",
|
|
pdfinvoice => "$basedir/pdfinvoice",
|
|
data => "$basedir/data",
|
|
xmlfile => "$basedir/xml",
|
|
printer => "PDF"
|
|
);
|
|
return %varenv;
|
|
}
|
|
|
|
1;
|
|
|