view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

		for people with slower connections.
	- Added MS Media player to list of acceptable streaming clients.

2.15 Mon Jan  1 22:20:24 EST 2001
	- Fixed security bug which allowed people to bypass the AllowDownload setting.
	- Made "AllowDownload no" compatible with cover art.

2.14 Sat Dec 30 23:10:32 EST 2000
	- Fixed documentation to indicate that AddType requires dots before the
		.mp3 and .MP3 extension names.
	- Made the cache writing taint safe.
	- Fixed generation of extended playlists to work with earlier versions
		of WinAmp.
	- Added playlist and local streaming patches kindly provided by
		Jamie O'Shaughnessy.
	- Fixed display of directory path links when the current directory has same
		name as a parent directory.

2.13 Thu Nov 30 12:17:31 EST 2000
	- Patch from Jeffrey Sumler to prevent faults when streaming files containing
		regular expression metacharacters

MP3.pm  view on Meta::CPAN

  return @data;
}

# write to the cache
sub write_cache {
  my $self = shift;
  my ($file,$data) = @_;
  return unless my $cache = $self->cache_dir;
  my $cache_file = "$cache$file";

  # some checks and untaint
  return if $cache_file =~ m!/\.\./!; # no relative path tricks
  $cache_file =~ m!^(/.+)$! or return;
  $cache_file = $1;

  my $dirname = dirname($cache_file);
  -d $dirname || eval{mkpath($dirname)} || return;

  if (my $c = IO::File->new(">$cache_file")) {
    print $c join $;,%$data;
  }