package/logitechmediaserver/src/Slim/Utils/OS/OpenADK.pm

   1 package Slim::Utils::OS::OpenADK;
   2
   3 # Logitech Media Server Copyright 2001-2011 Logitech.
   4 # This program is free software; you can redistribute it and/or
   5 # modify it under the terms of the GNU General Public License,
   6 # version 2.
   7
   8 use strict;
   9 use FindBin qw($Bin);
  10
  11 use base qw(Slim::Utils::OS::Linux);
  12
  13 sub initDetails {
  14         my $class = shift;
  15
  16         $class->{osDetails} = $class->SUPER::initDetails();
  17
  18         # package specific addition to @INC to cater for plugin locations
  19         $class->{osDetails}->{isDebian} = 1 ;
  20
  21         unshift @INC, '/usr/share/logitechmediaserver';
  22         unshift @INC, '/usr/share/logitechmediaserver/CPAN';
  23
  24         return $class->{osDetails};
  25 }
  26
  27 =head2 dirsFor( $dir )
  28
  29 Return OS Specific directories.
  30
  31 Argument $dir is a string to indicate which of the server directories we
  32 need information for.
  33
  34 =cut
  35
  36 sub dirsFor {
  37         my ($class, $dir) = @_;
  38
  39         my @dirs = ();
  40
  41         if ($dir =~ /^(?:oldprefs|updates)$/) {
  42
  43                 push @dirs, $class->SUPER::dirsFor($dir);
  44
  45         } elsif ($dir =~ /^(?:Firmware|Graphics|HTML|IR|MySQL|SQL|lib|Bin)$/) {
  46
  47                 push @dirs, "/usr/share/logitechmediaserver/$dir";
  48
  49         } elsif ($dir eq 'Plugins') {
  50
  51                 push @dirs, $class->SUPER::dirsFor($dir);
  52                 push @dirs, "/usr/share/perl5/Slim/Plugin", "/usr/share/logitechmediaserver/Plugins";
  53
  54         } elsif ($dir =~ /^(?:strings|revision)$/) {
  55
  56                 push @dirs, "/usr/share/logitechmediaserver";
  57
  58         } elsif ($dir eq 'libpath') {
  59
  60                 push @dirs, "/usr/share/logitechmediaserver";
  61
  62         } elsif ($dir =~ /^(?:types|convert)$/) {
  63
  64                 push @dirs, "/etc/logitechmediaserver";
  65
  66         } elsif ($dir =~ /^(?:prefs)$/) {
  67
  68                 push @dirs, $::prefsdir || "/var/lib/logitechmediaserver/prefs";
  69
  70         } elsif ($dir eq 'log') {
  71
  72                 push @dirs, $::logdir || "/var/log/logitechmediaserver";
  73
  74         } elsif ($dir eq 'cache') {
  75
  76                 push @dirs, $::cachedir || "/var/lib/logitechmediaserver/cache";
  77
  78         } elsif ($dir =~ /^(?:music|playlists)$/) {
  79
  80                 push @dirs, '';
  81
  82         } else {
  83
  84                 warn "dirsFor: Didn't find a match request: [$dir]\n";
  85         }
  86
  87         return wantarray() ? @dirs : $dirs[0];
  88 }
  89
  90 # Bug 9488, always decode on Ubuntu/Debian
  91 sub decodeExternalHelperPath {
  92         return Slim::Utils::Unicode::utf8decode_locale($_[1]);
  93 }
  94
  95 sub scanner {
  96         return '/usr/sbin/logitechmediaserver-scanner';
  97 }
  98
  99
 100 1;