package Anmelden; # # SPDX-License-Identifier: AGPL-3.0-or-later # Copyright (c) Rainer Gümpelein, TeilRad GmbH # use strict; use warnings; use CGI ':standard'; use Lib::Config; use Mod::Buttons; use Mod::Libenz; use Mod::Libenzdb; use Mod::DBtank; use Mod::APIfunc; use Mod::Pricing; sub new { my $class = shift; my $self = {}; bless($self,$class); return $self; } #Template sub tpl(){ my $node_meta = shift; my $users_dms = shift || ""; my $mode = shift || ""; my $varenv = shift; my $users_sharee = shift || ""; my $return = shift || ""; my $q = new CGI; my $cf = new Config; my $lb = new Libenz; my $db = new Libenzdb; my $dbt = new DBtank; my $apif = new APIfunc; my $but = new Buttons; my $pri = new Pricing; my $script = $q->script_name(); my $user_agent = $q->user_agent(); my $path_info = $q->path_info(); my $path = $path_info; my $clientIP = $q->remote_addr(); #with meta_host, if("$varenv->{metahost}"){ $path = "$script" . "$path_info"; $script=""; } my %ib = $but->ibuttons_arch(); my $tpl = $db->get_tpl($node_meta->{tpl_id}); my @tpl_order = split /,/,$tpl->{tpl_order}; my $coo = $q->cookie(-name=>'domcookie') || ""; my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/); my $bgcolor1 = "009899";#sharee #my $bgcolor1 = "e2001a"; $bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1} if($dbt->{website}->{$varenv->{syshost}}->{bgcolor1}); $bgcolor1 = $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1} if($dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1}); print "
\n"; if($viewsel[1] eq "Account"){ if($R::sharee_edit =~ /delete_account/){ my $dummy; }elsif($R::sharee_edit =~ /password_forgotten/){ print $q->div({-class=>'content2'}, "Es wurde eine Nachricht mit zurueckgesetzten Passwort an $R::email gesendet. Ersetzen Sie bitte das gesendete Passwort durch ein individuelles. Das neue Passwort muss min. 8 Zeichen mit 2 Zeichen ausserhalb des Alphabets beinhalten."),"\n"; } } print $q->start_multipart_form(-id=>'authform', -name=>'loginscreen'),"\n"; print $q->hidden(-name=>"merchant_id",-override=>1,-value=>"$varenv->{merchant_id}") if($varenv->{merchant_id}); print $q->hidden(-name=>"sessionid",-override=>1,-value=>"$R::sessionid") if($R::sessionid); print $q->hidden(-name=>"clientIP",-override=>1,-value=>"$clientIP"); print "
\n"; if($users_sharee->{c_id} && !$users_sharee->{int04} && $R::sharee_edit !~ /delete_account/){ print $q->div({-class=>'content1',-style=>'padding-top:1em;'}, "E-Mail Bestätigung"),"\n"; print $q->div({-class=>'content2'}, "Wir haben eine Nachricht an Ihre angegebene E-Mail Adresse versandt. Nach erfolgreicher Bestätigung können Sie unser Mietradsystem nutzen."),"\n"; print $q->div({-class=>'content2'},$q->a({-href=>"$varenv->{wwwhost}?sharee_edit=send_email"},"Senden wiederholen")),"\n"; #Account löschen }elsif($viewsel[1] eq "Account" && $R::sharee_edit =~ /delete_account/){ if($R::sharee_edit eq "delete_account1" && $users_sharee->{c_id}){ # my ($ctpos,$operator_hash) = $apif->user_rentals_history($q,$users_sharee); my $ctpos_count = 0; my $sum = 0; foreach my $id (keys(%$ctpos)){ $ctpos_count++; my $gesamt = 0; my $rabatt = ""; ($gesamt,$rabatt) = $pri->price2calc($ctpos->{$id}); $sum += $gesamt; } $sum = $lb->round($sum); if($ctpos_count > 0 && $sum > 0){ print $q->div({-class=>'content2'}, "Ihr Konto ist nicht ausgeglichen ($sum). Bitte kontaktieren Sie uns damit wir Ihre Rechnungstellung beschleunigen. Anschließend können Sie Ihren Account löschen. Danke für Ihr Verständnis"),"\n"; print $q->div({-style=>'margin-top:1em;'},$q->a({-class=>"btn btn-primary btn-lg btn-block",-href=>'javascript:history.back()'}, "zurück")),"\n"; }else{ print $q->div({-class=>'content2'}, "Wollen Sie wirklich Ihre Daten löschen?"),"\n"; print $q->div({-style=>'margin-top:1em;'},""),"\n"; } }elsif($R::sharee_edit eq "delete_account2" && $users_sharee->{c_id}){ my $rows = 0; $rows = $dbt->update_operatorsloop($varenv->{dbname},$users_sharee->{c_id},"delete");#only operator $rows += $dbt->delete_content("","contentadr",$users_sharee->{c_id});#final delete on primary if($rows >= 1){ print $q->div({-class=>'content2'}, "Ihr Zugang wurde gelöscht.
Auf Wiedersehen."),"\n"; }else{ print $q->div({-class=>'content2'}, "Anscheinend ist hier etwas schief gelaufen.
Bitte kontaktieren Sie uns damit wir das Problem lösen können."),"\n"; } } #Passwort senden }elsif($viewsel[1] eq "Account" && !$R::password_forgotten){ print $q->div({-class=>'content2'}, "Wir benötigen dazu Ihre registrierte E-Mail Adresse."),"\n"; print $q->label({-for=>'Email'},""),"\n"; print $q->textfield(-class=>'form-control', -name=>'email', -value=>'', -override=>1, -type=>'email',-class=>'form-control', -id=>'Email', -placeholder=>'E-Mail Adresse', -required=>1, -autofocus=>1),"\n"; print $q->hidden(-name=>'password_forgotten',-value=>"1"); print $q->div({-style=>'margin-top:1em;'},""),"\n"; #Login }elsif(!$R::password_forgotten){ if($R::conflict_failure){ print $q->div({-class=>'content2',-style=>'color:#c83434'},"Uhps - da hat etwas nicht funktioniert!"),"\n"; print $q->div({-class=>'content2'}, "Entweder sind die von Ihnen eingetragenen Daten unvollständig; dann loggen Sie sich bitte mit der von Ihnen hinterlegten E-Mail-Adresse und Passwort wieder ein und vervollständigen das Formular.

