<?php
include("head.php");
$addy = "wapirate.net";
//clearnc();
$action=$_GET["action"];
$id=$_GET["id"];
$botid = "a13d14da1e36eb15";
$input = $_POST["input"];
$custid=$_POST["custid"];
$hostname = "www.pandorabots.com";
$hostpath = "/pandora/talk-xml";
$uid = getuid_sid($sid);
echo "<div>Pirate Babe!</div>";
//start of main card
echo "<p align=\"center\">";
echo "<br/>";
addonline(getuid_sid($sid),"Chatting to PirateBabe","");
if ($input!="")
{
$sendData = "botid=".$botid."&input=".urlencode($input)."&custid=".$custid;
// Send the request to Pandorabot
$result = PostToHost($hostname, $hostpath, $sendData);
//TODO: Process the returned XML as an XML document instead of a big string.
// Use string manipulations to pull out the 'custid' and 'that' values.
$pos = strpos($result, "custid=\"");
// Extract the custid
if ($pos === false) {
$custid = "";
} else {
$pos += 8;
$endpos = strpos($result, "\"", $pos);
$custid = substr($result, $pos, $endpos - $pos);
}
// Extrat <that> - this is the reply from the Pandorabot
$pos = strpos($result, "<that>");
if ($pos === false) {
$reply = "";
} else {
$pos += 6;
$endpos = strpos($result, "</that>", $pos);
$reply = unhtmlspecialchars(substr($result, $pos, $endpos - $pos));
}
//echo htmlspecialchars( $reply);
$hers = $reply;
$hers = parsemsg($hers);
$input=htmlspecialchars($input);
$nick = getnick_uid($uid);
echo "<br/><b>$nick: </b>$input<br/>";
echo "<b>PirateBabe: </b>$hers<br/>";
echo "<form action=\"chatbot.php?sid=$sid\" method=\"post\">";
echo "<br/><input type=\"text\" name=\"input\" maxlength=\"120\" value=\"$input\"/>";
echo "<input type=\"submit\" value=\"Say\"/>";
echo "</form>";
echo "<br/>";
}else{
echo "Hello, now you can chat with our ChatBot<br/> her name is PirateBabe, have fun...<br/>";
echo "<form action=\"chatbot.php?sid=$sid\" method=\"post\">";
echo "<input type=\"text\" name=\"input\" maxlength=\"120\" value=\"$input\"/>";
echo "<input type=\"submit\" value=\"Say\"/>";
echo "</form>";
echo "<br/>";
}
echo getfoot($sid,$folder);
exit();
function unhtmlspecialchars( $string )
{
$string = str_replace ( '&', '&', $string );
$string = str_replace ( ''', '\'', $string );
$string = str_replace ( '"', '"', $string );
$string = str_replace ( '<', '<', $string );
$string = str_replace ( '>', '>', $string );
$string = str_replace ( 'ü', '?', $string );
$string = str_replace ( 'Ü', '?', $string );
$string = str_replace ( 'ä', '?', $string );
$string = str_replace ( 'Ä', '?', $string );
$string = str_replace ( 'ö', '?', $string );
$string = str_replace ( 'Ö', '?', $string );
return $string;
}
?>