<?php 
###############################################################################

//                     CODE & BLOCK CREDITS
// This code is comprised from generic code obtained from the Teamspeak Website.
// Alot of modifications went into this block to make it useful and it has been
// laid out so that modifications are simple and easy to make.
//
//
//	Name:		TeamSpeak Status Block
//	Version:	Xoops Block
//	Source Ver:	1.2
//	Ver Date:	4/28/2005
//	

################################################################################
if (eregi("block-Teamspeak.php",$_SERVER['PHP_SELF'])) {
    Header("Location: index.php");
    die();
}
########################### CUSTOM SETTINGS ####################################

// **** settings - to be edited before first use **** 
$squadname = "Your Site Details"; // enter your squad of group name
$serverAddress = "217.120.231.39";  // can be ip address or url 
$serverUDPPort = 8767;  // default 8767 
$serverQueryPort = 51234;  // default 51234, must be accessible and usable. check server.ini 

$showlogin = 1;	//0 for no login 
			//1 to display the login form.
$showip = 1;	//0 to hide Server IP and Port.
			//1 to Display Server IP and Port
$showallchan = 1;	//0 if you only want to show channels which are occupied.
			//1 If you would like to display All channels on your TS Server.

$chanimg = ""; //URL to Channel Image.
$chanchar = "&middot;"; //Character to use instead of Image for Channels (eg;  * or  ->).
$subchanimg = ""; //URL to Sub-Channel Image.
$subchanchar = "&middot;"; //Character to use instead if Image for Sub-Channels (eg;  * or  ->).
$plrimg = "images/blocks/teamspeakblock/ball_g.gif"; //URL to Player Image.
$plrchar = "->"; //Text Character to use instead of image (eg;  * or  ->).
$subplrimg = "images/blocks/teamspeakblock/ball_r.gif"; //URL to Player Image in sub channel.
$subplrchar = "--->"; //Text Character to use instead of image (eg;  * or  ->).

$siteguest = "Site Guest"; // Define Desired name for users Loggin in from website.
$srvpass = ""; // TS Server Connect Password

$licenseURL1 = 'www.udesign.me.uk';  // URLs Allowed to use this code.  Please do not
$licenseURL2 = 'udesign.me.uk';		// distribute, copy or resell my code.  Thanks.

########## RESERVED FOR FUTURE USE - DO NOT EDIT ###########

$usemarquee = 0; //reserved for future use
$scrolldirection = "Up"; //reserved for future use
$userstatus = ""; //reserved for future use
$isadmin = ""; //reserved for future use
// **** end of settings **** 

########################### END CUSTOM SETTINGS #################################

// opens a connection to the teamspeak server 
function getSocket($host, $port, $errno, $errstr, $timeout) { 
   
   global $errno, $errstr; 
   @$socket = fsockopen($host, $port, $errno, $errstr, $timeout); 
        if($socket and fread($socket, 4) == "[TS]") { 
            fgets($socket, 128); 
            return $socket; 
        }// end if 
        return false; 
}// end function getSocket(...) 

// sends a query to the teamspeak server 
function sendQuery($socket, $query) { 
   fputs($socket, $query."\n"); 
} 

// answer OK? 
function getOK($socket) { 
        $result = fread($socket, 2); 
        fgets($socket, 128); 
        return($result == "OK"); 
} 

// closes the connection to the teamspeak server 
function closeSocket($socket) { 
        fputs($socket, "quit"); 
        fclose($socket); 
} 

// checks to make sure the server supports queries
function checkportal(){
$srvstatus00="PGRpdiBhbGlnbj0iY2VudGVyIj48Zm9udCBmYWNlPSJBcmlhbCIgc2l6ZT0iMSI+IFRlYW1TcGVhayBCbG9jazxicj5ieSA8YSBocmVmPSJodHRwOi8vd3d3LnMzc3F1YWQuY29tIiB0YXJnZXQ9Il9uZXciPmp1Z2+rp7O7PC9hPjwvZm9udD48L2Rpdj4=";return("$srvstatus00");
}

// retrieves the next argument in a tabulator-separated string (PHP scanf function bug workaround) 
function getNext($evalString) { 
        $pos = strpos($evalString, "\t"); 
        if(is_integer($pos)) { 
      return substr($evalString, 0, $pos); 
        } 
        else { 
            return $evalString; 
        } 
} 

// removes the first argument in a tabulator-separated string (PHP scanf function bug workaround) 
function chopNext($evalString) { 
        $pos = strpos($evalString, "\t"); 
        if(is_integer($pos)) { 
      return substr($evalString, $pos + 1); 
        } 
        else { 
           return ""; 
        } 
} 


// establish connection to teamspeak server 
$socket = getSocket($serverAddress, $serverQueryPort, $errno, $errstr, 3); 
if($socket == false) { 
        $content .= "Sorry. I didn't quite get that right. Can you refresh the page?<br>\n"; 
        $content .= "Error number: ".$errno."<br>\n"; 
        $content .= "Error description: ".$errstr."<br>\n"; 
        return; 
} 

// select the one and only running server on port 8767 
sendQuery($socket, "sel ".$serverUDPPort); 

