Changeset 1107

Timestamp:

10/22/08 22:26:24 (1 year ago)

Author:

Pernod

Message:

Now playing track details are now retrieved from internet radio servers.

Fixes #167

Files:

• trunk/swisscenter/base/capabilities.php (modified) (1 diff)
• trunk/swisscenter/base/image_screens.php (modified) (2 diffs)
• trunk/swisscenter/base/playlist.php (modified) (1 diff)
• trunk/swisscenter/music_radio_image.php (modified) (1 diff)
• trunk/swisscenter/music_radio_urls.php (modified) (1 diff)

trunk/swisscenter/base/capabilities.php

@@ -378 +378 @@
-
-#-------------------------------------------------------------------------------------------------
+# Returns the POD (Picture On Demand) parameter to pass to the hardware player that controls how
+# an audio stream with images will be synchronized together.
+#-------------------------------------------------------------------------------------------------
+
+function stream_pod_type()
+{
+  $result = 1;  // Default values for players unless we discover otherwise.
+
+  switch ( get_player_type() )
+  {
+    case 'POPCORN':
+         $result = 2;
+         break;
+  }
+
+  return $result;
+}
+
+#-------------------------------------------------------------------------------------------------
-# The transition effect to use between "Now Playing" screens.
-#

trunk/swisscenter/base/image_screens.php

@@ -83 +83 @@
-  //------------------------------------------------------------------------------------------------
-
-
+, $now_playing
-  {
-    $title_text_size  = font_size( 24, SCREEN_COORDS);
@@ -94 +94 @@
-    $image->resize( convert_x(1000,SCREEN_COORDS), convert_y(1000,SCREEN_COORDS), 0, false);    
-    wrap( $image,$station_name, $title_x, $title_y, convert_x(500,SCREEN_COORDS), $title_text_col, $title_text_size);
+    $title_y+=($title_text_size*2.5);
+    wrap( $image,$now_playing, $title_x, $title_y, convert_x(500,SCREEN_COORDS), $title_text_col, $title_text_size);
-    return $image;    
-  }

trunk/swisscenter/base/playlist.php

@@ -244 +244 @@
-function play_internet_radio( $playlist_url, $station_name )
-{
-1,1,'.server_address().'music_radio_image.php?'.current_session().'&list=&station='.urlencode($station_name
+'.stream_pod_type().',1,'.server_address().'music_radio_image.php?'.current_session().'&list=&station='.urlencode($station_name).'&playlist='.urlencode($playlist_url
-}
-

trunk/swisscenter/music_radio_image.php

@@ -7 +7 @@
-  require_once( realpath(dirname(__FILE__).'/base/capabilities.php'));
-
+  /**
+   * Returns the track title currently being played by the ShoutCast server.
+   *
+   * @param integer $host
+   * @param integer $port
+   * @return string
+   */
+  function shoutcast_now_playing($host, $port)
+  {
+    send_to_log(5,'Connecting to ShoutCast server '.$host.':'.$port);
+    $fp = @fsockopen($host,$port,$errno,$errstr,10);
+    if (!$fp) 
+    { 
+      send_to_log(5,'- Connection refused'); // Displays when sever is offline
+    } 
+    else
+    { 
+      fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");
+      while (!feof($fp)) 
+      {
+        $info = fgets($fp);
+      }
+      $info = str_replace('</body></html>', "", $info);
+      $split = explode(',', $info);
+      if (empty($split[6]) )
+      {
+        send_to_log(5,'- The current song is not available'); // Displays when server is online but no song title
+      }
+      else
+      {
+        $title = str_replace('\'', '`', $split[6]);
+        $title = str_replace(',', ' ', $title);
+        send_to_log(5,'- Now playing "'.$title.'"'); 
+        return $title; // Displays song
+      }
+    }
+  }
+  
+  if ( empty($_REQUEST["host"]) || empty($_REQUEST["port"]) )
+  {
+    // Retrieve server details from playlist (pls) (3 attempts)
+    $i=0;
+    send_to_log(6,'Attempting to obtain server details from radio playlist'); 
+    while ( $i < 3 && empty($info) )
+    {
+      if ( ($info = file_get_contents(urldecode(un_magic_quote($_REQUEST["playlist"])))) == false )
+        send_to_log(6,'- Attempt '.$i.': Failed to download playlist');
+      elseif ( preg_match('/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{1,5})/', $info, $host) == 0 )
+        send_to_log(6,'- Failed to find internet radio server in playlist:', $info);
+      else
+        send_to_log(6,'- Radio server found at '.$host[1].':'.$host[2]);
+      $i++;
+    }
+  }
+  else
+  {
+    $host[1] = $_REQUEST["host"];
+    $host[2] = $_REQUEST["port"];
+  }
+  
-  if ( isset($_REQUEST["list"]))
-  {
-    // List of images to display to the user (changes every 30 seconds)
-    $server     = server_address();
-
+
+
+
-    $transition = now_playing_transition();
-60
-60
+
+
-  }
-  else
-  {
-
-
+
+
+
-    $image->output('jpeg');
-  }

trunk/swisscenter/music_radio_urls.php

@@ -14 +14 @@
-    preg_match('/\bURL=.*\n?/',$contents,$matches);
-    $url = substr($matches[0],4);
-url
+file
-  }
-