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;