Apache::MP3 read_directory()

This is the code that reads the directory information.

sub read_directory { my ($r,$dir,$no_info) = @_; my (%directories,%mp3s); opendir D,$dir or return; while (defined(my $d = readdir(D))) { next if $d eq '.'; next if $d eq '..'; my $mime = $r->lookup_file("$dir/$d")->content_type; $directories{$d}++ if $mime eq DIR_MAGIC_TYPE; next unless $mime eq 'audio/mpeg'; $mp3s{$d} = $no_info ? 1 : fetch_info("$dir/$d"); } closedir D; return \(%directories,%mp3s); }

Previous

Contents

Next