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 $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{operator}{sharee_operator}->{dir_app}"; my $metahost = $globalconf{operator}{sharee_operator}->{operatorApp1}; my %varenv = ( dbname => $globalconf{operator}{sharee_operator}{database}->{dbname}, dbuser => $globalconf{operator}{sharee_operator}{database}->{user}, dbpassw => $globalconf{operator}{sharee_operator}{database}->{passwd}, dbhost => $globalconf{operator}{sharee_operator}{database}->{host}, syshost => $globalconf{operator}{sharee_operator}->{dir_app}, wwwhost => $globalconf{operator}{sharee_operator}->{operatorApp}, praefix => $globalconf{operator}{sharee_operator}{database}->{dbname}, systype => "sharee",#(azn) mandant => $globalconf{shareeapp_conf}->{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}, live_hostname => $globalconf{primary}{sharee_primary}->{live_hostname}, metahost=>"$metahost", orga => "", style_font => "$metahost/img/OfficinaSansITCStd-Book.otf", font_family => "OfficinaSansITCStd-Book,Arial", background_image => "", background_size => "cover", background_color => "white", background_color2 => "#c7c8ca", background_align => "center", background_repeat => "no-repeat", font_size => "100.01%", line_height => "1", basedir => "$basedir", pdf => "$basedir/pdf", pdfinvoice => "$basedir/pdfinvoice", data => "$basedir/data", xmlfile => "$basedir/xml", ftp_getfile => "ftp/SWK_codes/got_last.csv", ftp_putfile => "ftp/SWK_return/konrad_code_protokoll.csv", head_logo => "", barcode => "", printer => "PDF" ); return %varenv; } 1;