sharee.bike/copri4/shareedms-operator/src/Lib/Config.pm

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;