Oder es besteht bereits ein Account mit Ihrer E-Mail-Adresse oder Telefonnummer und Sie haben Ihr Passwort vergessen? Dann schicken wir Ihnen gerne ein neues Passwort zu: klicken Sie auf
"),"\n"; #Bitte beachten Sie: nach 60 Minuten verfallen unbestätigte Formulare und Zugangsdaten. print $q->div($q->a({-style=>"background-color:#ffffff;color:#$bgcolor1;font-size:1.1em;text-decoration:none;", -role=>'button', -href=>"$varenv->{wwwhost}/$varenv->{mandant}/Account"}, 'Neues Passwort anfordern')),"\n"; print $q->div({-class=>'content2'}, "Sollte es noch immer nicht klappen, dann nehmen Sie Kontakt mit uns auf."),"\n"; } print $q->div({-class=>'content2',-style=>'font-size:1.2em;'}, "Anmelden"),"\n"; print $q->div({-style=>'color:#c83434'},"Login verweigert. ",$q->a({-class=>"", -style=>"color:gray;", -role=>"button", -href=>"$varenv->{wwwhost}/$varenv->{mandant}/Account"}, "Neues Passwort anfordern")),"\n" if($R::failure); print $q->div({-style=>'color:#c83434'},"Login verweigert. "),"\n" if($R::basicauthfailure); print $q->label({-for=>'Email'},""),"\n"; print $q->textfield(-class=>'form-control', -name=>'user_id', -value=>'', -override=>1, -type=>'email',-class=>'form-control', -id=>'Email', -placeholder=>'E-Mail Adresse', -required=>1, -autofocus=>1),"\n"; print $q->label({-for=>'PW'},""),"\n"; print $q->password_field(-class=>'form-control', -name=>'user_pw', -value=>'', -override=>1, -type=>'password',-class=>'form-control', -id=>'txt04', -placeholder=>'Passwort', -required=>1),"\n"; print $q->div({-style=>'text-align:left;color:grey;'}, "", "Passwort anzeigen"),"\n"; #js auth # print $q->div({-style=>'margin-top:1em;'},"
Anmelden
"),"\n"; print $q->div({-style=>'margin-top:1em;'},""),"\n"; print $q->div({-style=>'margin-top:1em;'},$q->a({-class=>"btn btn-default btn-lg btn-block", -style=>"background-color:#ffffff;color:#$bgcolor1;", -role=>"button", -href=>"$varenv->{wwwhost}/$varenv->{mandant}/Account/$varenv->{accounting_1}"}, "Neues Nutzerkonto eröffnen")),"\n"; print $q->div({-style=>'margin-top:1em;'},$q->a({-class=>"", -style=>"background-color:#ffffff;color:#$bgcolor1;font-size:1.1em;text-decoration:underline;", -role=>"button", -href=>"$varenv->{wwwhost}/$varenv->{mandant}/Account"}, "Neues Passwort anfordern")),"\n"; } print "
\n"; print $q->end_form,"\n"; print $q->div({-style=>'position:fixed;bottom:2%;right:2%;z-index:10;font-size:13px;'},"--> $varenv->{syshost} | $varenv->{merchant_id} | $bgcolor1 | $node_meta->{tpl_name} | $users_sharee->{c_id}"),"\n" if($users_sharee->{c_id} eq $dbt->{copri_conf}->{superu_id} || $dbt->{copri_conf}->{stage} eq "test"); print "
"; } 1;