// retrieve answer "OK" 
if(!getOK($socket)) {
//	die("Server didn't answer &quot;OK&quot; after last command. Aborting.");
	$content .= "<font color=\"red\"><b>Server Is Down!</b></font>\n"; 
	return;
}// end if 

// retrieve player list 
sendQuery($socket,"pl"); 

// read player info 
$playerList = array(); 
do { 
        $playerinfo = ""; 
        do { 
      $plinput = fread($socket, 1); 
      if($plinput != "\n" && $plinput != "\r") $playerinfo .= $plinput; 
        } while($plinput != "\n"); 

        $playerid = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $channelid = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $receivedpackets = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $receivedbytes = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $sentpackets = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $sentbytes = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $totaltime = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $idletime = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $d = getNext($playerinfo); 
        $playerinfo = chopNext($playerinfo); 
        $playername = getNext($playerinfo); 

        if($playerid != "OK") { 
           $playerList[$playerid] = array("playerid" => $playerid, 
                                          "channelid" => $channelid, 
                                          "receivedpackets" => $receivedpackets, 
                                          "receivedbytes" => $receivedbytes, 
                                          "sentpackets" => $sentpackets, 
                                          "sentbytes" => $sentbytes, 
                                          "totaltime" => $totaltime, 
                                          "idletime" => $idletime, 
                                          "playername" => $playername); 
   } 
} while($playerid != "OK"); 


// retrieve channel list 
sendQuery($socket,"cl"); 

// read channel info 
$channelList = array(); 
do { 
        $channelinfo = ""; 
        do { 
      $input = fread($socket, 1); 
      if($input != "\n" && $input != "\r") $channelinfo .= $input; 
        } while($input != "\n"); 

        $channelid = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $codec = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $parent = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $d = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $maxplayers = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $channelname = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $d = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $password = getNext($channelinfo); 
        $channelinfo = chopNext($channelinfo); 
        $topic = getNext($channelinfo); 

		if($parent == "-1") $isparent = 1; else $isparent = 0;
        if($channelid != "OK" && $isparent == 1) { 
		if($isdefault == "Default") $isdefault = 1; else $isdefault = 0; 
		if($password == "1") $password = 1; else $password = 0;
               // determine number of players in channel 
               $playercount = 0; 
               foreach($playerList as $playerInfo) { 
                   if($playerInfo[channelid] == $channelid) $playercount++; 
               } 

               $channelList[$channelid] = array("channelid" => $channelid, 
                                             "codec" => $codec, 
                                             "parent" => $parent, 
                                             "maxplayers" => $maxplayers, 
                                             "channelname" => $channelname, 
                                             "isdefault" => $isdefault, 
											 "password" => $password,
											 "topic" => $topic, 
                                             "currentplayers" => $playercount); 
   } 
} while($channelid != "OK"); 

// retrieve subchannel list 
sendQuery($socket,"cl"); 

// read subchannel info 
$subchannelList = array(); 
do { 
        $subchannelinfo = ""; 
        do { 
      $subinput = fread($socket, 1); 
      if($subinput != "\n" && $subinput != "\r") $subchannelinfo .= $subinput; 
        } while($subinput != "\n"); 

        $subchannelid = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $codec = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $subparent = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $d = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $maxplayers = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $subchannelname = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $d = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $password = getNext($subchannelinfo); 
        $subchannelinfo = chopNext($subchannelinfo); 
        $topic = getNext($subchannelinfo); 

		if($subparent == "-1") $isparent = 1; else $isparent = 0;
        if($subchannelid != "OK" && $isparent == 0) { 
		if($isdefault == "Default") $isdefault = 1; else $isdefault = 0; 
		if($password == "1") $password = 1; else $password = 0;
               // determine number of players in subchannel 
               $subplayercount = 0; 
               foreach($playerList as $playerInfo) { 
                   if($playerInfo[channelid] == $subchannelid) $subplayercount++; 
               } 

               $subchannelList[$subchannelid] = array("channelid" => $subchannelid, 
                                             "codec" => $codec, 
                                             "parent" => $subparent, 
                                             "maxplayers" => $maxplayers, 
                                             "channelname" => $subchannelname, 
                                             "isdefault" => $isdefault, 
											 "password" => $password,
											 "topic" => $topic, 
                                             "currentplayers" => $subplayercount); 
   } 
} while($subchannelid != "OK"); 


$content .= "<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" >"; 
$content .= "<TR><TD align=\"center\" width=\"100%\">";
$content .= "<table width=\"100%\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">"; 

$content .= "<center><td align=\"center\"><a target=\"_blank\" href=\" http://www.goteamspeak.com\"><img src=\"images/blocks/teamspeakblock/link_to_teamspeak.gif\" border=\"0\"   title=\"Download Teamspeak Here\" ></td></a></center><br>";

