view release on metacpan or  search on metacpan

MP3.pm  view on Meta::CPAN

use CGI qw(:standard *table *td *TR *blockquote *center center *h1);
use CGI::Carp 'fatalsToBrowser';

use File::Basename 'dirname','basename','fileparse';
use File::Path;
use vars qw($VERSION);

$VERSION = '3.06';
my $CRLF = "\015\012";

use constant DIR_MAGIC_TYPE => 'httpd/unix-directory';
use constant DEBUG => 0;

# defaults:
use constant BASE_DIR     => '/apache_mp3';
use constant STYLESHEET   => 'apache_mp3.css';
use constant PARENTICON   => 'back.gif';
use constant PLAYICON     => 'play.gif';
use constant SHUFFLEICON  => 'shuffle.gif';
use constant CDICON       => 'cd_icon.gif';
use constant CDLISTICON   => 'cd_icon_small.gif';