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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
package Slim::Utils::OS::OpenADK;
# Logitech Media Server Copyright 2001-2011 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 FindBin qw($Bin);
use base qw(Slim::Utils::OS::Linux);
sub initDetails {
my $class = shift;
$class->{osDetails} = $class->SUPER::initDetails();
# package specific addition to @INC to cater for plugin locations
$class->{osDetails}->{isDebian} = 1 ;
unshift @INC, '/usr/share/logitechmediaserver';
unshift @INC, '/usr/share/logitechmediaserver/CPAN';
return $class->{osDetails};
}
=head2 dirsFor( $dir )
Return OS Specific directories.
Argument $dir is a string to indicate which of the server directories we
need information for.
=cut
sub dirsFor {
my ($class, $dir) = @_;
my @dirs = ();
if ($dir =~ /^(?:oldprefs|updates)$/) {
push @dirs, $class->SUPER::dirsFor($dir);
} elsif ($dir =~ /^(?:Firmware|Graphics|HTML|IR|MySQL|SQL|lib|Bin)$/) {
push @dirs, "/usr/share/logitechmediaserver/$dir";
} elsif ($dir eq 'Plugins') {
push @dirs, $class->SUPER::dirsFor($dir);
push @dirs, "/usr/share/perl5/Slim/Plugin", "/usr/share/logitechmediaserver/Plugins";
} elsif ($dir =~ /^(?:strings|revision)$/) {
push @dirs, "/usr/share/logitechmediaserver";
} elsif ($dir eq 'libpath') {
push @dirs, "/usr/share/logitechmediaserver";
} elsif ($dir =~ /^(?:types|convert)$/) {
push @dirs, "/etc/logitechmediaserver";
} elsif ($dir =~ /^(?:prefs)$/) {
push @dirs, $::prefsdir || "/var/lib/logitechmediaserver/prefs";
} elsif ($dir eq 'log') {
push @dirs, $::logdir || "/var/log/logitechmediaserver";
} elsif ($dir eq 'cache') {
push @dirs, $::cachedir || "/var/lib/logitechmediaserver/cache";
} elsif ($dir =~ /^(?:music|playlists)$/) {
push @dirs, '';
} else {
warn "dirsFor: Didn't find a match request: [$dir]\n";
}
return wantarray() ? @dirs : $dirs[0];
}
# Bug 9488, always decode on Ubuntu/Debian
sub decodeExternalHelperPath {
return Slim::Utils::Unicode::utf8decode_locale($_[1]);
}
sub scanner {
return '/usr/sbin/logitechmediaserver-scanner';
}
1;
|
