18 lines
476 B
Perl
18 lines
476 B
Perl
package AuthType;
|
|
|
|
use constant {
|
|
UNAUTHORIZED => 1,
|
|
BROWSER => 2,
|
|
OAUTH_DEFAULT => 3, # client auth via OAuth token refreshing
|
|
OAUTH_CUSTOM_CLIENT =>
|
|
4, # YTM instance is using a non-default OAuth client (id & secret)
|
|
OAUTH_CUSTOM_FULL =>
|
|
5, # allows fully formed OAuth headers to ignore browser auth refresh flow
|
|
};
|
|
|
|
sub oauth_types {
|
|
return ( OAUTH_DEFAULT, OAUTH_CUSTOM_CLIENT, OAUTH_CUSTOM_FULL );
|
|
}
|
|
|
|
1;
|