view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	-Check for invalid songs in playlist and refuse to play them.
	-Added Jeffrey Seifert's patch for cover art.  You can now place a file named
		"cover.jpg" in an album subdirectory and have it appear next to
		the album's name.
	-Added Chris Nandor's patch for Accept-Range so that certain players can
		fetch selected portions of the song (in theory at least).
	-Added Kee Hinkley's extended playlist patch, which allows WinAmp (and other players?)
		to display the title and duration of the song in the playlist.
	-Added Gary Johnston's patch which fixes truncated songs when streaming from a
		Windows server (the old binmode() trap).

2.11 Sat Sep  9 18:04:55 EDT 2000
	Added Tim Ayer's patches for sorting.  Now can sort playlists 
		on multiple fields (nice!)
	Detect when playlist cookie is full, alert user, and suppress 
		further attempts to add to playlist.
	Documentation fixes.

2.10 Sun Sep  3 20:29:41 MET DST 2000
	Ooops.  Playlist.pm was inadvertently left out; now it's back in.

MP3.pm  view on Meta::CPAN

    return FORBIDDEN;
  }

  my $mime = $r->content_type;
  my $file = $r->filename;
  my $url  = $r->uri;

  my $info = $self->fetch_info($file,$mime);
  return DECLINED unless $info;  # not a legit mp3 file?
  my $fh = $self->open_file($file) || return DECLINED;
  binmode($fh);  # to prevent DOS text-mode foolishness

  my $size = -s $file;
  my $bitrate = $info->{bitrate};
  if ($self->can('bitrate') && $self->bitrate) {
    ($bitrate = $self->bitrate) =~ s/ kbps//i;
    # quick approximation
    $size = int($size * ($bitrate / $info->{bitrate}));
  }
  my $description = $info->{description};
  my $genre       = $info->{genre} || $self->lh->maketext('unknown');