package Slim::Utils::OS::Custom; #package Slim::Utils::OS::FreeBSD; use strict; use base qw(Slim::Utils::OS::Unix); use Config; sub initDetails { my $class = shift; $class->{osDetails} = $class->SUPER::initDetails(); $class->{osDetails}->{'os'} = 'FreeBSD'; $class->{osDetails}->{osName} = 'FreeBSD'; return $class->{osDetails}; } sub initSearchPath { my $class = shift; $class->SUPER::initSearchPath(); my @extra_paths = qw(/usr/local/libexec); Slim::Utils::Misc::addFindBinPaths(@extra_paths); } sub dirsFor { my ($class, $dir) = @_; my @dirs; if ($dir =~ /^(?:Firmware|Graphics|HTML|IR|MySQL|SQL|lib|Bin)$/) { push @dirs, "%%PREFIX%%/%%SLIMDIR%%/$dir"; } elsif ($dir eq 'Plugins') { push @dirs, "%%SITE_PERL%%", "%%PREFIX%%/%%SLIMDIR%%/Plugins", "%%PREFIX%%/%%SLIMDIR%%/Slim/Plugin", "%%SLIMDBDIR%%/cache/InstalledPlugins/Plugins"; } elsif ($dir eq 'strings' || $dir eq 'revision') { push @dirs, "%%PREFIX%%/%%SLIMDIR%%"; } elsif ($dir eq 'types' || $dir eq 'convert') { push @dirs, "%%PREFIX%%/%%SLIMDIR%%"; } elsif ($dir eq 'prefs') { push @dirs, "%%SLIMDBDIR%%/prefs"; } elsif ($dir eq 'log') { push @dirs, "/var/log/%%PORTNAME%%"; } elsif ($dir eq 'cache' || $dir eq 'updates' || $dir eq 'oldprefs') { push @dirs, "%%SLIMDBDIR%%/cache"; } elsif ($dir =~ /^(?:libpath|mysql-language)$/) { # Do nothing - use the depended upon MySQL install. } elsif ($dir eq 'scprefs') { if (-r '%%SLIMDBDIR%%/prefs/server.prefs') { push @dirs, '%%SLIMDBDIR%%/prefs'; } } elsif ($dir =~ /^(?:music|playlists|videos|pictures)$/) { push @dirs, ''; } else { warn "dirsFor: Didn't find a match request: [$dir]\n"; } return wantarray() ? @dirs : $dirs[0]; } 1;