Forum Home Enhancements - Shoutcast Status 3 (VB4)

Shoutcast Status 3.0 on your VB4 ForumHome.

/* ----------------- 03/13/2010 -----------------
This is a Nice hack to add Shoutcast Status on your VB4 ForumHome.
Hope it helps !!!

Zachariah @ http://www.szone.us

SHOUTcast is a free-of-charge audio homesteading solution. It permits anyone
on the internet to broadcast audio from their PC to listeners across the
Internet or any other IP-based network (Office LANs, college campuses, etc.).

http://www.shoutcast.com

Zerro Queries Added

================================================== =====
Tested On:

vBulletin 4+
SHOUTcast Server v1.9.5
================================================== =====

== Install: 2-5 min ==

Full Stats
- Needs Shoutcast server admin password

Server Name
Last 19 songs
4 media layers (winamp, quicktime, media player, real player)
DJ Name
Bitrate
Current Song
Media Type
Most Ever Connected
Hit Count
Users Connected
Avj. Connect Time
User Max
Online / Offline status
XML Data Cache

Lite Stats
- Dose not need shoutcast server admin password

Server Name
4 media players (winamp, quicktime, media player, real player)
Bitrate
Current Song
Users Connected
User Max
Online / Offline status

================================================== =====
Adds: 2 plugins
Adds: 8 images, 2 files
Adds: 10 templates
Adds: 45 phrases
================================================== =====

VB3.8X - https://vborg.vbsupport.ru/showthread.php?t=126007
(Shoutcast Status 2.0, 4387 downloads)

[xabo]

Hello,

First of all, thanks for a nice hack.

Anyhows im having a question, is there any chance to implent this as a widget on my CMS, or in vBadvance in any way?

Tried all possible ways with PHP Import and stuff...

\\ X

[TeknoSounds]

Originally Posted by xabo

Hello,

First of all, thanks for a nice hack.

Anyhows im having a question, is there any chance to implent this as a widget on my CMS, or in vBadvance in any way?

Tried all possible ways with PHP Import and stuff...

\\ X

Earlier he mentioned he was going to work on a vBa module. Hopefully he finishes it soon Would really love to put it on my portal.

[WhatChaMissin]

I have a station that broadcast two streams (128kbps and 32kpbs). Would love for there to be a way to include both streams. I only need to have a second set of players with total listeners information for the other stream and not a second "What Playiing"

* I'm willing to pay for this modification, please see attachment

Thanks

[raagaswaram]

Thanks a lot it works gr8 i have installed on my vb 4.0.3 but problem is i couldn't see the song details get refreshed auto.can u tell me how to do it?.

[Zachariah]

Originally Posted by TeknoSounds

Earlier he mentioned he was going to work on a vBa module. Hopefully he finishes it soon Would really love to put it on my portal.

Almost done with a VBA block.

Originally Posted by WhatChaMissin

I have a station that broadcast two streams (128kbps and 32kpbs). Would love for there to be a way to include both streams. I only need to have a second set of players with total listeners information for the other stream and not a second "What Playiing"

* I'm willing to pay for this modification, please see attachment

Thanks

That should not be a problem.

Originally Posted by raagaswaram

Thanks a lot it works gr8 i have installed on my vb 4.0.3 but problem is i couldn't see the song details get refreshed auto.can u tell me how to do it?.

by default there is a 120 SEC cache setup and updates are on refreash.
- I will work on auto update in new version

[TeknoSounds]

That's awesome Zachariah I can't wait.

Also had some recent ideas for some other shoutcast mods. Gonna look into what all it takes to create an addon.

Oh and on that two stream request, it looked pretty simple but the main changes would be in the admincp settings to allow settings for multiple streams?
So I was thinking, along the lines of his request, to allow the mod to have set and show stats for multiple stations., would just have to have a different xml file, and then have an option to show the song/track/mix title in case the stream is the same one or different. All that make sense?

Anyway nothing I need, just seemed a logical step of improvement

Oh and did you see my Windows7 error? When attempting to use the WMP link from the addon, the window that loads up doesn't show the player, it just keeps showing "Waiting for video" although the stream play fine.

[cyberlooser]

Originally Posted by Zachariah

Almost done with a VBA block.

hi Zachariah,

how?

that's your code for the position for the module:

PHP Code:

// Connect to the server
  switch ($placecast) {
    case 2 :
      $placecast = 'forumhome_above_forums';
      break;
    case 3 :
      $placecast = 'forumhome_below_forums';
      break;
    case 4 :
      $placecast = 'forumhome_wgo_pos1';
      break;
    case 5 :
      $placecast = 'forumhome_wgo_pos2';
      break;
    case 6 :
      $placecast = 'forumhome_wgo_pos3';
      break;
    case 7 :
      $placecast = 'forumhome_wgo_pos4';
      break;
    case 8 :
      $placecast = 'forumhome_wgo_pos5';
      break;
    case 9 :
      $placecast = '9';
      break;
    default :
      $placecast = 'forumhome_wgo_pos2';
  } 


there is no option for the VGA Block
can't find the option 2 select where i want 2 located this Modul.

so i modified your scast.php file a little bit.
in this way it is posible to install as a Modules.

here is the code:

this code should be cleaned up...i'll do this later. while some variables doesn't in use but i forgotten which one was it

PHP Code:


<?php
/* -----------------05/28/2010-----------------
This is a Nice hack to add Shoutcast  VBA block Modules on your VB4 Forum Home.
Hope it helps !!!

Original by Zachariah

modified by cyberlooser/h?r


HowTo Install

Install first the Shoutcast Status 3 (VB4) !

1. save this PHP file with this code  as radio.php in your ../forum / modules folder :

2.Create a new PHP module with the following values:
Module Title = "Radio" 
File To Include = radio.php
Identifier = radio


playlist link is implemented 
the playlist link for the players like QT / RP and MediaPlayer need to be reaktivated in this Module


=======================================================
Tested On:

vBulletin 4.0
SHOUTcast Server v1.9.5

=======================================================
*/




