[BACK]Return to playmp3s.pl CVS log [TXT][DIR] Up to [local] / mp3 / daemon

Diff for /mp3/daemon/playmp3s.pl between version 1.6 and 1.7

version 1.6, 2007/02/08 23:02:30 version 1.7, 2010/10/28 20:21:29
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: playmp3s.pl,v 1.5 2007/02/08 18:13:33 andrew Exp $  # $RedRiver: playmp3s.pl,v 1.6 2007/02/08 23:02:30 andrew Exp $
 ########################################################################  ########################################################################
 # PlayMP3.pl *** play's MP3s off a playlist using mp3play  # PlayMP3.pl *** play's MP3s off a playlist using mp3play
 #  #
Line 67 
Line 67 
                 DisplayPlaying($cfgs{currenthtml},$filename);                  DisplayPlaying($cfgs{currenthtml},$filename);
                 Print_PlayLog("done\n");                  Print_PlayLog("done\n");
   
                   Print_PlayLog("Adding Last. . .");
                   AddLast($filename, $cfgs{playedlist}, $Num_History, $cfgs{playedhtml}, $cfgs{addurl});
                   Print_PlayLog("done\n");
   
                 if ($save_playlist) {                  if ($save_playlist) {
                         Print_PlayLog("Saving Playlist. . .");                          Print_PlayLog("Saving Playlist. . .");
                         save_playlist($cfgs{list},@playlist) || bail("Unable to save playlist!: $!");                          save_playlist($cfgs{list},@playlist) || bail("Unable to save playlist!: $!");
Line 90 
Line 94 
                 Print_PlayLog("$player\n");                  Print_PlayLog("$player\n");
                 `$player`;                  `$player`;
   
   
 #       my $kid = 0;  #       my $kid = 0;
 #    while ($kid ne -1 && ContinueRun()) {  #    while ($kid ne -1 && ContinueRun()) {
 #     while ($kid ne -1) {  #     while ($kid ne -1) {
Line 100 
Line 103 
 #    }  #    }
   
   
                 if ($song) {  
                         Print_PlayLog("Adding Last. . .");  
                         delete ${ $Full_Playlist{list} }{$song};  
   
                         AddLast($filename, $cfgs{playedlist}, $Num_History, $cfgs{playedhtml}, $cfgs{addurl});  
                         Print_PlayLog("done\n");  
                 }  
   
                 Print_PlayLog("Displaying Nothing . . .");                  Print_PlayLog("Displaying Nothing . . .");
                 DisplayPlaying($cfgs{currenthtml},"Nothing");                  DisplayPlaying($cfgs{currenthtml},"Nothing");
                 Print_PlayLog("done\n");                  Print_PlayLog("done\n");
Line 171 
Line 166 
                 my %played;                  my %played;
                 @played{@played_list} = ();                  @played{@played_list} = ();
   
   
                 delete $Full_Playlist{list};                  delete $Full_Playlist{list};
   
                 my $list_size = 0;                  my $list_size = 0;
Line 273 
Line 267 
         my $addurl   = shift;          my $addurl   = shift;
   
         my @LIST = get_playlist($lastlist);          my @LIST = get_playlist($lastlist);
   
           DisplayPrevious($htmlfile, $addurl, @LIST) if $htmlfile;
   
         unshift @LIST, $lastsong;          unshift @LIST, $lastsong;
         splice (@LIST, $history) if $history;          splice (@LIST, $history) if $history;
         save_playlist($lastlist,@LIST);          save_playlist($lastlist,@LIST);
         DisplayPrevious($htmlfile, $addurl, @LIST);  
           # Remove song from full list so we don't play it again.
           delete $Full_Playlist{list}{$lastsong};
 }  }
   
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>