MailTransport reafctoring

This commit is contained in:
Rainer Gümpelein 2022-01-14 10:49:45 +01:00
parent 9082b161de
commit 4262462fc8
8 changed files with 71 additions and 50 deletions

View file

@ -30,8 +30,10 @@ my %varenv = $cf->envonline();
my $cookie = CGI::Cookie->new(-name => 'domcookie',-value => $coo);
print $q->header(-charset=>"utf-8", -cookie=>$cookie);
}
die "no configuration available" if(!$varenv{wwwhost});
my $operator_key = $q->param('api_test');
my $lang = "de";
my $dyn_js = "
function onLoad() {
@ -149,7 +151,7 @@ print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$user_m
###
print $q->div({-style=>'margin:15px;'}," "),"\n";
my $uriop = "$dbt->{operator}->{sharee_operator}->{operatorApp}/APIjsonserver";
my $uriop = "$dbt->{operator}->{$operator_key}->{operatorApp}/APIjsonserver";
print $q->div({-style=>'margin:15px;'},"-------------- $uriop --------------------"),"\n";
my $booking_request = "$uriop?request=booking_request&bike=FR1003&authcookie=$coo";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$booking_request"},"[ booking_request ]---> $booking_request")),"\n";