$scgroups = explode(',', $vbulletin->options['scgrp_full']);

//if (is_member_of($vbulletin->userinfo, $scgroups) OR $scgroups[0] == 0) {
//  #####   VBOPTION SETTINGS
  $scdef = $vbulletin->options['scname_full'];
  $scip = $vbulletin->options['scip_full'];
  $scport = $vbulletin->options['scport_full'];
  $scpass = $vbulletin->options['scpass_full'];
  $file = $vbulletin->options['scxml_full'];
  $cache_tolerance = $vbulletin->options['scupdate_full'];
  $placecast = $vbulletin->options['scplace_full'];
  $scoff = $vbulletin->options['scoff_full'];
//  #####   VBOPTION SETTINGS END

$pfad = './images/misc/';

// Check if Cache File needs updated or not
  if (!is_writable($file)) {
    @ chmod($folderstring, 0777);
  }
// Check if Cache needs an update
  if (file_exists($file)) {
    clearstatcache();
// filemtime info gets cached so we must ensure that the cache is empty
    $time_difference = time() - filemtime($file);
// echo "$file was last modified: " . date ("F d Y H:i:s.", filemtime($file)) . "( " . $time_difference . " seconds ago) <br>" . "The cache is set to update every " . $cache_tolerance . " seconds.<br>";
  }
  else {
    $time_difference = $cache_tolerance;
// force update
  }

// Parses shoutcasts xml to make an effective stats thing for any website
  $scfp = @ fsockopen($scip, $scport, $errno, $errstr, 2);


