43 lines
957 B
Perl
43 lines
957 B
Perl
package Plugins::YouTubeMusic::Settings;
|
|
|
|
use strict;
|
|
use base qw(Slim::Web::Settings);
|
|
|
|
use Slim::Utils::Log;
|
|
use Slim::Utils::Prefs;
|
|
|
|
my $log = logger('plugin.youtubemusic');
|
|
my $cache = Slim::Utils::Cache->new();
|
|
|
|
sub name {
|
|
return 'PLUGIN_YOUTUBEMUSIC';
|
|
}
|
|
|
|
sub page {
|
|
return 'plugins/YouTubeMusic/settings/basic.html';
|
|
}
|
|
|
|
sub prefs {
|
|
return (preferences('plugin.youtubemusic'), qw(testPref));
|
|
}
|
|
|
|
sub handler {
|
|
my ($class, $client, $params) = @_;
|
|
|
|
if ($params->{'saveSettings'}) {
|
|
preferences('plugin.youtubemusic')->set('testPref', $params->{'pref_testPref'});
|
|
}
|
|
|
|
Plugins::YouTubeMusic::OAuth2::getDeviceCode if $params->{get_device_code};
|
|
Plugins::YouTubeMusic::OAuth2::getToken if $params->{get_token};
|
|
|
|
$params->{user_code} = $cache->get('yt:user_code');
|
|
$params->{verification_url} = $cache->get('yt:verification_url');
|
|
$params->{access_token} = $cache->get('yt:access_token');
|
|
|
|
return $class->SUPER::handler($client, $params);
|
|
}
|
|
|
|
1;
|
|
|