Traewelling: replace legacy password login with OAuth2

This is a breaking change insofar as that traewelling support is no longer
provided automatically, but must be enabled by providing a traewelling.de
application ID and secret in travelynx.conf. However, as traewelling.de
password login is deprecated and wil soon be disabled, travelynx would break
either way. So we might or might not see travelynx 2.0.0 in the next days.

Automatic token refresh is still todo, but that was the case for password
login as well.

Closes #64

1 files changed, 0 insertions, 78 deletions

diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm
index 23170eb..18edc18 100644
--- a/lib/Travelynx/Helper/Traewelling.pm
+++ b/lib/Travelynx/Helper/Traewelling.pm
@@ -199,84 +199,6 @@ sub get_user_p {
 	return $promise;
 }
 
-sub login_p {
-	my ( $self, %opt ) = @_;
-
-	my $uid      = $opt{uid};
-	my $email    = $opt{email};
-	my $password = $opt{password};
-
-	my $ua = $self->{user_agent}->request_timeout(20);
-
-	my $request = {
-		login    => $email,
-		password => $password,
-	};
-
-	my $promise = Mojo::Promise->new;
-	my $token;
-
-	$ua->post_p(
-		"https://traewelling.de/api/v1/auth/login" => $self->{header},
-		json                                       => $request
-	)->then(
-		sub {
-			my ($tx) = @_;
-			if ( my $err = $tx->error ) {
-				my $err_msg
-				  = "v1/auth/login: HTTP $err->{code} $err->{message}";
-				$promise->reject($err_msg);
-				return;
-			}
-			else {
-				my $res = $tx->result->json->{data};
-				$token = $res->{token};
-				my $expiry_dt = $self->parse_datetime( $res->{expires_at} );
-
-				# Fall back to one year expiry
-				$expiry_dt //= DateTime->now( time_zone => 'Europe/Berlin' )
-				  ->add( years => 1 );
-				$self->{model}->link(
-					uid     => $uid,
-					email   => $email,
-					token   => $token,
-					expires => $expiry_dt
-				);
-				return $self->get_user_p( $uid, $token );
-			}
-		}
-	)->then(
-		sub {
-			$promise->resolve;
-			return;
-		}
-	)->catch(
-		sub {
-			my ($err) = @_;
-			if ($token) {
-
-				# We have a token, but couldn't complete the login. For now, we
-				# solve this by logging out and invalidating the token.
-				$self->logout_p(
-					uid   => $uid,
-					token => $token
-				)->finally(
-					sub {
-						$promise->reject("v1/auth/login: $err");
-						return;
-					}
-				);
-			}
-			else {
-				$promise->reject("v1/auth/login: $err");
-			}
-			return;
-		}
-	)->wait;
-
-	return $promise;
-}
-
 sub logout_p {
 	my ( $self, %opt ) = @_;