// If server is off line
  if (!$scfp) {
    if ($scoff == 1) {

    
echo"
<html>

<head>
<title>$scdef</title>
</head>

<body >
 
 <table width=100%>
        <tr>
        <td>
        <img border=0 src=$pfad/shoutcast_off.gif alt=''> 
        <br><b>$scdef ist derzeit leider</b></br>
        <img src= $pfad/offline.gif />
        </td>
<tr><td colspan=2>Sorry, but at moment the radio is offline. </td></tr>
  </tr>
</table>
</body>
</html>
 ";
    }
  }
  else {
  
    // ############ Shoutcast server is online #######################
    
    if ($time_difference >= $cache_tolerance) {
// update the cache if need be
// Get XML feed from server
      if ($scsuccs != 1) {
        if ($scpass) {
          fputs($scfp, "GET /admin.cgi?pass=$scpass&mode=viewxml HTTP/1.0\r\nUser-Agent: SHOUTcast Song Status (Mozilla Compatible)\r\n\r\n");
        }
        else {
          fputs($scfp, "GET /7.html HTTP/1.0\r\nUser-Agent: XML Getter (Mozilla Compatible)\r\n\r\n");
        }
        while (!feof($scfp)) {
          $xmlfeed .= fgets($scfp, 8192);
        }
        fclose($scfp);
      }
// Output to cache file
      $tmpfile = fopen($file, "w+");
      $fp = fwrite($tmpfile, $xmlfeed);
      fclose($tmpfile);
      flush();
// Outputs the cached file after new data
      $xmlcache = fopen($file, "r");
      $page = '';
      if ($xmlcache) {
        while (!feof($xmlcache)) {
          $page .= fread($xmlcache, 8192);
        }
        fclose($xmlcache);
      }
    }
    else {
// outputs the cached file
      $xmlcache = fopen($file, "r");
      $page = '';
      if ($xmlcache) {
        while (!feof($xmlcache)) {
          $page .= fread($xmlcache, 8192);
        }
        fclose($xmlcache);
      }
    }
  }
  if ($scpass) {
    // ######### There is a Admin password ###############
    
//define  xml elements
    $loop = array("AVERAGETIME", "CURRENTLISTENERS", "PEAKLISTENERS", "MAXLISTENERS", "SERVERGENRE", "SERVERURL", "SERVERTITLE", "SONGTITLE", "SONGURL", "WEBHITS", "STREAMHITS", "LISTEN", "STREAMSTATUS", "BITRATE", "CONTENT");
    $y = 0;
    while ($loop[$y] != '') {
      $pageed = ereg_replace(".*<$loop[$y]>", "", $page);
      $scphp = strtolower($loop[$y]);
      $$scphp = ereg_replace("</$loop[$y]>.*", "", $pageed);
      if ($loop[$y] == SERVERGENRE || $loop[$y] == SERVERTITLE || $loop[$y] == SONGTITLE || $loop[$y] == SERVERTITLE)
        $$scphp = urldecode($$scphp);
      ;
      $y++;
    }
//get song info and history
    $pageed = ereg_replace(".*<SONGHISTORY>", "", $page);
    $pageed = ereg_replace("<SONGHISTORY>.*", "", $pageed);
    $songatime = explode("<SONG>", $pageed);
    $r = 1;
    while ($songatime[$r] != "") {
      $t = $r - 1;
      $playedat[$t] = ereg_replace(".*<PLAYEDAT>", "", $songatime[$r]);
      $playedat[$t] = ereg_replace("</PLAYEDAT>.*", "", $playedat[$t]);
      $song[$t] = ereg_replace(".*<TITLE>", "", $songatime[$r]);
      $song[$t] = ereg_replace("</TITLE>.*", "", $song[$t]);
      $song[$t] = urldecode($song[$t]);
      $dj[$t] = ereg_replace(".*<SERVERTITLE>", "", $page);
      $dj[$t] = ereg_replace("</SERVERTITLE>.*", "", $pageed);
      $r++;
    }
    $averagemin = "";
    $hours = intval(intval($averagetime) / 3600);
    $averagemin .= ($padHours) ? str_pad($hours, 2, "0", STR_PAD_LEFT) : $hours . 'h&nbsp;';
    $minutes = intval(($averagetime / 60) % 60);
    $averagemin .= str_pad($minutes, 2, "0", STR_PAD_LEFT) . 'm&nbsp;';
    $seconds = intval($averagetime % 60) . 's';
    $averagemin .= str_pad($seconds, 2, "0", STR_PAD_LEFT);
  }
  else {
    // ######### There is no Admin password ###############
//define all the variables to get (delte any ones you don't want)
    $page = ereg_replace(".*<body>", "", $page);
//extract data
    $page = ereg_replace("</body>.*", ",", $page);
//extract data
    $numbers = explode(",", $page);
//extract data
    $currentlisteners = $numbers[0];
    $streamstatus = $numbers[1];
    $peaklisteners = $numbers[2];
    $maxlisteners = $numbers[3];
    $currentlisteners = $numbers[4];
    $bitrate = $numbers[5];
    $song[0] = $numbers[6];
  }

  // ######### Create links and media player pages ########
  // ######################################################
  $listenamp = 'http://' . $scip . ':' . $scport . '/listen.pls';
  $listenlnk = 'http://' . $scip . ':' . $scport . '/listen.pls';

