#!c:/perl/bin/perl -w
use strict;
my $mp3folder = q|g:\mp3's|;
my @ignorefolders = ( "Folder Settings", "Disney" );
my $folders = `dir $mp3folder /ad/on/b`;
foreach my $item (@ignorefolders)
{
$folders =~ s/\Q$item\E\n//;
}
open my $FH, ">//cherry/www/cg/music.shtml";
#open my $FH, ">music.shtml";
select $FH;
print <<end;
<html>
<head>
<title>My Music</title>
<link rel=stylesheet href="main.css">
<style type="text/css">
div.menu {
text-align: center;
margin-bottom: 0px;
padding-bottom: 0px;
}
span.menu {
padding-left: 10px;
padding-right: 10px;
padding-top: 5px;
padding-bottom: 5px;
margin-left: 0px;
margin-right: 0px;
}
span.link {
color: FF0000;
font-family: Tahoma, Verdana;
cursor: pointer;
}
span.alink {
color: #0000FF;
font-family: Tahoma, Verdana;
background-color: #CCCCCC;
}
div.genre {
color: #0000FF;
background-color: #CCCCCC;
width: auto;
margin-left: 5%;
margin-right: 5%;
padding-bottom: 5px;
padding-top: 2px;
margin-top: 0px;
display: none;
}
div.genre p {
padding-left: 10px;
}
</style>
<script type="text/javascript">
function hideGenre (g)
{
document.getElementById('gen_' + g).style.display = 'none';
document.getElementById('menu_' + g).className = "menu link";
}
function showGenre (g)
{
hideAll();
document.getElementById('gen_' + g).style.display = 'block';
document.getElementById('menu_' + g).className = "menu alink";
}
function showAll ()
{
end
foreach my $genre (split /\n/, $folders)
{
my $urlgenre = $genre;
$urlgenre =~ s/ /_/;
print qq|\tshowGenre('$urlgenre');\n|;
}
print <<end;
}
function hideAll ()
{
end
foreach my $genre (split /\n/, $folders)
{
my $urlgenre = $genre;
$urlgenre =~ s/ /_/;
print qq|\thideGenre('$urlgenre');\n|;
}
print <<end;
}
</script>
</head>
<body>
<h1>Jason's Music</h1>
<div class="menu">
end
foreach my $genre (split /\n/, $folders)
{
my $urlgenre = $genre;
$urlgenre =~ s/ /_/;
print qq|<span id="menu_$urlgenre" class="menu link" onclick="showGenre('$urlgenre');">$genre</span>|;
}
print "</div>\n";
foreach my $genre (split /\n/, $folders)
{
my $urlgenre = $genre;
$urlgenre =~ s/ /_/;
print <<end;
<div class="genre" id="gen_$urlgenre">
end
my $files = `dir \"$mp3folder\\$genre\\*.mp3\" /b/s/on`;
foreach my $song (split /\n/, $files)
{
$song =~ s/^\Q$mp3folder\E\\//;
$song =~ s/^\Q$genre\E\\//;
$song =~ s/\.mp3$//i;
$song =~ s/\\/ - /;
print "<p>$song</p>\n";
}
print <<end;
</div>
end
}
print <<end;
<!--#include virtual="/cgi-bin/linksbar.pl" -->
</body>
</html>
end