File Coverage

blib/lib/Mplayer/NowPlaying.pm

Criterion	Covered	Total	%
statement	16	61	26.2
branch	0	24	0.0
condition			n/a
subroutine	5	8	62.5
pod	2	2	100.0
total	23	95	24.2

#!/usr/bin/perl
package Mplayer::NowPlaying;
use strict;

BEGIN {
  require Exporter;
  use vars qw(@ISA @EXPORT_OK $VERSION);
  $VERSION   = '0.030';
  @ISA       = 'Exporter';
  @EXPORT_OK = qw(now_playing now_playing_stream);
}

use Carp;
use Mplayer::NowPlaying::Genres;


sub now_playing {
  my($log, $mode) = @_;
  not defined $log and Carp::croak("No mplayer log file specified\n");

  if(!defined($mode)) {
    $mode = 'default'; # mplayer *.mp3
  }

  my $fh = _get_fh($log);
  chomp(my @content = <$fh>);
  close($fh);

  my %mplayer_internals = (
    ID_CLIP_INFO_VALUE0 => 'title',
    ID_CLIP_INFO_VALUE1 => 'artist',
    ID_CLIP_INFO_VALUE2 => 'album',
    ID_CLIP_INFO_VALUE3 => 'year',
    ID_CLIP_INFO_VALUE4 => 'comment',
    ID_CLIP_INFO_VALUE5 => 'genre',
    ID_AUDIO_BITRATE    => 'bitrate',
    ID_AUDIO_CODEC      => 'codec',
    ID_AUDIO_FORMAT     => 'format',
    ID_AUDIO_ID         => 'id',
    ID_AUDIO_NCH        => 'channels',
    ID_CHAPTERS         => 'chapters',
    ID_AUDIO_RATE       => 'audio',
    ID_DEMUXER          => 'demuxer',
    ID_LENGTH           => 'length',
    ID_SEEKABLE         => 'seekable', # 1,0
    ID_START_TIME       => 'start',
    ID_FILENAME         => 'file',
  );


  my $regex;
  if($mode eq 'default') {
    $regex = qr/\s*
      (
          codec
        | Bitrate
        | File
        | chapters
        | demuxer
        | seekable
        | id
        | channels
        | genre
        | Artist
        | Album
        | length
        | Comment
        | format
        | Title
        | Year
        | start
      )[=:](.+)\b
    /x;
  }

  elsif($mode eq 'identify') { # mplayer -msglevel identify=4
    my $id = join('|', keys(%mplayer_internals));
    $regex = qr/\b($id\S+)=(.+)\b/o;
  }

  my %information;

  CONTENT:
  for my $l(@content) {
    if($l =~ m/$regex/) {
      my($tag, $value) = ($1, $2);

      if(exists($mplayer_internals{$tag})) { # identify used
        $tag = $mplayer_internals{$tag};
        if($tag eq 'genre') {
          $value = get_genre($value);
        }
      }

      $value =~ s/^\s+|\s+$//;
      $information{ lc($tag) } = $value;
      next CONTENT;
    }
  }
  return \%information;
}

sub now_playing_stream {
  my $log = shift;
  my $fh = _get_fh($log);
  chomp(my @content = <$fh>);
  close($fh);

  my %results;
  for my $line(reverse(@content)) {
    if($line =~ m/ICY Info: StreamTitle='(.+)';.+/m) {
      $results{icy} = $1;
      if($results{icy} =~ m/(.+) - (.+) - (.+)/) {
        $results{album}  = $1;
        $results{artist} = $2;
        $results{title}  = $3;
      }
      last;
    }
  }
  return \%results;
}

sub _get_fh {
  my $file = shift;
  not defined $file and Carp::croak("No logfile specified\n");

  if(ref($file)) {
    return $file;
  }
  open(my $fh, '<', $file) or croak("Can not open '$file': $!\n");
  return $fh;
}

1;


__END__