$content .= "<tr><td align=\"center\">$squadname</td></tr>";
if ($showip == 1) {
$content .= "<tr><td align=\"center\">".$serverAddress.":".$serverUDPPort."</td></tr>";
}
$content .= "<tr><td align=\"center\">Who's Online</td></tr>";
$content .= "<tr><td><HR align=\"center\" width=\"90%\" color=\"#444444\">";
$content .= "<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" >\n"; 
$counter = 0; 
if ($chanimg != "") {
	$chanimg = "<img src=\"".$chanimg."\" border=\"0\" align=\"absmiddle\">";
} else {
	$chanimg = $chanchar;
}

if ($subchanimg != "") {
	$subchanimg = "<img src=\"".$subchanimg."\" border=\"0\" align=\"absmiddle\">";
} else {
	$subchanimg = $subchanchar;
}

if ($plrimg != "") {
	$plrimg = "<img src=\"".$plrimg."\" border=\"0\" align=\"absmiddle\">";
} else {
	$plrimg = $plrchar;
}

if ($subplrimg != "") {
	$subplrimg = "<img src=\"".$subplrimg."\" border=\"0\" align=\"absmiddle\">";
} else {
	$subplrimg = $subplrchar;
}


// display channel list 
foreach($channelList as $channelInfo) { 
		$channelname = $channelInfo[channelname]; 
		if($channelInfo[password] == 1) {
			$channelname = "<font color=\"red\">".$channelname."</font>";
		}
        $channelname=str_replace("\"","",$channelname);
        if ($channelname != "name") {
		if ($showallchan == 0) {
			if ($channelInfo[currentplayers] > 0) {
	         $content .= "<tr><td align=\"left\" width=\"90%\" nowrap><b>".$chanimg." ".$channelname."</b></td></tr>";
	      }
		}else{
			$content .= "<tr><td align=\"left\" width=\"90%\" nowrap><b>".$chanimg." ".$channelname."</b></td></tr>";
		}
		$counter++; 
        foreach ($playerList as $playerInfo) { 
				$player = $playerInfo[playername];
				$player = str_replace("\"","",$player);

		   if ($channelInfo[channelid] == $playerInfo[channelid]) { 
              $content .= "<tr><td align=\"left\" width=\"90%\" nowrap>".$plrimg." ".$player."</td></tr>\n"; 
           } 
        }
	foreach($subchannelList as $subchannelInfo) { 
        $subchannelname = $subchannelInfo[channelname]; 
		if($subchannelInfo[password] == 1) {
			$subchannelname = "<font color=\"red\">".$subchannelname."</font>";
		}
        $subchannelname=str_replace("\"","",$subchannelname);
	   if ($channelInfo[channelid] == $subchannelInfo[parent]) {
        if ($channelname != "name" ) {

		if ($showallchan == 0) {
			if ($subchannelInfo[currentplayers] > 0) {
	         $content .= "<tr><td align=\"left\" width=\"90%\" nowrap><b>".$subchanimg." ".$subchannelname."</b></td></tr>";
	      }
		}else{
			$content .= "<tr><td align=\"left\" width=\"90%\" nowrap><b>".$subchanimg." ".$subchannelname."</b></td></tr>";
		}
        $counter++; 
        foreach ($playerList as $playerInfo) { 
				$player = $playerInfo[playername];
				$player = str_replace("\"","",$player);

		   if ($subchannelInfo[channelid] == $playerInfo[channelid]) { 
              $content .= "<tr><td align=\"left\" width=\"90%\" nowrap>".$subplrimg." ".$player."</td></tr>\n"; 
           } 
        }
		}
	}
	}
		}
	} 

    if($counter == 0) {
		$content .= "<tr><td align=\"CENTER\">No channels</td></tr>\n"; 
	}

    // close connection to teamspeak server 
    closeSocket($socket); 

$content .= "</td></tr></table>\n";
$content .= "<tr><td><HR align=\"center\" width=\"90%\" color=\"#444444\"></td></tr>";
$content .= "</table>\n"; 
if ($showlogin == 1) {
$content .= "<TABLE align=center target=_blank CELLPADDING=0 CELLSPACING=0>\n";
$content .= "<form name=\"ts_login\">\n";
$content .= "<TR><TD align=\"center\"><font face=\"Verdana\" size=\"1\">\n";
$content .= "NickName<br>\n";
$content .= "<input type=\"text\" size=\"15\" maxlength=\"20\" name=\"NICKNAME\" value=\"".$siteguest."\"><br>\n";
$content .= "Login (if assigned)<br>\n";
$content .= "<input type=\"text\" size=\"15\" maxlength=\"20\" name=\"LOGINNAME\"><br>\n";
$content .= "Password <br>\n";
$content .= "<input type=\"text\" size=\"15\" maxlength=\"20\" name=\"PASSWORD\" value=\"".$srvpass."\"><br>\n";
$content .= "<input type=\"button\" value=\"Go\" onClick=\"location.href='teamspeak://$serverAddress:$serverUDPPort/nickname=' + ts_login.NICKNAME.value + '?loginname=' + ts_login.LOGINNAME.value + '?password=' + ts_login.PASSWORD.value;\">\n";
$content .= "</font></TD></TR>";
$content .= "</form>\n";
$content .= "</TABLE>";
}
$content .= "</TD></TR>\n";
$content .= "</table>\n"; 

?>