-
Notifications
You must be signed in to change notification settings - Fork 0
/
Settings.pm
42 lines (30 loc) · 1.05 KB
/
Settings.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
package Plugins::PandoraDirect::Settings;
# Logitech Media Server Copyright 2001-2023 Logitech.
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License,
# version 2.
use strict;
use base qw(Slim::Web::Settings);
use MIME::Base64 (qw/encode_base64/);
use Data::Dumper;
use Slim::Utils::Log;
use Slim::Utils::Prefs;
my $prefs = preferences('plugin.pandoradirect');
my $log = logger('plugin.pandoradirect');
sub name {
return Slim::Web::HTTP::CSRF->protectName('PLUGIN_PANDORA_DIRECT_NAME');
}
sub prefs { return ($prefs, qw(username password) )}
sub page {
return Slim::Web::HTTP::CSRF->protectURI('plugins/PandoraDirect/settings.html');
}
sub handler {
my ($class, $client, $params, $callback, @args) = @_;
$log->debug("Params: " . Data::Dumper::Dumper($params));
if ( $params->{pref_password} ) {
$params->{pref_password} = encode_base64($params->{pref_password}, '');
}
$log->debug("Params: " . Data::Dumper::Dumper($params));
return $class->SUPER::handler($client, $params);
}
1;