";
//////////
// print_r($vrag_array);
return($vrag_array);
}
?>
function text_isrt($invr_text)
{
error_reporting(0);
$func="text-isrt-func";
// echo " ".$func."Vraag:".$invr_text;
include ("config.php");
$invr=explode("@",$invr_text);
$taal=$invr[0];
if ($taal == null)
{
$taal="engels";
}
$text=$invr[1];
$tabl_rchs=$text;
// print_r($invr);
$sql="select * from text where `lnks` = '$text' and `taal` = '$taal' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql,$link);
$num_tabl= mysql_num_rows($tablresult);
// echo " hebben we iets gevonden ".$num_tabl." ".$sql;
if ($num_tabl == 0)
{
$sqlland="select * from land where `lnks` = '$text' and `taal` = '$taal' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sqlland,$link);
$num_land= mysql_num_rows($tablresult);
if ($num_land == 0)
{
}
if ($num_land > 0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$tabl_lnks= $row['lnks'];
$tabl_rchs= $row['rchs'];
$tabl_taal= $row['taal'];
// echo " Dit is het antwoord:".$tabl_rchs;
}
}
}
if ($num_tabl > 0)
{
// echo " hebben we iets gevonden ".$gn06_tabl." ".$gn06sql;
while ($row = mysql_fetch_assoc($tablresult))
{
$tabl_lnks= $row['lnks'];
$tabl_rchs= $row['rchs'];
$tabl_taal= $row['taal'];
}
}
// echo " Dit is het antwoord:".$tabl_rchs;
return $tabl_rchs;
}
?>
function bwrk_bzkr($ipad)
{
$rfer_srvr=$_SERVER['SERVER_NAME'];
$rfer_url=$_SERVER['HTTP_REFERER'];
$userip=$_SERVER['REMOTE_ADDR'];
// echo " RFER SRVR ".$rfer_srvr." RFER URL ".$refr_url;
$datm=date("Y-m-d H:i:s", time());
include ("config.php");
$func_itms=explode("!!",$ipad);
// print_r($func_itms);
$func_func=$func_itms[0];
$func_ipad=$func_itms[1];
if(count($func_itms) == 3)
{
$func_mail=$func_itms[2];
}
// echo " FUNC ITMS ".$func_mail." ";
$sql= "SELECT * FROM bzkr where `ipad` = '$userip' order by `datm` desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo " ".$sql." BZKR FUNC Aantallen TABL NUM ".$tabl_num;
$hrelt="xxxxx";
if ($tabl_num == 0)
{
$cmds_ipad=$userip;
$cmds_bzv2=$rfer_url."[bzkr[".$invr_taal."[info@".$refr_srvr."[".$func_ipad."[1";
$lcmds_bzv2="Beginnen met uw gesprek";
// echo " ".$cmds_bzv2." ";
include ("chbt-cmds-code-2.php");
}
if ($tabl_num > 0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$id=$row['id'];
$ipad=$row['ipad'];
$domn=$row['domn'];
$taal=$row['taal'];
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$levl=$row['levl'];
$bzkr_levl=$levl+1;
$datm=$row['datm'];
$domn_itms=explode(",",$domn);
// echo " ID ".$id." IPAD ".$ipad." TAAL".$taal." DOMN ".$domn." LNKS ".$lnks." RCHS ".$rchs;
// echo " IPAD ";
// print_r($bzkr_array);
if ($func_func == "mail" and $func_mail != null)
{
$sql1 = "UPDATE bzkr SET `levl`='$bzkr_levl', `datm` ='$datm' WHERE `ipad`= '$userip' ";
$logentry_result = mysql_query($sql1, $link);
}
$bzkr_array[$rchs."!!".$domn."!!".$lnks]=$bzkr_array[$rchs."!!".$domn."!!".$lnks]+1;
}
}
// echo " BZKR ARRAY ".$func_parm." ";
// print_r($bzkr_array);
// echo " Onze conversatie tot nu toe.";
echo "
";
// echo "
Uiting
Typering
Invalshoek
";
foreach ($bzkr_array as $bzv1_key => $bzv1_val)
{
$bzv1_rslt=explode("!!",$bzv1_key);
$bzv1_rchs=$bzv1_rslt[0];
$bzv1_domn=$bzv1_rslt[1];
$bzv1_lnks=$bzv1_rslt[2];
if ($bzv1_domn != $bzv1_rchs and $bzv1_domn != null)
{
// echo "
".$bzv1_domn."
".$bzv1_lnks."
".$bzv1_rchs."
";
}
}
// echo "
";
//////////
// print_r($bzkr_array);
return($bzkr_array);
}
?>
function xtrt_aiml($line,$taal,$tabel)
{
$modl="xtrt-aiml-func";
include ("config-smta.php");
require_once ("smta-tlkd-func-0017.php");
// include ("text-isrt-func.php");
$modl_name="xtrt-aiml-func";
if ($taal == null)
{
$taal="nederlands";
}
if ($tabel == null)
{
$tabel="wiml";
}
$tabl_desc["aiml"]="Pandorabots conversations";
$tabl_desc["wiml"]="Semanta conversations";
$tabl_desc["ftma"]="Follow the Money conversations";
$modl_desc="Gaat op zoek naar vragen en antwoorden in ".$tabl_desc[$tabel];
// echo " ".$modl_desc." ".$line."--".$taal;
// echo " BEPAAL TAAL ".urlencode($line);
///////////////
$mb_rslt=preg_split('/(?";
foreach($mb_rslt as $mb_key => $mb_val)
{
$mb_lowr=mb_strtolower($mb_val,'UTF-8');
$mb_text=$mb_text.$mb_lowr;
}
// echo " TEST TLKD MB TEXT ".$mb_text;
$mb_dtls=explode(" ",$mb_text);
$new_mb="";
$tl=0;
foreach($mb_dtls as $mb_key => $mb_val)
{
// echo " KEY ".$mb_key." VAL ".$mb_val;
$new_mb=$new_mb." ".$mb_val;
}
trim($new_mb);
$unew_mb=urlencode($new_mb);
$new_lnks=mb_strtolower($unew_mb);
// echo " NEW LINE ".$new_lnks;
$line=urldecode($new_lnks);
$line=trim($line);
// echo " ".$modl_desc." ".$line." ".$taal." ".$tabel;
$strn_val=$line;
$scre_array=array();
$sw_mt=0;
///////////////////////
echo "
";
$sqltref="SELECT * FROM aiml WHERE MATCH (pattern,template) AGAINST ('$line' IN NATURAL LANGUAGE MODE) order by `pattern` desc " ;
// $sqltref="SELECT * , MATCH (pattern,template,topic) AGAINST ('$line' ) AS score FROM aiml WHERE MATCH (pattern,template,topic) AGAINST ('$line' ) order by `score` desc";
// $sqltref="SELECT * , MATCH (pattern,template,topic) AGAINST ('$line' ) AS score FROM wiml WHERE MATCH (pattern,template,topic) AGAINST ('$line' ) order by `score` desc";
if ($tabel == "aiml")
{
$sqltref="SELECT * , MATCH (pattern,template,filename) AGAINST ('$line' ) AS score FROM aiml WHERE MATCH (pattern,template,filename) AGAINST ('$line' ) order by `score` desc";
}
if ($tabel == "wiml")
{
// $sqltref="SELECT * , MATCH (pattern,template,thatpattern) AGAINST ('$line' ) AS score FROM wiml WHERE MATCH (pattern,template,thatpattern) AGAINST ('$line' ) order by `score` desc";
}
if ($tabel == "ftma")
{
// $sqltref="SELECT * , MATCH (pattern,template,filename) AGAINST ('$line' ) AS score FROM ftma WHERE MATCH (pattern,template,filename) AGAINST ('$line' ) order by `score` desc";
}
$splt_bzv1=explode(" ",$line);
$zoek_bzv1="%".$line."%";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
// echo " Aantallen ".$sqltref." ".$tref_num." SQL ";
// echo "
";
}
// echo " You can select your chatbot here by selecting his profession and get to know his or her knowledge.";
if ($tref_num > 0)
{
$corp_sw="0";
$kd=0;
// echo "
Semanta
Gesprekspartner
Corpus
Kennisdomein
";
echo " Er zijn ".$tref_num." entries gevonden voor uw uiting ".$wrds_form;
while ($row = mysql_fetch_assoc($trefresult) and $kd <32 )
{
$scre=$row['score'];
$id=$row['id'];
$pattern=$row['pattern'];
$thatpattern=$row['thatpattern'];
$template=$row['template'];
$topic=$row['topic'];
$intention=$row['filename'];
$scre= round($scre, 2);
$nscr="00".$scre."00";
// echo " PATTERN ".$pattern." TEMPLATE ".$template;
if (strlen($scre)== 1)
{
$nscre=substr($nscr,0,4);
}
if (strlen($scre)== 2)
{
$nscre=substr($nscr,1,4);
}
if (strlen($scre)== 3)
{
$nscre=substr($nscr,2,4);
}
$splt_intn=explode("@",$intention);
$usag_intn=$splt_intn[0];
$usag_extn=$splt_intn[1];
if ($hrelt != $pattern)
{
$kd=$kd+1;
$cpattern="".$pattern."";
$ctemplate="".$template."";
echo "