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_tour => [],
response_state => "OK, nothing todo",
agb_html => "site/agb_sharee_1.html",
privacy_html => "site/privacy_2.html",
agb_html => "site/agb_sharee_2.html",
privacy_html => "site/privacy_sharee_2.html",
impress_html => "site/impress_1.html",
tariff_info_html => "site/tariff_info.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";
#if($varenv{debug}){
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
if(1==2){
@ -51,7 +51,7 @@ sub log {
#also to stdout
if($stdout){
#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 $ctf = $db->get_content1("contentuser","$mandant_main_id");
$ctf->{txt01} = $q->unescapeHTML("$ctf->{txt01}");
my @txt11 = split (/;/,"$ctf->{txt11}");#www
my @txt19 = split (/;/,"$footer_bank");#Fußzeile
my @txt11 = split (/;/,"$ctf->{txt11}");#Tel usw.
my @txt12 = split (/;/,"$ctf->{txt12}");#Geschäftsführer
my @txt19 = split (/;/,"$footer_bank");#Bank usw.
$top *= $site;
my $top2 = $top + 120;
@ -672,13 +673,13 @@ td {
print "<td style='width:25%;'>";
print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "KONTAKT:","\n");
print $q->td({-class=>'tdpdf2'}, "Geschäftsführer:","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt01}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[0]","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt04}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[1]","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt05}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[2]","\n");
print $q->end_table;
print "</td>";

View file

@ -286,7 +286,7 @@ sub save_account(){
fetch => "one",
template_id => "228",
int03 => ">::0",
ct_name => "$bonusnr",
ct_name => "ilike::$bonusnr",
};
my $bonus_record = $dbt->fetch_record($dbh_operator,$pref_bo);
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")){
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_kn"; my $bike="KN205";
#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";
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_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.";
my $bonus_saved = "Gespeicherte Bonusnummer:";
my $bonus_saved = "Aktiviert:";
#sharee.bike text
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_avail = "Der Freischaltcode ist nicht vorhanden.";
$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 = {};
$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 = {};
$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"){
$sharee_agb_text->{txt01} = "<iframe src='$varenv->{wwwhost}/site/agb_konrad_1.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>";