log pid and sites

This commit is contained in:
ragu 2022-07-05 11:44:00 +02:00
parent df19863a86
commit 3bb934ee18
6 changed files with 18 additions and 17 deletions

View file

@ -76,8 +76,8 @@ my $response = {
user_group => [], user_group => [],
user_tour => [], user_tour => [],
response_state => "OK, nothing todo", response_state => "OK, nothing todo",
agb_html => "site/agb_sharee_1.html", agb_html => "site/agb_sharee_2.html",
privacy_html => "site/privacy_2.html", privacy_html => "site/privacy_sharee_2.html",
impress_html => "site/impress_1.html", impress_html => "site/impress_1.html",
tariff_info_html => "site/tariff_info.html", tariff_info_html => "site/tariff_info.html",
bike_info_html => "site/bike_info_sharee_1.html", bike_info_html => "site/bike_info_sharee_1.html",

View file

@ -39,7 +39,7 @@ sub log {
my $logfile = "/var/log/copri4/$varenv{syshost}-process.log"; my $logfile = "/var/log/copri4/$varenv{syshost}-process.log";
#if($varenv{debug}){ #if($varenv{debug}){
if(1==1){ if(1==1){
warn "$what" . "\n" . Dumper($message) . "\n";#to apache2/error.log warn "$$ $what" . "\n" . Dumper($message) . "\n";#to apache2/error.log
#2021-07-21 disabled. error.log is enough #2021-07-21 disabled. error.log is enough
if(1==2){ if(1==2){
@ -51,7 +51,7 @@ sub log {
#also to stdout #also to stdout
if($stdout){ if($stdout){
#print "\n--- $now_dt $0 ---\n"; #print "\n--- $now_dt $0 ---\n";
print "$what" . "\n" . Dumper($message) . "\n"; print "$$ $what" . "\n" . Dumper($message) . "\n";
} }
} }

View file

@ -651,8 +651,9 @@ td {
my ($mandant_main_id,$top,$site,$site_all,$wc,$footer_bank,$logo) = @_; my ($mandant_main_id,$top,$site,$site_all,$wc,$footer_bank,$logo) = @_;
my $ctf = $db->get_content1("contentuser","$mandant_main_id"); my $ctf = $db->get_content1("contentuser","$mandant_main_id");
$ctf->{txt01} = $q->unescapeHTML("$ctf->{txt01}"); $ctf->{txt01} = $q->unescapeHTML("$ctf->{txt01}");
my @txt11 = split (/;/,"$ctf->{txt11}");#www my @txt11 = split (/;/,"$ctf->{txt11}");#Tel usw.
my @txt19 = split (/;/,"$footer_bank");#Fußzeile my @txt12 = split (/;/,"$ctf->{txt12}");#Geschäftsführer
my @txt19 = split (/;/,"$footer_bank");#Bank usw.
$top *= $site; $top *= $site;
my $top2 = $top + 120; my $top2 = $top + 120;
@ -672,13 +673,13 @@ td {
print "<td style='width:25%;'>"; print "<td style='width:25%;'>";
print $q->start_table({-border=>'0',-align=>'left'}); print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr(); print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "KONTAKT:","\n"); print $q->td({-class=>'tdpdf2'}, "Geschäftsführer:","\n");
print $q->Tr(); print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt01}","\n"); print $q->td({-class=>'tdpdf2'}, "$txt12[0]","\n");
print $q->Tr(); print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt04}","\n"); print $q->td({-class=>'tdpdf2'}, "$txt12[1]","\n");
print $q->Tr(); print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt05}","\n"); print $q->td({-class=>'tdpdf2'}, "$txt12[2]","\n");
print $q->end_table; print $q->end_table;
print "</td>"; print "</td>";

View file

@ -286,7 +286,7 @@ sub save_account(){
fetch => "one", fetch => "one",
template_id => "228", template_id => "228",
int03 => ">::0", int03 => ">::0",
ct_name => "$bonusnr", ct_name => "ilike::$bonusnr",
}; };
my $bonus_record = $dbt->fetch_record($dbh_operator,$pref_bo); my $bonus_record = $dbt->fetch_record($dbh_operator,$pref_bo);
my $bonus_collect = {};#will be hash on matchin SWK bonus my $bonus_collect = {};#will be hash on matchin SWK bonus

View file

@ -42,11 +42,11 @@ sub tpl(){
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" || $users_sharee->{txt08} eq "sigo\@sharee.bike")){ 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" || $users_sharee->{txt08} eq "sigo\@sharee.bike")){
my $coo = $q->cookie('domcookie') || $q->param('sessionid') || ""; my $coo = $q->cookie('domcookie') || $q->param('sessionid') || "";
#my $api_test = "sharee_fr01"; my $bike="FR1538"; my $api_test = "sharee_fr01"; my $bike="FR1538";
#my $api_test = "sharee_fr01"; my $bike="FR4781";#Tracking and BVB test #my $api_test = "sharee_fr01"; my $bike="FR4781";#Tracking and BVB test
#my $api_test = "sharee_kn"; my $bike="KN205"; #my $api_test = "sharee_kn"; my $bike="KN205";
#my $api_test = "sharee_wue"; my $bike="WUE5525"; #my $api_test = "sharee_wue"; my $bike="WUE5525";
my $api_test = "sharee_sx"; my $bike="S3X1001"; #my $api_test = "sharee_sx"; my $bike="S3X1001";
#my $api_test = "sharee_ren"; my $bike="REN2"; #my $api_test = "sharee_ren"; my $bike="REN2";
print $q->div({-style=>'float:right;text-align:right;height:25px;padding:6px 15px;background-color:white'},$q->a({-style=>"background-color:#ffffff;color:#$bgcolor1;", -href=>"$varenv->{metahost}/src/scripts/tests/index.pl?sessionid=$coo\&api_test=$api_test\&bike=$bike", -target=>'_blank'}," [ tests --> $api_test ] "),"$users_sharee->{txt08}",$q->a({-style=>"color:#$bgcolor1;", -href=>"logout_sharee$session"},"logout")),"\n"; print $q->div({-style=>'float:right;text-align:right;height:25px;padding:6px 15px;background-color:white'},$q->a({-style=>"background-color:#ffffff;color:#$bgcolor1;", -href=>"$varenv->{metahost}/src/scripts/tests/index.pl?sessionid=$coo\&api_test=$api_test\&bike=$bike", -target=>'_blank'}," [ tests --> $api_test ] "),"$users_sharee->{txt08}",$q->a({-style=>"color:#$bgcolor1;", -href=>"logout_sharee$session"},"logout")),"\n";

View file

@ -84,7 +84,7 @@ sub tpl(){
my $bonus_avail = "Die Bonusnummer ist nicht vorhanden."; my $bonus_avail = "Die Bonusnummer ist nicht vorhanden.";
my $bonus_conflict = "Die Bonusnummer kann pro Registrierung nur einmal verwendet werden. So wird verhindert dass weitere Personen von den Freiminuten widerrechtlich Gebrauch nehmen.<br /> my $bonus_conflict = "Die Bonusnummer kann pro Registrierung nur einmal verwendet werden. So wird verhindert dass weitere Personen von den Freiminuten widerrechtlich Gebrauch nehmen.<br />
Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weitere Produkte (Gas, SeeConnect, Fähre- oder Bus-Zeitkarten) nutzen. Dann könnte sich die zweite Person mit der weiteren Nummer registrieren."; Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weitere Produkte (Gas, SeeConnect, Fähre- oder Bus-Zeitkarten) nutzen. Dann könnte sich die zweite Person mit der weiteren Nummer registrieren.";
my $bonus_saved = "Gespeicherte Bonusnummer:"; my $bonus_saved = "Aktiviert:";
#sharee.bike text #sharee.bike text
if($aowner == 186 || $aowner == 197){ if($aowner == 186 || $aowner == 197){
@ -92,7 +92,7 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
$bonus_ak = "Ihr Freischaltcode wurde angenommen. Bitte beachten sie dass der Freischaltcode mit einem Mietradtarif verbunden ist. Der Tarif wird bei der Mietrad Reservierung angezeigt."; $bonus_ak = "Ihr Freischaltcode wurde angenommen. Bitte beachten sie dass der Freischaltcode mit einem Mietradtarif verbunden ist. Der Tarif wird bei der Mietrad Reservierung angezeigt.";
$bonus_avail = "Der Freischaltcode ist nicht vorhanden."; $bonus_avail = "Der Freischaltcode ist nicht vorhanden.";
$bonus_conflict = "Der Freischaltcode kann nur einmal verwendet werden."; $bonus_conflict = "Der Freischaltcode kann nur einmal verwendet werden.";
$bonus_saved = "Gespeicherte Freischaltcodes:"; $bonus_saved = "Aktiviert:";
} }
@ -166,10 +166,10 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
my $sharee_agb_text = {}; my $sharee_agb_text = {};
$sharee_agb_text->{ct_name} = "AGB"; $sharee_agb_text->{ct_name} = "AGB";
$sharee_agb_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/agb_sharee_1.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>"; $sharee_agb_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/agb_sharee_2.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>";
my $sharee_privacy_text = {}; my $sharee_privacy_text = {};
$sharee_privacy_text->{ct_name} = "Datenschutzhinweise"; $sharee_privacy_text->{ct_name} = "Datenschutzhinweise";
$sharee_privacy_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/privacy_2.html' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>"; $sharee_privacy_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/privacy_sharee_2.html' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>";
if($project eq "Konstanz"){ if($project eq "Konstanz"){
$sharee_agb_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/agb_konrad_1.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>"; $sharee_agb_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/agb_konrad_1.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>";