Loading lib/Travelynx.pm +0 −11 Original line number Diff line number Diff line Loading @@ -159,17 +159,6 @@ sub startup { } ); $self->attr( token_type => sub { return { status => 1, history => 2, travel => 3, import => 4, }; } ); $self->attr( account_public_mask => sub { return { Loading lib/Travelynx/Controller/Api.pm +1 −1 Original line number Diff line number Diff line Loading @@ -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'); Loading lib/Travelynx/Model/Users.pm +12 −0 Original line number Diff line number Diff line Loading @@ -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 { Loading @@ -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}; Loading Loading
lib/Travelynx.pm +0 −11 Original line number Diff line number Diff line Loading @@ -159,17 +159,6 @@ sub startup { } ); $self->attr( token_type => sub { return { status => 1, history => 2, travel => 3, import => 4, }; } ); $self->attr( account_public_mask => sub { return { Loading
lib/Travelynx/Controller/Api.pm +1 −1 Original line number Diff line number Diff line Loading @@ -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'); Loading
lib/Travelynx/Model/Users.pm +12 −0 Original line number Diff line number Diff line Loading @@ -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 { Loading @@ -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}; Loading