mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2025-05-10 05:56:27 +02:00
Initial commit
This commit is contained in:
Rainer Gümpelein
parent
b686656e88
commit
5e91fe947d
177 changed files with 41037 additions and 0 deletions
77
copri4/shareeweb-project/src/Lib/Config.pm
Normal file
77
copri4/shareeweb-project/src/Lib/Config.pm
Normal file
|
|
@ -0,0 +1,77 @@
|
|||
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{website}{'shareeweb-project'}->{dir_web}";
|
||||
my $metahost = $globalconf{website}{'shareeweb-project'}->{operatorWeb1};
|
||||
my %varenv = (
|
||||
dbname => $globalconf{website}{'shareeweb-project'}{database}->{dbname},
|
||||
dbuser => $globalconf{website}{'shareeweb-project'}{database}->{user},
|
||||
dbpassw => $globalconf{website}{'shareeweb-project'}{database}->{passwd},
|
||||
dbhost => $globalconf{website}{'shareeweb-project'}{database}->{host},
|
||||
syshost => $globalconf{website}{'shareeweb-project'}->{dir_web},
|
||||
wwwhost => $globalconf{website}{'shareeweb-project'}->{operatorWeb},
|
||||
praefix => $globalconf{website}{'shareeweb-project'}{database}->{dbname},
|
||||
systype => "sharee",#(azn)
|
||||
mandant => $globalconf{website}{'shareeweb-project'}->{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;
|
||||
|
||||
184
copri4/shareeweb-project/src/Lib/Mlogic.pm
Normal file
184
copri4/shareeweb-project/src/Lib/Mlogic.pm
Normal file
|
|
@ -0,0 +1,184 @@
|
|||
package Mlogic;
|
||||
use strict;
|
||||
use warnings;
|
||||
use CGI::Carp qw(fatalsToBrowser);
|
||||
use CGI ':standard';
|
||||
use Mod::Buttons;
|
||||
use Mod::Libenzdb;
|
||||
use Mod::DBtank;
|
||||
use Data::Dumper;
|
||||
my $q = new CGI;
|
||||
my $db = new Libenzdb;
|
||||
my $dbt = new DBtank;
|
||||
my $but = new Buttons;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my $self = {};
|
||||
bless($self,$class);
|
||||
return $self;
|
||||
}
|
||||
|
||||
#Template
|
||||
sub tpl(){
|
||||
my $self = shift;
|
||||
my ($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return) = @_;
|
||||
|
||||
my $lang = "de";
|
||||
my $debug = 0;
|
||||
$debug = 1;
|
||||
my $dbh = "";
|
||||
|
||||
my $session="";
|
||||
my $session_and="";
|
||||
if($R::sessionid && length($R::sessionid) > 20 && !$q->cookie(-name=>'domcookie')){
|
||||
$session = "?sessionid=$R::sessionid";
|
||||
$session_and = "&sessionid=$R::sessionid";
|
||||
}
|
||||
|
||||
my $bgcolor1 = "yellow";
|
||||
my $parent_node = "app";
|
||||
my $node = {};
|
||||
my $rows = 0;
|
||||
|
||||
$bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1};
|
||||
$parent_node = $dbt->{website}->{$varenv->{syshost}}->{parent_node};
|
||||
($node,$rows) = $dbt->collect_noderel($dbh,$dbt->{website}->{$varenv->{syshost}}->{parent_id});
|
||||
|
||||
if($users_sharee->{c_id} && $R::sharee_edit ne "delete_account2" && ($users_sharee->{c_id} eq $varenv->{superu_id} || $dbt->{copri_conf}->{stage} eq "test")){
|
||||
my $coo = $q->cookie('domcookie') || $q->param('sessionid') || "";
|
||||
print $q->div({-style=>'float:right;text-align:right;height:25px;padding:6px 15px;background-color:white'},$q->a({-style=>"color:#$bgcolor1;", -href=>"$varenv->{metahost}/src/scripts/tests/index.pl?sessionid=$coo", -target=>'_blank'}," [ booking-test ] ")),"\n";
|
||||
}
|
||||
|
||||
if($users_sharee->{c_id} && $R::sharee_edit ne "delete_account2"){
|
||||
print $q->div({-style=>'text-align:right;height:25px;padding:6px 15px 6px 0px;background-color:white'},"$users_sharee->{txt08}",$q->a({-style=>"color:#$bgcolor1;", -href=>"logout_sharee$session"},"logout")),"\n";
|
||||
}
|
||||
|
||||
if(1==1){
|
||||
|
||||
print "<style>
|
||||
ul#TopNavi {
|
||||
margin:20px 0;
|
||||
padding:0;
|
||||
vertical-align:top;
|
||||
border: 0px solid white;
|
||||
}
|
||||
ul#TopNavi li {
|
||||
list-style: none;
|
||||
display: inline;
|
||||
margin: 0 4px 0 0;
|
||||
}
|
||||
ul#TopNavi li a {
|
||||
transition: all 0.3s ease;
|
||||
margin: 0;
|
||||
padding: 1em 3%;
|
||||
width:100px;
|
||||
background-color: #$bgcolor1;
|
||||
text-decoration: none;
|
||||
font-weight: normal;
|
||||
color: white;
|
||||
}
|
||||
ul#TopNavi a:hover {
|
||||
color: black;
|
||||
background-color: white;
|
||||
}
|
||||
ul#TopNavi a:active {
|
||||
color: white;
|
||||
background-color: gray;
|
||||
}
|
||||
</style>";
|
||||
|
||||
my $lmenu0 = "";
|
||||
foreach my $id (sort {$node->{$a}->{n_sort} <=> $node->{$b}->{n_sort}} keys (%$node)){
|
||||
#if($node->{$id}->{main_id} && $node->{$id}->{node_name} =~ /$dbt->{shareeapp_conf}->{mod_active}/){
|
||||
$node->{$id}->{node_path} = $node->{$id}->{node_name} if(!$node->{$id}->{node_path});
|
||||
my $mstyle = "";
|
||||
#print "$node->{$id}->{main_id} eq $node_meta->{main_id}|$node_meta->{parent_id}|$node_meta->{template_id}|$node->{$id}->{node_name} - $node_meta->{node_name}<br />\n" if($debug);
|
||||
|
||||
if($node->{$id}->{main_id} == $node_meta->{main_id} || $node->{$id}->{main_id} == $node_meta->{parent_id}){
|
||||
$mstyle = "background-color:silver;color:black;";
|
||||
}
|
||||
if($node->{$id}->{node_name} eq "Anmelden" && $node_meta->{parent_id} == 200010){
|
||||
$mstyle = "background-color:silver;color:black;";
|
||||
}
|
||||
|
||||
if($node->{$id}->{node_name} eq "Anmelden" && $users_sharee->{c_id}){
|
||||
$lmenu0 .= $but->lia_button("/$parent_node/$varenv->{profile}$session","Mein Profil",$node->{$id}->{main_id},"","$mstyle",$users_dms->{u_id});
|
||||
}else{
|
||||
$lmenu0 .= $but->lia_button("/$parent_node/$node->{$id}->{node_path}",$node->{$id}->{node_name},$node->{$id}->{main_id},"","$mstyle",$users_dms->{u_id});
|
||||
}
|
||||
}
|
||||
#}
|
||||
|
||||
#print "<div class='container' style='border:0px dotted black;'>\n";
|
||||
print $q->div({-style=>'text-align:left;border:0px dotted black;'},$q->ul({-id=>'TopNavi'},$lmenu0)),"\n";
|
||||
#print "</div>\n";
|
||||
#end Topmenue
|
||||
|
||||
if(($node_meta->{tpl_id} == 1 || $node_meta->{tpl_id} == 3) && $node_meta->{main_id} == 200017){
|
||||
require "Tpl/Karte.pm";
|
||||
&Karte::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
}else{
|
||||
# print "<div class='container'>\n";
|
||||
print "<div id='Contenttxt' style='margin:40px 5px 40px 0;border:0px dotted black;'>\n";
|
||||
$self->tplselect($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
print "</div>\n";
|
||||
#print "</div>\n";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
#2021-05-05 changed to Mlogic
|
||||
sub tplselect(){
|
||||
my $self = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift || "";
|
||||
my $mode = shift || "";
|
||||
my $varenv = shift;
|
||||
my $users_sharee = shift || "";
|
||||
my $return = shift || "";
|
||||
|
||||
my $u_id = $users_dms->{u_id} || "";
|
||||
my $lang = "de";
|
||||
my $tpl_id = $node_meta->{tpl_id};
|
||||
|
||||
if($node_meta->{main_id}){
|
||||
if($tpl_id == 2){
|
||||
require "Tpl/Anmelden.pm";
|
||||
&Anmelden::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
|
||||
}elsif($tpl_id == 302 || $tpl_id == 302008 || $tpl_id == 302004){#Adresse
|
||||
require "Tpl/FormEdit.pm";
|
||||
&FormEdit::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
}elsif($tpl_id == 308){
|
||||
require "Tpl/PayoneSelect.pm";
|
||||
&PayoneSelect::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
}elsif($tpl_id == 197){
|
||||
require "Tpl/Contact.pm";
|
||||
&Contact::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
}elsif($tpl_id == 1 || $tpl_id == 3){
|
||||
require "Tpl/Listing.pm";
|
||||
&Listing::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
|
||||
#require "Tpl/ModalboxDialog.pm";
|
||||
#&ModalboxDialog::mobox2($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
print "<script type='text/javascript' src='$varenv->{metahost}/js/iframeResizer.contentWindow.min.js'></script>\n";
|
||||
|
||||
my $debug_footer = "Mlogic --> (syshost: $varenv->{syshost} | users_sharee->{c_id}: $users_sharee->{c_id} | ct_table: $node_meta->{ct_table} | parent_id: $node_meta->{parent_id} | main_id: $node_meta->{main_id} | tpl_id: $node_meta->{tpl_id} | u_id: $u_id | mode: $mode)";
|
||||
print $q->div({-style=>'position:fixed;bottom:0%;right:2%;z-index:10;font-size:13px;'},"$debug_footer"),"\n" if($users_sharee->{c_id} eq $varenv->{superu_id});
|
||||
|
||||
if($return && $return =~ /failure/){
|
||||
require "Mod/Failure.pm";
|
||||
&Failure::tpl("",$u_id,"","","","",$return);
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
1
copri4/shareeweb-project/src/Lib/PDFGenerator.pm
Symbolic link
1
copri4/shareeweb-project/src/Lib/PDFGenerator.pm
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../../main/src/Lib/PDFGenerator.pm
|
||||
1
copri4/shareeweb-project/src/Lib/Printpreview.pm
Symbolic link
1
copri4/shareeweb-project/src/Lib/Printpreview.pm
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../../main/src/Lib/Printpreview.pm
|
||||
1
copri4/shareeweb-project/src/Mod
Symbolic link
1
copri4/shareeweb-project/src/Mod
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../main/src/Mod
|
||||
1
copri4/shareeweb-project/src/Tpl
Symbolic link
1
copri4/shareeweb-project/src/Tpl
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../shareeapp-operator/src/Tpl
|
||||
1
copri4/shareeweb-project/src/scripts
Symbolic link
1
copri4/shareeweb-project/src/scripts
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../main/src/scripts
|
||||
1
copri4/shareeweb-project/src/wkhtmltopdf-amd64
Symbolic link
1
copri4/shareeweb-project/src/wkhtmltopdf-amd64
Symbolic link
|
|
@ -0,0 +1 @@
|
|||
../../main/src/wkhtmltopdf-amd64
|
||||
Loading…
Add table
Add a link
Reference in a new issue