diff options
author | Daniel Friesel <derf@finalrewind.org> | 2023-01-22 12:33:02 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2023-01-22 12:33:02 +0100 |
commit | 8e94fcea5ff99023c108da0f58abb421f16454e8 (patch) | |
tree | 160df6bf04d36b8914d5ed156d50673092beecd1 /lib | |
parent | 59e9a24aa63d0209ea301b2c4aa71687e8295be6 (diff) |
move token type to ID map from Travelynx.pm to Model/Users
Diffstat (limited to 'lib')
-rwxr-xr-x | lib/Travelynx.pm | 11 | ||||
-rwxr-xr-x | lib/Travelynx/Controller/Api.pm | 2 | ||||
-rw-r--r-- | lib/Travelynx/Model/Users.pm | 12 |
3 files changed, 13 insertions, 12 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 9bd6ebe..6aea580 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -160,17 +160,6 @@ sub startup { ); $self->attr( - token_type => sub { - return { - status => 1, - history => 2, - travel => 3, - import => 4, - }; - } - ); - - $self->attr( account_public_mask => sub { return { status_intern => 0x01, diff --git a/lib/Travelynx/Controller/Api.pm b/lib/Travelynx/Controller/Api.pm index 6f788b5..7164b5b 100755 --- a/lib/Travelynx/Controller/Api.pm +++ b/lib/Travelynx/Controller/Api.pm @@ -571,7 +571,7 @@ sub set_token { return; } my $token = make_token(); - my $token_id = $self->app->token_type->{ $self->param('token') }; + my $token_id = $self->users->get_token_id( $self->param('token') ); if ( not $token_id ) { $self->redirect_to('account'); diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm index 0287ca2..46ffbdd 100644 --- a/lib/Travelynx/Model/Users.pm +++ b/lib/Travelynx/Model/Users.pm @@ -19,6 +19,12 @@ my @sb_templates = ( [ 'bahn.expert/regional', 'https://bahn.expert/regional/{name}#{id}' ], ); +my %token_id = ( + status => 1, + history => 2, + travel => 3, + import => 4, +); my @token_types = (qw(status history travel import)); sub new { @@ -27,6 +33,12 @@ sub new { return bless( \%opt, $class ); } +sub get_token_id { + my ( $self, $type ) = @_; + + return $token_id{$type}; +} + sub mark_seen { my ( $self, %opt ) = @_; my $uid = $opt{uid}; |