// Player template requests

  
// Server is online display stats
  if ($scfp) {
    if ($streamstatus == "1") {
    
      echo "

<html>

<head>
<title>$scdef</title>
</head>

<body>
  <table width=100%>
   <tr>    
    <td><img src=$pfad/radio.gif align=middle></td>
   
   </tr>
   <tr>
     <td>
     <a href=$listenamp><b>$scdef <br>
     Server is </b></a>
     <a href=$listenamp></a>
     </td>
   </tr>
   
   <tr>
    <td colspan=2 ><marquee width=98% scrolldelay=100 scrollamount=5>
     <img src=$pfad/radio.gif align=middle> <b>$song[0] @ $scdef</b> <img src=$pfad/im_genre.gif align=middle></marquee><br></td>
     </tr>
     <tr>
     <td><marquee width=98% scrolldelay=100 scrollamount=5><b>DJ: $servertitle </b> </marquee></td>
     </tr>
    <tr> 
    <td><marquee width=98% scrolldelay=100 scrollamount=5>
      <b>Current Listeners $currentlisteners / $maxlisteners </b>
    <b>Bitrate @ $bitrate kbps </b> </marquee> </td>
  </tr>
 
</table> 
<table width=100%>
  <tr>
    <td><center><a href=$listenamp><img src=$pfad/im_qt.gif align=middle> </a></center></td>
    <td><center><a href=$listenamp><img src=$pfad/im_real.gif align=middle> </a></center></td>
    <td><center><a href=$listenamp><img src=$pfad/im_winamp.gif align=middle> </a> </center> </td>
    <td><center><a href=$listenamp><img src=$pfad/im_winmp.gif align=middle> </a></center></td>
  </tr>
</table>
 
</body>
</html>";

  }
      //if ($scoff == 1) 
      else
      {        
         echo"
<html>

<head>
<title>$scdef</title>
</head>

<body >
 
 <table width=100%>
        <tr>
        <td>
        <img border=0 src=$pfad/shoutcast_off.gif alt=''> 
        <br><b>$scdef ist derzeit leider</b></br>
        <img src= $pfad/offline.gif />
        </td>
<tr><td colspan=2>Sorry, but at moment the radio is offline</td></tr>
  </tr>
</table>
</body>
</html>";
      }
    
  }
  
  
  
//}
?>

feel free in use and modify how u like...

[RedDevil]

would like to klnow if anyone is planning to make a vba module for this would be great on portal, of know of one already done, not found one if there is.

Nice work :up:

[TeknoSounds]

Just look at the previous page Zachariah is almost finished with his vBa module

[RedDevil]

Im bad thanks just read