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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
# Copyright 1999-2009 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/media-sound/squeezeboxserver/files/gentoo-filepaths.pm,v 1.1 2009/11/25 22:52:25 lavajoe Exp $
# This file contains a custom OS package to provide information on the
# installation structure on Gentoo. It is based on the Debian OS equivalent
# that is built into SqueezeCenter.
package Slim::Utils::OS::Custom;
use strict;
use File::Spec::Functions qw(:ALL);
use FindBin qw($Bin);
use Config;
use base qw(Slim::Utils::OS::Linux);
sub initDetails {
my $class = shift;
$class->{osDetails} = $class->SUPER::initDetails();
$class->{osDetails}->{isGentoo} = 1 ;
# Make sure we can find any CPAN modules packaged with Squeezebox Server.
unshift @INC, '/usr/share/squeezeboxserver/CPAN';
# Make sure plugin files are found.
push @INC, '/var/lib/squeezeboxserver';
return $class->{osDetails};
}
=head2 dirsFor( $dir )
Return OS Specific directories.
Argument $dir is a string to indicate which of the Squeezebox 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/squeezeboxserver/$dir";
} elsif ($dir eq 'Plugins') {
push @dirs, $class->SUPER::dirsFor($dir);
push @dirs, "/var/lib/squeezeboxserver/Plugins", "/usr/lib/" . $Config{'package'} . "/vendor_perl/" . $Config{'version'} . "/Slim/Plugin";
} elsif ($dir =~ /^(?:strings|revision)$/) {
push @dirs, "/usr/share/squeezeboxserver";
} elsif ($dir eq 'libpath') {
push @dirs, "/usr/lib/squeezeboxserver";
# Because we use the system MySQL, we need to point to the right
# directory for the errmsg. files. Default to english.
} elsif ($dir eq 'mysql-language') {
push @dirs, "/usr/share/mysql/english";
} elsif ($dir =~ /^(?:types|convert)$/) {
push @dirs, "/etc/squeezeboxserver";
} elsif ($dir =~ /^(?:prefs)$/) {
push @dirs, $::prefsdir || "/var/lib/squeezeboxserver/prefs";
} elsif ($dir eq 'log') {
push @dirs, $::logdir || "/var/log/squeezeboxserver";
} elsif ($dir eq 'cache') {
push @dirs, $::cachedir || "/var/lib/squeezeboxserver/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/squeezeboxserver-scanner';
}
1;
1;
__END__
|
GitWeb