Flash MP3 Player ayarları

selvir
Yüzbaşı
432 Mesaj
Tüm Başarılarını Gör
http://www.gigfoot.net/software/1.html
adresindeki "Flash MP3 Player"i satın aldım. Ancak kurulumu nasıl yapacağımı bilmiyorum.
Aşağıdaki sayfada (kodlar içinde) nerede nasıl ayarlamalar yapılacağı konusunda yardımcı olabilecek var mı acaba?
#!/usr/bin/perl 
  ################################################# 
  ################################################# 
  ################################################# 
  # The web-based flash mp3player 
  # version 052305 
  # Gigfoot LLC 
  # James True 
  #################################################  
  # MP3_BIN 
  # The default for this to run smooth is that this script  
  # reside inside the folder where your mp3 files exist. 
  # If you want to change this, you may specify an  
  # absolute directory path where your mp3files are found. 
  # examples are "/home/you/web/mp3" or "c:/IIS/web/shares/" etc 
  # If you change the MP3_BIN you will need to also change to MP3_BIN_URL accordingly. 
  # Hint, MP3_BIN_URL will usually be your absolute MP3_BIN without the DOCUMENT_ROOT at the front. 
  # ALWAYS end both of these variables with a slash (/). 
  # Change at your own risk and rock on. 
  my $MP3_BIN = ""; 
  my $MP3_BIN_URL = ""; 
  ################################################# 
  # START_PAGE 
  # This is optional, set this to a url if you do not  
  # want this program to decide on your start page.  
  # The start page is the url displayed in the main frames window 
  my $START_PAGE = ""; 
  ################################################# 
  # BG_COLOR 
  # if you want to override the random colors you can specify a hex color below.  
  # Example: $BG_COLOR = ""; = RANDOM 
  # Example: $BG_COLOR = "FF0000"; = ALWAYS RED 
  # Example: $BG_COLOR = "00FF00"; = ALWAYS GREEN 
  # Example: $BG_COLOR = "0000FF"; = ALWAYS BLUE 
  my $BG_COLOR = ""; 
  ################################################# 
  # RECURSE 
  # if your mp3 files are stored inside of seperate subfolders 
  # turn on FOLDER_RECURSE to have it scan the subfolders for a new song 
  # Example: 0 = off 1 = on 
  my $FOLDER_RECURSE = 0; 
  ################################################# 
  # SECURITY 
  # UNIX,LINUX,MACOSX servers may be able to provide  
  # extra security by enabling CHMODING. This turns  
  # the file permissions off for all mp3 files cept  
  # the one currently being played. If you turn this  
  # feature on, make sure your player is working properly on your server!  
  # 1 = on | 0 = off 
  my $SECURITY_CHMOD = 0; 
  ################################################# 
  # AUTOCOMPLETE 
  # used mainly by folks who are running their player out of a cgi-bin folder 
  # If auto-complete is on, you can request a mp3song by the title of the mp3 only. 
  # This only works if you pass an src variable with no slashes in it. 
  # So if AUTO_COMPLETE_URL is set to 1 then the url below will work 
  #http://www.yourdomain.com/cgi-bin/mp3player.cgi?src=Acoustic Syndicate - secret track.mp3 
  my $AUTO_COMPLETE = 1; 
  ################################################# 
  ################################################# 
  ### End of user defined section 
  ################################################# 
  ################################################# 
  use strict;##### strick means if you see an internal server error, check your logs for complete details :)  
  #use LWP::Simple; 
  use Cwd; 
  print "Content-type:text/html\n\n"; 
  my $debug = ""; 
  my %MYENV = &initENV; 
  my %GET = &readGet; 
  if (($AUTO_COMPLETE)&&($GET{'src'})&&($GET{'src'} !~ /[\\\/]+/)){$GET{'src'} = $MP3_BIN_URL.$GET{'src'};} 
  ################################################# 
  ################################################# 
  ################################################# 
  if ($SECURITY_CHMOD){&SecureFiles();} 
  &readGet; 
  if ($GET{'action'} eq ""){$GET{'action'} = "frames";} 
  if ($GET{'action'} eq "Info"){&Info();exit;} 
  #if ($GET{'action'} eq "Visual"){&Visual();exit;} 
  if ($GET{'action'} eq "Playlist"){&Playlist();exit;} 
  if ($GET{'action'} eq "Playlist2"){&Playlist2();exit;} 
  if ($GET{'action'} eq "Search"){&Search();exit;} 
  if ($GET{'action'} eq "frames"){&frames();exit;} 
  if ($GET{'action'} eq "frames2"){&frames2();exit;} 
  if ($GET{'action'} eq "framesvisual"){&framesvisual();exit;} 
  if ($GET{'action'} eq "PlaylistFrames"){&PlaylistFrames();exit;} 
  if ($GET{'action'} eq "mp3frame"){&mp3frame();exit;} 
  if ($GET{'action'} eq "mp3frame2"){&mp3frame2();exit;} 
  if ($GET{'action'} eq "mp3framevisual"){&mp3framevisual();exit;} 
  exit; 
  ################################################# 
  ################################################# 
  ################################################# 
  sub AllowFile{ 
  chmod (0755,$_[0]); 
  }########################################### end AllowFile 
  sub SecureFiles{ 
  ## turn off all permissions for mp3 file to prrevent users from downloading 
  my @sec; 
  if ($FOLDER_RECURSE){ 
  @sec = &RecurseMP3($MP3_BIN); 
  }else{ 
  @sec = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  foreach my $file(@sec){ 
  chmod (0700,"$MP3_BIN$file"); 
  } 
  }########################################### end SecureFiles 
  #sub Visual{ 
  ## OUTPUT a numeric representation of this song to the flash environment 
  #if (!$GET{'VMETHOD'}){$GET{'VMETHOD'} = "SINGLE";} 
  #my %MP; 
  #print "//<pre>Output Flash readable code for this mp3 src\n"; 
  #if ($GET{'src'}){ 
  ##%MP = &DescribeMP3($GET{'src'}); 
  #print "&VMETHOD=$GET{'VMETHOD'}&\n"; 
  #print "&viznotes=V:$MP{'VERSION'} L:$MP{'LAYER'} M:$MP{'MODE'}&\n"; 
  #print "&bsize=".(-s "$GET{'src'}")."&\n"; 
  #my $xx; 
  #if ($GET{'VMETHOD'} eq "SINGLE"){$xx = &SINGLE(%MP);} 
  #foreach my $li(keys %MP){ 
  #my $clsrc = $MP{$li}; 
  #$clsrc =~ s/\&/\%26/g; 
  #print "&$li=$clsrc&\n"; 
  #} 
  #print "&xx=".$xx."&\n"; 
  #}################# 
  #print "&vloaded=1&\n"; 
  #print "//</pre>\n"; 
  #exit; 
  #}############################################### end Visual 
  sub SINGLE{ 
  my %MP = @_; 
  my $str; 
  for(my $tt=0;$tt<$MP{'SECS'};$tt++){ 
  my @sec; 
  my $startSeek = ($MP{'BYTES_PER_SECOND'}*($tt+1))+$MP{'START_SOUND'}; 
  while(($#sec+1)<=20){ 
  ################## 
  local $/ = \1; 
  my $scnt; 
  open (FILE,"$GET{'src'}"); 
  seek(FILE,$startSeek,0); 
  while (my $zline = <FILE>){$scnt++; 
  $zline = unpack 'c2', $zline; 
  $zline = $zline+128; 
  $zline = int(($zline*100)/256); 
  if ($GET{'debug'}){print "<li>$zline\n";} 
  push(@sec,$zline); 
  $startSeek = $startSeek+($MP{'BYTES_PER_SECOND'}*($#sec+2))+1; 
  last; 
  }close FILE; 
  ################## 
  my $vl = $tt; 
  $vl =~ s/.*(.)$/$1/; 
  push(@sec,$vl); 
  } 
  $str .= join("|",@sec)."|"; 
  } 
  $str =~ s/\|$//; 
  return $str; 
  }################################################# end SINGLE 
  #sub DescribeMP3{ 
  #my $file = $_[0]; 
  #my %OUT; 
  #$OUT{'src'} = $file; 
  #use MP3::Info qw(:all); 
  #my $info = get_mp3info($file) or ($OUT{'ERROR'} = "get_mp3info $1 $! $_"); 
  #if ($OUT{'ERROR'}){return %OUT;} 
  #foreach my $ky(keys %$info){ 
  #$OUT{$ky} = $info->{$ky}; 
  #my $kvv = $info->{$ky}; 
  #$kvv =~ s/\&/\%26/g; 
  #} 
  #$OUT{'BYTES_PER_SECOND'} = ($OUT{'SIZE'}/$OUT{'SECS'}); 
  #$OUT{'START_SOUND'} = (-s $file)-$OUT{'SIZE'}; 
  #my $tag = get_mp3tag($file) or ($OUT{'ERROR'} = "get_mp3tag  $1 $! $_"); 
  #if ($OUT{'ERROR'}){return %OUT;} 
  #foreach my $ky(keys %$tag){ 
  #$OUT{$ky} = $tag->{$ky}; 
  #my $kv = $OUT{$ky};$kv =~ s/\&/\%26/g; 
  #} 
  #return %OUT; 
  #}################################### end DescribeMP3 
  sub frames{ 
  ##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src 
  my $auto = ""; 
  if ($ENV{'QUERY_STRING'} !~ /\&/){ 
  $auto = "y"; 
  $GET{'shuffle'} = "y"; 
  $GET{'autoStart'} = "y"; 
  $GET{'reload'} = "y"; 
  } 
  if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;} 
  if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};} 
  if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";} 
  if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";} 
  if ($GET{'vol'}){$GET{'vol'} = "vol=$GET{'vol'}";} 
  print <<EOM; 
  <title>MP3 Player / $ENV{'SERVER_NAME'}</title> 
  <frameset frameborder=0 framespacing="0" framepadding="0" rows="*,32"> 
  <frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto"> 
  <frame name="mp3Player" target="mainWindow" src="?action=mp3frame&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&$GET{'vol'}&src=$GET{'src'}" scrolling="no"> 
  <noframes> 
  <body> 
  <p>This Page Requires Frames.</p> 
  </body> 
  </noframes> 
  </frameset> 
  EOM 
  }################################################## end frames 
  sub framesvisual{ 
  ##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src 
  my $auto = ""; 
  if ($ENV{'QUERY_STRING'} !~ /\&/){ 
  $auto = "y"; 
  $GET{'shuffle'} = "y"; 
  $GET{'autoStart'} = "y"; 
  $GET{'reload'} = "y"; 
  } 
  if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;} 
  if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};} 
  if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";} 
  if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";} 
  my $tm = time; 
  print <<EOM; 
  <title>MP3 Player / $ENV{'SERVER_NAME'}</title> 
  <frameset frameborder=0 framespacing="0" framepadding="0" rows="*,300"> 
  <frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto"> 
  <frame name="mp3Player" target="mainWindow" src="?action=mp3framevisual&c=$tm&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no"> 
  <noframes> 
  <body> 
  <p>This Page Requires Frames.</p> 
  </body> 
  </noframes> 
  </frameset> 
  EOM 
  }################################################## end framesvisual 
  sub frames2{ 
  ##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src 
  my $auto = ""; 
  if ($ENV{'QUERY_STRING'} !~ /\&/){ 
  $auto = "y"; 
  $GET{'shuffle'} = "y"; 
  $GET{'autoStart'} = "y"; 
  $GET{'reload'} = "y"; 
  } 
  if ($GET{'vol'}){$GET{'vol'} = "&vol=$GET{'vol'}&";} 
  if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;} 
  if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};} 
  if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";} 
  if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";} 
  my $tm = time; 
  print <<EOM; 
  <title>MP3 Player / $ENV{'SERVER_NAME'}</title> 
  <frameset frameborder=0 framespacing="0" framepadding="0" rows="*,200"> 
  <frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto"> 
  <frame name="mp3Player" target="mainWindow" src="?$GET{'vol'}&action=mp3frame2&c=$tm&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no"> 
  <noframes> 
  <body> 
  <p>This Page Requires Frames.</p> 
  </body> 
  </noframes> 
  </frameset> 
  EOM 
  }################################################## end frames2 
  sub PlaylistFrames{ 
  ##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src 
  my $auto = ""; 
  if ($ENV{'QUERY_STRING'} !~ /\&/){ 
  $auto = "y"; 
  $GET{'shuffle'} = "y"; 
  $GET{'autoStart'} = "y"; 
  $GET{'reload'} = "y"; 
  } 
  if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;} 
  if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};} 
  if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";} 
  if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";} 
  print <<EOM; 
  <title>MP3 Player / $ENV{'SERVER_NAME'}</title> 
  <frameset frameborder=0 framespacing="0" framepadding="0" rows="*,32"> 
  <frame name="mainWindow" target="mainWindow" src="?action=Playlist2&" scrolling="auto"> 
  <frame name="mp3Player" target="mainWindow" src="?action=mp3frame&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no"> 
  <noframes> 
  <body> 
  <p>This Page Requires Frames.</p> 
  </body> 
  </noframes> 
  </frameset> 
  EOM 
  }################################################## end PlaylistFrames 
  sub mp3framevisual{ 
  #my %GET = %_; 
  my @mp3s; 
  my @cnt; 
  ##print "$MP3_BIN cnt=$#cnt<hr>"; 
  if ($FOLDER_RECURSE){ 
  @cnt = &RecurseMP3($MP3_BIN); 
  }else{ 
  @cnt = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  my $LIBRARY_TOTAL = $#cnt+1; 
  my $nowx = 0; 
  my $emptymp3; 
  my $st; 
  my $src; 
  my $srcX; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  my $lastSrc = $GET{'lastSrc'}; 
  my $lastSrcPattern; 
  $lastSrc =~ s/.*\///; 
  $srcX = $src; 
  $srcX =~ s/.*\///; 
  my @dcnt = @cnt; 
  if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";} 
  foreach my $of(@dcnt){ 
  if ($of =~ /\.mp3$/i){ 
  $emptymp3 = $of; 
  my $cof = $of; 
  my $clastSrcPattern = $lastSrcPattern; 
  $cof =~ s/\W+//g; 
  $clastSrcPattern =~ s/\W+//g; 
  if ($cof !~ /$clastSrcPattern/i){ 
  push (@mp3s,$of); 
  } 
  $of =~ s/\W+//g; 
  my $srcD = $src; 
  $srcD =~ s/\W+//g; 
  my $srcXD = $srcX; 
  $srcXD =~ s/\W+//g; 
  my $lastSrcD = $lastSrc; 
  $lastSrcD =~ s/\W+//g; 
  if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;} 
  if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;} 
  $nowx++; 
  } 
  } 
  if ($st > $#mp3s){$st = 0;} 
  if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st]; 
  } 
  if ($src eq ""){$src = $emptymp3;} 
  #$GET{'src'} = $src; 
  my $tPlaylist = "y"; 
  my $tShuffle = "y"; 
  my $tReload = "y"; 
  my $tAutoStart = "y"; 
  my $tPlaylistStyle = "blon"; 
  my $tShuffleStyle = "BlackLinks"; 
  my $tReloadStyle = "BlackLinks"; 
  my $tAutoStartStyle = "BlackLinks"; 
  if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";} 
  if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";} 
  if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";} 
  ##### 
  my %newQ = (); 
  my $qstr = "$ENV{'QUERY_STRING'}"; 
  my @qs = split(/\&/,$qstr); 
  foreach my $li(@qs){ 
  my($ln,$lv)=split(/\=/,$li); 
  #print "$li / $ln==$lv<hr>"; 
  $newQ{$ln} = $lv; 
  } 
  my $cleanQ = ""; 
  foreach my $li(keys %newQ){ 
  if ($li){$cleanQ .= "$li=".$newQ{$li}."&";} 
  } 
  $ENV{'QUERY_STRING'} = $cleanQ; 
  my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99"); 
  my $bgColor; 
  if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};} 
  if ($BG_COLOR){$bgColor = $BG_COLOR;} 
   
  my $srcQ = $MP3_BIN_URL.$src; 
  $srcQ =~ s/\%/\%25/g; 
  $srcQ =~ s/\+/\%2B/g; 
  $srcQ =~ s/\&/\%26/g; 
  $srcQ =~ s/\#/\%23/g; 
  $srcQ =~ s/\~/\%7E/g; 
  $srcQ =~ s/\'/\%27/g; 
  $srcQ =~ s/\(/\%28/g; 
  $srcQ =~ s/\)/\%29/g; 
  $srcQ =~ s/\-/\%2D/g; 
  $srcQ =~ s/\=/\%3D/g; 
  $srcQ =~ tr/ /+/; 
  $src = $srcQ; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  $src =~ s/\&/\%26/g; 
  $tPlaylist = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a> 
  EOM 
  $tShuffle = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a> 
  EOM 
  $tReload = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a> 
  EOM 
  $tAutoStart = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a> 
  EOM 
  print <<EOM; 
  <style> 
  a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;} 
  a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;} 
  </style> 
  <body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0"> 
  <table width=100% border=0 cellpadding=0 cellspacing=0><tr> 
  <td align=right><font face=tahoma size=-2 color=$bgColor> 
  $tPlaylist /  
  $tReload /  
  $tAutoStart /  
  $tShuffle /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a> 
  </font></td> 
  <td valign=top title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td> 
  <td width=450 align=right bgcolor=$bgColor> 
  <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" 
   codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" 
   WIDTH="450" HEIGHT="300" id="MP3player" ALIGN=""> 
  <PARAM NAME=movie VALUE="$MP3_BIN_URL/MP3PlayerVisual.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"> 
  <PARAM NAME=quality VALUE=high> 
  <PARAM NAME=bgcolor VALUE="#$bgColor"> 
  <EMBED src="$MP3_BIN_URL/MP3PlayerVisual.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"  
  quality=high bgcolor=#$bgColor WIDTH="450" HEIGHT="300" NAME="MP3player"  
  ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"> 
  </EMBED></OBJECT></td> 
  </tr></table> 
  </html> 
  <body onLoad="window.MP3player.focus();"> 
  EOM 
  }################################################## end mp3framevisual 
  sub mp3frame{ 
  #my %GET = %_; 
  my @mp3s; 
  my @cnt; 
  ##print "$MP3_BIN cnt=$#cnt<hr>"; 
  if ($FOLDER_RECURSE){ 
  @cnt = &RecurseMP3($MP3_BIN); 
  }else{ 
  @cnt = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  my $LIBRARY_TOTAL = $#cnt+1; 
  my $nowx = 0; 
  my $emptymp3; 
  my $st; 
  my $src; 
  my $srcX; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  my $lastSrc = $GET{'lastSrc'}; 
  my $lastSrcPattern; 
  $lastSrc =~ s/.*\///; 
  $srcX = $src; 
  $srcX =~ s/.*\///; 
  my @dcnt = @cnt; 
  if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";} 
  foreach my $of(@dcnt){ 
  if ($of =~ /\.mp3$/i){ 
  $emptymp3 = $of; 
  my $cof = $of; 
  my $clastSrcPattern = $lastSrcPattern; 
  $cof =~ s/\W+//g; 
  $clastSrcPattern =~ s/\W+//g; 
  if ($cof !~ /$clastSrcPattern/i){ 
  push (@mp3s,$of); 
  } 
  $of =~ s/\W+//g; 
  my $srcD = $src; 
  $srcD =~ s/\W+//g; 
  my $srcXD = $srcX; 
  $srcXD =~ s/\W+//g; 
  my $lastSrcD = $lastSrc; 
  $lastSrcD =~ s/\W+//g; 
  if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;} 
  if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;} 
  $nowx++; 
  } 
  } 
  if ($st > $#mp3s){$st = 0;} 
  if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st]; 
  } 
  if ($src eq ""){$src = $emptymp3;} 
  #$GET{'src'} = $src; 
  my $tPlaylist = "y"; 
  my $tShuffle = "y"; 
  my $tReload = "y"; 
  my $tAutoStart = "y"; 
  my $tPlaylistStyle = "blon"; 
  my $tShuffleStyle = "BlackLinks"; 
  my $tReloadStyle = "BlackLinks"; 
  my $tAutoStartStyle = "BlackLinks"; 
  if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";} 
  if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";} 
  if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";} 
  ##### 
  my %newQ = (); 
  my $qstr = "$ENV{'QUERY_STRING'}"; 
  my @qs = split(/\&/,$qstr); 
  foreach my $li(@qs){ 
  my($ln,$lv)=split(/\=/,$li); 
  #print "$li / $ln==$lv<hr>"; 
  $newQ{$ln} = $lv; 
  } 
  my $cleanQ = ""; 
  foreach my $li(keys %newQ){ 
  if ($li){$cleanQ .= "$li=".$newQ{$li}."&";} 
  } 
  $ENV{'QUERY_STRING'} = $cleanQ; 
  my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99"); 
  my $bgColor; 
  if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};} 
  if ($BG_COLOR){$bgColor = $BG_COLOR;} 
  if ($SECURITY_CHMOD){&AllowFile("$MP3_BIN$src");} 
  my $srcQ = $MP3_BIN_URL.$src; 
  $srcQ =~ s/\%/\%25/g; 
  $srcQ =~ s/\+/\%2B/g; 
  $srcQ =~ s/\&/\%26/g; 
  $srcQ =~ s/\#/\%23/g; 
  $srcQ =~ s/\~/\%7E/g; 
  $srcQ =~ s/\'/\%27/g; 
  $srcQ =~ s/\(/\%28/g; 
  $srcQ =~ s/\)/\%29/g; 
  $srcQ =~ s/\-/\%2D/g; 
  $srcQ =~ s/\=/\%3D/g; 
  $srcQ =~ tr/ /+/; 
  $src = $srcQ; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  $src =~ s/\&/\%26/g; 
  $tPlaylist = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a> 
  EOM 
  $tShuffle = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a> 
  EOM 
  $tReload = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a> 
  EOM 
  $tAutoStart = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a> 
  EOM 
  my $volmod; 
  if ($GET{'vol'}){$volmod = "vol=$GET{'vol'}";} 
  print <<EOM; 
  <style> 
  a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;} 
  a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;} 
  </style> 
  <body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0"> 
  <table width=100% border=0 cellpadding=0 cellspacing=0><tr> 
  <td align=right><font face=tahoma size=-2 color=$bgColor> 
  $tPlaylist /  
  $tReload /  
  $tAutoStart /  
  $tShuffle /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a> 
  </font></td> 
  <td title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td> 
  <td width=450 align=right bgcolor=$bgColor> 
  <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" 
   codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" 
   WIDTH="450" HEIGHT="25" id="MP3player" ALIGN=""> 
  <PARAM NAME=movie VALUE="$MP3_BIN_URL/MP3PlayerMini.swf?action=$GET{'action'}&$volmod&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"> 
  <PARAM NAME=quality VALUE=high> 
  <PARAM NAME=bgcolor VALUE="#$bgColor"> 
  <EMBED src="$MP3_BIN_URL/MP3PlayerMini.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&$volmod&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"  
  quality=high bgcolor=#$bgColor WIDTH="450" HEIGHT="25" NAME="MP3player"  
  ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"> 
  </EMBED></OBJECT></td> 
  </tr></table> 
  </html> 
  <body onLoad="window.MP3player.focus();"> 
  EOM 
  }################################################## end mp3frame 
  sub mp3frame2{ 
  my @mp3s; 
  my @cnt; 
  if ($FOLDER_RECURSE){ 
  @cnt = &RecurseMP3($MP3_BIN); 
  }else{ 
  @cnt = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  my $LIBRARY_TOTAL = $#cnt+1; 
  my $nowx = 0; 
  my $emptymp3; 
  my $st; 
  my $src; 
  my $srcX; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  my $lastSrc = $GET{'lastSrc'}; 
  my $lastSrcPattern; 
  $lastSrc =~ s/.*\///; 
  $srcX = $src; 
  $srcX =~ s/.*\///; 
  my @dcnt = @cnt; 
  if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";} 
  foreach my $of(@dcnt){ 
  if ($of =~ /\.mp3$/i){ 
  $emptymp3 = $of; 
  my $cof = $of; 
  my $clastSrcPattern = $lastSrcPattern; 
  $cof =~ s/\W+//g; 
  $clastSrcPattern =~ s/\W+//g; 
  if ($cof !~ /$clastSrcPattern/i){ 
  push (@mp3s,$of); 
  } 
  $of =~ s/\W+//g; 
  my $srcD = $src; 
  $srcD =~ s/\W+//g; 
  my $srcXD = $srcX; 
  $srcXD =~ s/\W+//g; 
  my $lastSrcD = $lastSrc; 
  $lastSrcD =~ s/\W+//g; 
  if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;} 
  if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;} 
  $nowx++; 
  } 
  } 
  if ($st > $#mp3s){$st = 0;} 
  if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st]; 
  } 
  if ($src eq ""){$src = $emptymp3;} 
  #$GET{'src'} = $src; 
  my $tPlaylist = "y"; 
  my $tShuffle = "y"; 
  my $tReload = "y"; 
  my $tAutoStart = "y"; 
  my $tPlaylistStyle = "blon"; 
  my $tShuffleStyle = "BlackLinks"; 
  my $tReloadStyle = "BlackLinks"; 
  my $tAutoStartStyle = "BlackLinks"; 
  if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";} 
  if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";} 
  if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";} 
  ##### 
  my %newQ = (); 
  my $qstr = "$ENV{'QUERY_STRING'}"; 
  my @qs = split(/\&/,$qstr); 
  foreach my $li(@qs){ 
  my($ln,$lv)=split(/\=/,$li); 
  $newQ{$ln} = $lv; 
  } 
  my $cleanQ = ""; 
  foreach my $li(keys %newQ){ 
  if ($li){$cleanQ .= "$li=".$newQ{$li}."&";} 
  } 
  $ENV{'QUERY_STRING'} = $cleanQ; 
  my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99"); 
  my $bgColor; 
  if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};} 
  if ($BG_COLOR){$bgColor = $BG_COLOR;} 
  my $srcQ = $MP3_BIN_URL.$src; 
  $srcQ =~ s/\%/\%25/g; 
  $srcQ =~ s/\+/\%2B/g; 
  $srcQ =~ s/\&/\%26/g; 
  $srcQ =~ s/\#/\%23/g; 
  $srcQ =~ s/\~/\%7E/g; 
  $srcQ =~ s/\'/\%27/g; 
  $srcQ =~ s/\(/\%28/g; 
  $srcQ =~ s/\)/\%29/g; 
  $srcQ =~ s/\-/\%2D/g; 
  $srcQ =~ s/\=/\%3D/g; 
  $srcQ =~ tr/ /+/; 
  $src = $srcQ; 
  if ($GET{'src'}){$src = $GET{'src'};} 
  $src =~ s/\&/\%26/g; 
  $tPlaylist = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a> 
  EOM 
  $tShuffle = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a> 
  EOM 
  $tReload = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a> 
  EOM 
  $tAutoStart = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a> 
  EOM 
  if ($GET{'vol'} =~ /^\d+$/){ 
  $GET{'vol'} = "&vol=$GET{'vol'}&"; 
  } 
  print <<EOM; 
  <style> 
  a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;} 
  a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;} 
  a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;} 
  a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;} 
  </style> 
  <body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0"> 
  <table width=100% border=0 cellpadding=0 cellspacing=0><tr> 
  <td align=right><font face=tahoma size=-2 color=$bgColor> 
  $tPlaylist /  
  $tReload /  
  $tAutoStart /  
  $tShuffle /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /  
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a> 
  </font></td> 
  <td valign=top title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td> 
  <td width=640 align=right bgcolor=$bgColor> 
  <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" 
   codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" 
   WIDTH="640" HEIGHT="200" id="MP3player" ALIGN=""> 
  <PARAM NAME=movie VALUE="$MP3_BIN_URL/play.swf?$GET{'vol'}action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"> 
  <PARAM NAME=quality VALUE=high> 
  <PARAM NAME=bgcolor VALUE="#$bgColor"> 
  <EMBED src="$MP3_BIN_URL/play.swf?$GET{'vol'}action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"  
  quality=high bgcolor=#$bgColor WIDTH="640" HEIGHT="200" NAME="MP3player"  
  ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"> 
  </EMBED></OBJECT></td> 
  </tr></table> 
  </html> 
  <body onLoad="window.MP3player.focus();"> 
  <body onFocus="window.MP3player.focus();"> 
  EOM 
  }################################################## end mp3frame2 
  sub Search{ 
  my $FONT = "font-family:arial;"; 
  my $COL1 = "background-color:#AAAA00;"; 
  my $COL2 = "background-color:#CCCC00;"; 
  my $borders = <<EOM; 
  border-top:solid 1px #CCCCCC; 
  border-left:solid 1px #CCCCCC; 
  border-bottom:solid 1px #333333; 
  border-right:solid 1px #333333 
  EOM 
  my $RESULT; 
  if ($GET{'Q'}){ 
  my @cnt; 
  my $fnd; 
  if ($FOLDER_RECURSE){ 
  @cnt = &RecurseMP3($MP3_BIN); 
  }else{ 
  @cnt = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  foreach my $li(@cnt){ 
  if ($li =~ /$GET{'Q'}/si){$fnd++;} 
  } 
  if ($fnd >= 1){ 
  $GET{'RESULT'} = "Results found: $fnd"; 
  &Playlist2; 
  }else{ 
  $RESULT = "No results found"; 
  } 
  } 
  print <<EOM; 
  <title>MP3 Player Playlist</title> 
  <style> 
  td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders} 
  </style> 
  <BODY BGCOLOR="#646455"> 
  <form action="?"> 
  <input type=hidden name=action value="Search"> 
  <table border=0 cellspacing=0 cellpadding=3><tr> 
  <td class=C colspan=2>Search</td></tr><tr> 
  <td class=RESULT colspan=2>$RESULT</td></tr><tr> 
  <td align=right>Search</td><td align=right><input type=text name=Q value=""></td></tr><tr> 
  <td class=F colspan=2><input type=submit value="SEARCH"></td></tr><tr> 
  </tr></table> 
  </form> 
  EOM 
  exit; 
  }################################# end Search 
  sub Playlist2{ 
  my @playlist; 
  my $SHOW_TITLE = 1; 
  my $SHOW_SIZE = 1; 
  my $SHOW_MODIFIED = 1; 
  my $SHOW_CREATED = 0; 
  my $SHOW_CNT = 1; 
  my $COL; 
  my $FONT = "font-family:arial;"; 
  my $COL1 = "background-color:#998899;"; 
  my $COL2 = "background-color:#887788;"; 
  my $borders = <<EOM; 
  border-top:solid 1px #CCCCCC; 
  border-left:solid 1px #CCCCCC; 
  border-bottom:solid 1px #333333; 
  border-right:solid 1px #333333 
  EOM 
  if ($GET{'flip'} =~ /^\-(.*)/){my $iz = $1;if ($iz =~ /[a-zA-Z]/){$GET{'flip'} = "";}else{$GET{'flip'} = "T";}} 
  my $SORT = $GET{'sortby'}; 
  my $FLIP = $GET{'flip'}; 
  my @fields = ("TITLE","SIZE","MODIFIED","CREATED"); 
  my $colspan = $#fields+2; 
  if ($FOLDER_RECURSE){ 
  @playlist = &RecurseMP3($MP3_BIN); 
  }else{ 
  @playlist = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  ################## SEARCH THE PLAYLIST 
  if ($GET{'Q'}){ 
  my $fnd; 
  my @keep; 
  foreach my $li(@playlist){ 
  if ($li =~ /$GET{'Q'}/si){$fnd++;push(@keep,$li);} 
  } 
  @playlist = @keep; 
  } 
  ################## SORT THE PLAYLIST? 
  if ($SORT){ 
  my $cnt; 
  my @SORTME; 
  foreach my $mp3(@playlist){$cnt++; 
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3"); 
  my $sor; 
  if ($SORT eq "TITLE"){$sor = $mp3;} 
  if ($SORT eq "SIZE"){$sor = $size;} 
  if ($SORT eq "MODIFIED"){$sor = $mtime;} 
  if ($SORT eq "CREATED"){$sor = $ctime;} 
  $sor =~ s/\|/\%7C/gs; 
  if ($sor =~ /^[0-9]+/){$sor = $sor+1000000000000; 
  }else{ 
  $sor = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA".$sor; 
  $sor =~ s/.*(.{256})$/$1/; 
  $sor =~ tr/[A-Z]/[a-z]/; 
  } 
  push(@SORTME,"$sor\|$mp3"); 
  } 
  my @kp; 
  if ($FLIP){@SORTME = reverse sort @SORTME;}else{@SORTME = sort @SORTME;} 
  foreach my $done(@SORTME){ 
  $done =~ s/.*\|//; 
  push(@kp,$done); 
  } 
  @playlist = @kp; 
  } 
  my $smod; 
  if ($GET{'RESULT'}){ 
  $smod = <<EOM; 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?action=Playlist2" data-href="?action=Playlist2">All Songs</a> /  
  EOM 
  } 
  my $LIBRARY_TOTAL = $#playlist+1; 
  my @RECURSE_TITLE = ("Off","On"); 
  print <<EOM; 
  <title>MP3 Player Playlist</title> 
  <style> 
  td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders} 
  </style> 
  <BODY BGCOLOR="#646455"> 
  <table border=0 cellspacing=0 cellpadding=3><tr> 
  <td class=C colspan=$colspan>MP3Player Playlist $smod<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=25848374&url=?action=Search" data-href="?action=Search">Search Playlist</a></td></tr><tr> 
  <td class=RESULT colspan=$colspan>$GET{'RESULT'}</td></tr><tr> 
  EOM 
  if ($SHOW_CNT){print "<td class=C> </td>";} 
  foreach my $field(@fields){my $vl = eval("\$SHOW_$field");if ($vl){print "<td class=C><a href=\"?action=Playlist2&sortby=$field&flip=\-$GET{'flip'}\">$field</a></td>";}}print "</tr><tr>\n"; 
  my $cnt; 
  foreach my $mp3(@playlist){$cnt++; 
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3"); 
  my $mp3q = $mp3; 
  $mp3q =~ s/\&/\%26/g; 
  $mp3q =~ s/\s+/\+/g; 
  if ($COL eq "$COL2"){$COL = "$COL1";}else{$COL = "$COL2";} 
  if ($SHOW_CNT){print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$cnt</td>\n";} 
  if ($SHOW_TITLE){print "<td style=\"$FONT$COL$borders;font-size:x-small;\"><a target=\"mp3Player\" href=\"?action=mp3frame&reload=y&autoStart=y&vol=100&src=$MP3_BIN_URL$mp3q\">$mp3</a></td>\n";} 
  if ($SHOW_SIZE){$size = &DescribeSize($size);print "<td alt=\"$MP3_BIN$mp3\" style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$size</td>\n";} 
  if ($SHOW_MODIFIED){$mtime = &Epoch2Style($mtime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$mtime</td>\n";} 
  if ($SHOW_CREATED){$ctime = &Epoch2Style($ctime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$ctime</td>\n";} 
  print "</tr><tr>"; 
  } 
  print <<EOM; 
  <td colspan=$colspan> </td></tr><tr> 
  </table> 
  EOM 
  exit; 
  }################################################## end Playlist2 
  sub Info{ 
  my @playlist; 
  if ($FOLDER_RECURSE){ 
  @playlist = &RecurseMP3($MP3_BIN); 
  }else{ 
  @playlist = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  my $LIBRARY_TOTAL = $#playlist+1; 
  my @RECURSE_TITLE = ("Off","On"); 
  print <<EOM; 
  <title>MP3 Player Info</title> 
  <table border=0><tr> 
  <td class=2>MP3 Player Info</td></tr><tr> 
  <td align=right>MP3_BIN:</td><td style="font-weight:bold;">$MP3_BIN</td></tr><tr> 
  <td align=right>TOTAL SONGS:</td><td style="font-weight:bold;">$LIBRARY_TOTAL</td></tr><tr> 
  <td align=right>FOLDER_RECURSE:</td><td style="font-weight:bold;">$RECURSE_TITLE[$FOLDER_RECURSE]</td></tr><tr> 
  </table> 
  EOM 
  foreach my $mp3(@playlist){ 
  print "<li>$mp3\n"; 
  } 
  exit; 
  }################################################## end Info 
  sub Playlist{ 
  my @playlist; 
  my $SHOW_TITLE = 1; 
  my $SHOW_SIZE = 1; 
  my $SHOW_MODIFIED = 1; 
  my $SHOW_CREATED = 0; 
  my $SHOW_CNT = 1; 
  my $COL; 
  my $FONT = "font-family:arial;"; 
  my $COL1 = "background-color:#AAAA00;"; 
  my $COL2 = "background-color:#CCCC00;"; 
  my $borders = <<EOM; 
  border-top:solid 1px #CCCCCC; 
  border-left:solid 1px #CCCCCC; 
  border-bottom:solid 1px #333333; 
  border-right:solid 1px #333333 
  EOM 
  if ($GET{'flip'} =~ /^\-(.*)/){my $iz = $1;if ($iz =~ /[a-zA-Z]/){$GET{'flip'} = "";}else{$GET{'flip'} = "T";}} 
  my $SORT = $GET{'sortby'}; 
  my $FLIP = $GET{'flip'}; 
  my @fields = ("TITLE","SIZE","MODIFIED","CREATED"); 
  my $colspan = $#fields+2; 
  if ($FOLDER_RECURSE){ 
  @playlist = &RecurseMP3($MP3_BIN); 
  }else{ 
  @playlist = &ReadContent($MP3_BIN,'\.mp3'); 
  } 
  ################## SORT THE PLAYLIST? 
  if ($SORT){ 
  my $cnt; 
  my @SORTME; 
  foreach my $mp3(@playlist){$cnt++; 
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3"); 
  my $sor; 
  if ($SORT eq "TITLE"){$sor = $mp3;} 
  if ($SORT eq "SIZE"){$sor = $size;} 
  if ($SORT eq "MODIFIED"){$sor = $mtime;} 
  if ($SORT eq "CREATED"){$sor = $ctime;} 
  $sor =~ s/\|/\%7C/gs; 
  if ($sor =~ /^[0-9]+/){$sor = $sor+1000000000000; 
  }else{ 
  $sor = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA".$sor; 
  $sor =~ s/.*(.{256})$/$1/; 
  $sor =~ tr/[A-Z]/[a-z]/; 
  } 
  push(@SORTME,"$sor\|$mp3"); 
  } 
  my @kp; 
  if ($FLIP){@SORTME = reverse sort @SORTME;}else{@SORTME = sort @SORTME;} 
  foreach my $done(@SORTME){ 
  $done =~ s/.*\|//; 
  push(@kp,$done); 
  } 
  @playlist = @kp; 
  } 
  my $LIBRARY_TOTAL = $#playlist+1; 
  my @RECURSE_TITLE = ("Off","On"); 
  print <<EOM; 
  <title>MP3 Player Playlist</title> 
  <style> 
  td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders} 
  </style> 
  <BODY BGCOLOR="#646455"> 
  <table border=0 cellspacing=0 cellpadding=3><tr> 
  <td class=C colspan=$colspan>MP3Player Playlist</td></tr><tr> 
  EOM 
  if ($SHOW_CNT){print "<td class=C> </td>";} 
  foreach my $field(@fields){my $vl = eval("\$SHOW_$field");if ($vl){print "<td class=C><a href=\"?action=Playlist&sortby=$field&flip=\-$GET{'flip'}\">$field</a></td>";}}print "</tr><tr>\n"; 
  my $cnt; 
  foreach my $mp3(@playlist){$cnt++; 
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3"); 
  if ($COL eq "$COL2"){$COL = "$COL1";}else{$COL = "$COL2";} 
  if ($SHOW_CNT){print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$cnt</td>\n";} 
  if ($SHOW_TITLE){print "<td style=\"$FONT$COL$borders;font-size:x-small;\"><a target=\"_top\" href=\"?reload=y&autoStart=y&vol=100&src=$MP3_BIN_URL$mp3\">$mp3</a></td>\n";} 
  if ($SHOW_SIZE){$size = &DescribeSize($size);print "<td alt=\"$MP3_BIN$mp3\" style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$size</td>\n";} 
  if ($SHOW_MODIFIED){$mtime = &Epoch2Style($mtime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$mtime</td>\n";} 
  if ($SHOW_CREATED){$ctime = &Epoch2Style($ctime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$ctime</td>\n";} 
  print "</tr><tr>"; 
  } 
  print <<EOM; 
  <td colspan=$colspan> </td></tr><tr> 
  </table> 
  EOM 
  exit; 
  }################################################## end Playlist 
  sub DescribeSize{ 
  my $bytes = $_[0]; 
  my $val = 0;my $size = 0;my $kilobytes = 0;my $megabytes = 0;my $gigabytes = 0; 
  my $fmat = "b"; 
  if ($bytes > 1024){$val = $bytes/1024;$fmat = "k";$kilobytes = $bytes/1024;} 
  if ($bytes > (1024*1024)){$val = $bytes/(1024*1024);$fmat = "M";$megabytes = $bytes/(1024*1024);} 
  if ($bytes > (1024*1024*1024)){$val = $bytes/(1024*1024*1024);$fmat = "G";$gigabytes = $bytes/(1024*1024*1024);} 
  $val =~ s/\.(.).*/\.$1/; 
  if (($_[0] > 0)&&($_[0] < 1025)){$val = 1;$fmat = "k";} 
  $val = "$val $fmat"; 
  if ($val eq "0 b"){$val = "";} 
  return $val; 
  }#################################### end DescribeSize 
  sub Epoch2Style{ 
  my $tima = $_[0]; 
  my $template = $_[1]; 
  my %TIM = (); 
  $TIM{'time'} = $tima; 
  $TIM{'template'} = $template; 
  $TIM{'date'} = localtime($TIM{'time'}); 
  my($dow,$mon,$dat,$tim,$yer)=split(/\s+/,$TIM{'date'}); 
  my $yr = $yer;$yr =~ s/^\d\d//; 
  my($hr,$min,$sec)=split(/\:/,$tim); 
  my $time24 = $tim; 
  $time24 =~ s/\D+//g; 
  my($hr24,$min24,$sec24)=split(/\:/,$tim); 
   
  my $mer = "am";if ($hr > 11){$mer = "pm";$hr = $hr - 12;} 
  $hr =~ s/^0//; 
  my $monthid = &GetMonthID("$mon"); 
  my $monthvalue = "00".$monthid; 
  $monthvalue =~ s/.*(..)$/$1/; 
  my $datevalue = "00".$dat; 
  $datevalue =~ s/.*(..)$/$1/; 
  my $hrv = "00".$hr; 
  $hrv =~ s/.*(..)$/$1/; 
  my $minv = "00".$min; 
  $minv =~ s/.*(..)$/$1/; 
  $TIM{'template'} =~ s/mmm/$mon/g; 
  $TIM{'template'} =~ s/timestamp/$yer$monthvalue$datevalue$time24/gi; 
  $TIM{'template'} =~ s/month/$mon/g; 
  $TIM{'template'} =~ s/mon/$mon/g; 
  $TIM{'template'} =~ s/mm/$monthid/g; 
  $TIM{'template'} =~ s/mv/$monthvalue/g; 
  $TIM{'template'} =~ s/dd/$dat/g; 
  $TIM{'template'} =~ s/hv/$hrv/g; 
  $TIM{'template'} =~ s/hrv/$hrv/g; 
  $TIM{'template'} =~ s/time24/$hr24$min24$sec24/g; 
  $TIM{'template'} =~ s/hr24/$hr24/g; 
  $TIM{'template'} =~ s/min24/$min24/g; 
  $TIM{'template'} =~ s/sec24/$sec24/g; 
  $TIM{'template'} =~ s/hr/$hr/g; 
  $TIM{'template'} =~ s/minv/$minv/g; 
  $TIM{'template'} =~ s/min/$min/g; 
  $TIM{'template'} =~ s/sec/$sec/g; 
  $TIM{'template'} =~ s/mer/$mer/g; 
  $TIM{'template'} =~ s/datevalue/$datevalue/g; 
  $TIM{'template'} =~ s/datvalue/$datevalue/g; 
  $TIM{'template'} =~ s/datv/$datevalue/g; 
  $TIM{'template'} =~ s/dv/$datevalue/g; 
  $TIM{'template'} =~ s/date/$dat/g; 
  $TIM{'template'} =~ s/dat/$dat/g; 
  $TIM{'template'} =~ s/year/$yer/gi; 
  $TIM{'template'} =~ s/yr/$yr/gi; 
  $TIM{'template'} =~ s/yy/$yr/gi; 
  $TIM{'template'} =~ s/dow/$dow/g; 
  $TIM{'template'} =~ s/time/$tim/g; 
  #20040203200000 
  if ($TIM{'template'} =~ /mysql/){ 
  my $monthid = &GetMonthID("$mon"); 
  my $dateid = "00".$dat;$dateid =~ s/.*(\d\d)$/$1/; 
  my $hourid = "00".$hr;$hourid =~ s/.*(\d\d)$/$1/; 
  my $minid = "00".$min;$minid =~ s/.*(\d\d)$/$1/; 
  my $secid = "00".$sec;$secid =~ s/.*(\d\d)$/$1/; 
  my $mysql = $yer.$monthid.$dateid.$hourid.$minid.$secid; 
  $TIM{'template'} =~ s/mysql/$mysql/g; 
  } 
  return $TIM{'template'}; 
  }################################ end Epoch2Style 
  sub GetMonthID{ 
  my $month = $_[0]; 
  my $month_id; 
  my @month_titles = ("January","February","March","April","May","June","July","August","September","October","November","December"); 
  my $Y = 0; 
  foreach my $month_title(@month_titles){$Y++; 
  if ($month_title =~ /$month/i){$month_id = $Y;} 
  } 
  return $month_id; 
  }##################################### end GetMonthID 
  sub RecurseMP3{ 
  my @playlist = &ReadContent($MP3_BIN,'\.mp3'); 
  my %PLIST; 
  foreach my $song(@playlist){$PLIST{$song} = 1;} 
  my @FOLDERS = &Recurse($MP3_BIN); 
  my $RECURSE; 
  foreach my $subf(@FOLDERS){ 
  my @subdir = &ReadContent($subf,'\.mp3'); 
  $RECURSE .= "<li>$subf=".($#subdir+1)."\n"; 
  my $apend = $subf; 
  $apend =~ s/^$MP3_BIN//; 
  if ($MP3_BIN =~ /\\/){$apend .= "\\";}else{$apend .= "/";} 
  foreach my $submp3(@subdir){ 
  if (!$PLIST{$submp3}){push(@playlist,$apend.$submp3);} 
  } 
  } 
  return @playlist; 
  }################################################## end RecurseMP3 
  sub Recurse{ 
  my $path = $_[0]; 
  my $req = $_[1]; 
  my @subs = (); 
  my @dir = &ReadContent("$path"); 
  if ($path =~ /\\/){#### are we using the downhill slash in our path? 
  $path =~ s/\\+$//; 
  foreach my $ld(@dir){ 
  if (-d $path."\\".$ld){ 
  push (@subs,$path."\\".$ld); 
  my @asubs = &Recurse("$path\\$ld"); 
  foreach my $ald(@asubs){if (-d $ald){push(@subs,$ald);}} 
  } 
  } 
  }else{#### then do it the nice unix way 
  $path =~ s/\/+$//; 
  foreach my $ld(@dir){ 
  if (-d $path."/".$ld){ 
  push (@subs,$path."/".$ld); 
  my @asubs = &Recurse("$path/$ld"); 
  foreach my $ald(@asubs){if (-d $ald){push(@subs,$ald);}} 
  } 
  } 
   
  } 
  return @subs; 
  }####################################### end Recurse 
  sub ReadContent{ 
  my $content = $_[0]; 
  my $qrequire = $_[1]; 
  my @content = (); 
  if (!$content){return;} 
  if (-d "$content"){ 
  opendir Tdir, "$content"; 
  my $dir = readdir(Tdir); 
  while($dir = readdir(Tdir)){chomp $dir; 
  if ($dir eq ".."){}else{if ($qrequire){if ($dir =~ /$qrequire/i){push (@content,"$dir");}}else{push (@content,"$dir");}} 
  }close Tdir; 
  }else{ 
  open (FILE,$content); 
  #flock(FILE,LOCK_EX); 
  while (<FILE>){chomp $_; 
  push (@content,$_); 
  } 
  #flock(FILE,LOCK_UN); 
  close FILE; 
  } 
  return @content; 
  }##################################### end ReadContent 
  sub ReadContentOLD{ 
  my $content = $_[0]; 
  my @content=(); 
  if (-d "$content"){ 
  opendir Tdir, "$content"; 
  my $dir = readdir(Tdir); 
  while($dir = readdir(Tdir)){chomp $dir; 
  if ($dir eq ".."){}else{push (@content,"$dir");} 
  }close Tdir; 
  }else{ 
  open (FILE,"$content"); 
  while (<FILE>){chomp $_; 
  push (@content,"$_"); 
  }close FILE; 
  } 
  return @content; 
  }##################################### end ReadContent 
  sub readGet{ 
  my %GET = (); 
  if ($ENV{'QUERY_STRING'} =~ /lastSrc\=(.*)/){$GET{'ZlastSrc'} = $1; 
  $GET{'ZlastSrc'} =~ tr/+/ /; 
  $GET{'ZlastSrc'} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
  } 
  if ($ENV{'QUERY_STRING'}){ 
  my $qstring= $ENV{'QUERY_STRING'}; 
  my @get = split(/\&/,$qstring); 
  foreach (@get){ 
  my ($qname,$qvalue)=split(/=/,$_,2); 
  $qvalue =~ tr/+/ /; 
  $qvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
  $GET{$qname} = $qvalue; 
  } 
  } 
  if ($ARGV[0] =~ /^\w\:[\\|\/]/){ 
  #print "YO"; 
  $GET{'drop'} = $ARGV[0]; 
  $ARGV[0] = ""; 
  foreach (@ARGV){ 
  my @line = split(/\=/,$_,2); 
  if ($line[0]){ 
  $GET{'drop'} .= ",".$line[0]; 
  } 
  } 
  @ARGV = (); 
  } 
  if (@ARGV){ 
  foreach (@ARGV){ 
  my @line = split(/\=/,$_,2); 
  if ($line[0]){ 
  $GET{$line[0]} = $line[1]; 
  } 
  } 
  } 
  if ($GET{'ZlastSrc'}){$GET{'lastSrc'} = $GET{'ZlastSrc'};} 
  return %GET; 
  }################################ 
  sub initENV{ 
  my %MYENV = (); 
  my $this_dir = cwd."/".$0; 
  if ($0 =~ /^[a-zA-Z]\:/){$this_dir = $0;} 
  $this_dir =~ s/(.*)([\/|\\]+)[^\/|\\]+$/$1$2/; 
  if ($this_dir eq ""){print "Failed to find a working directory path=$this_dir\n";exit;} 
  $this_dir =~ s/[\/|\\]+$//; 
  $this_dir =~ s/\\+/\//g; 
  $MYENV{'this_dir'} = "$this_dir"; 
  if ($ENV{'SERVER_NAME'}){ 
  $MYENV{'this_cgi'} = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}"; 
  $MYENV{'this_url'} = $MYENV{'this_cgi'}; 
  $MYENV{'this_url'} =~ s/\/[^\/]+$//; 
  } 
  return %MYENV; 
  }######################################## end initENV
Benzer içerikler
