XTRT TABL AIML
Train chatbot with unstructured data on related conversations
$datm=date("Y-m-d H:i:s", time());
echo "
Begin ".$datm;
require_once ("conv.php");
require_once ("config-smta.php");
require_once ("xtrt-xxxx-func.php");
require_once ("xtrt-aiml-func.php");
require_once ("smta-tlkd-func-0017.php");
require_once ("tlkd-smts-func.php");
require_once("bepl-spec-func.php");
require_once("bepl-sgmt-func.php");
require_once("bepl-taal-func.php");
// echo "
".$invr_bzv1;
$bzv1_kaal=str_replace("-","+",$invr_bzv1);
$bzv1_kaal=str_replace("the_url:","",$bzv1_kaal);
$bzv1_kaal=str_replace("the_title:","",$bzv1_kaal);
$bzv1_kaal=str_replace("_","",$bzv1_kaal);
$bzv1_kaal=trim($bzv1_kaal);
// echo "
".$bzv1_kaal;
$bzv1_kaal=str_replace(".","",$bzv1_kaal);
// echo "
".$bzv1_kaal;
// $bzv1_kaal=str_replace(" ","+",$bzv1_kaal);
// $bzv1_kaal=trim($bzv1_kaal);
$invr_bzv1=$bzv1_kaal;
$base_rchs=str_replace("+"," ",$bzv1_kaal);
$base_rchs=str_replace("* "," ",$bzv1_kaal);
$base_rchs=str_replace(" *"," ",$bzv1_kaal);
/////////////////////////////////////////////////
$taal_rslt=bepl_taal($invr_bzv1);
krsort($taal_rslt);
// print_r($taal_rslt);
$sw=0;
foreach($taal_rslt as $taal_key => $taal_val)
{
if ($sw == 0)
{
$sw=1;
$text_taal=$taal_key;
echo "Teksttaal is ".$text_taal."
";
}
}
////////////////
if ($invr_taal == null)
{
$invr_taal=$text_taal;
}
////////////////////
$aiml_rslt=xtrt_aiml($invr_rchs,$invr_taal,"aiml");
echo "
Voor ".$invr_rchs." Er zijn minimaal ".count($aiml_rslt)." conversaties in Semanta";
// print_r($aiml_rslt);
if (count($aiml_rslt)> 0)
{
foreach($aiml_rslt as $aiml_key => $aiml_val)
{
$aiml_dtls=explode("@",$aiml_key);
if ($ai== 0)
{
// print_r($aiml_dtls);
echo "Opening ".$aiml_dtls[1]."--".$aiml_dtls[2]." | ";
$aiml_ptrn=$aiml_dtls[1];
$aiml_tmpl=$aiml_dtls[2];
$aiml_smta=$aiml_dtls[3];
$aiml_taal=$aiml_dtls[4];
if ($aiml_smta != "admin_added_aiml")
{
echo "Antwoord ".$aiml_dtls[3]." | ";
echo "Uiting ".$aiml_dtls[2]." | ";
}
// echo "zou dit het zijn ".$aiml_dtls[1]." | ";
// echo "".$lscnd_val."
";
// print_r($aiml_dtls);
$ai=1;
}
}
}
echo "";
$ai=0;
/////////////////////////////////////////////////
$rchs_dtls=explode(" ",$invr_rchs);
// print_r($rchs_dtls);
if ($invr_corp == null)
{
$invr_corp="semanta";
}
if ($invr_lgrm == null)
{
$invr_lgrm="a";
}
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
if ($invr_tabl == null)
{
$invr_tabl="data";
}
// echo "Website | Taal | Gesprekspartner | Uiting | Reactie |
";
// echo "
Op zoek naar ".urlencode($lpzg_word)."";
$lpzg_rslt=xtrt_xxxx($invr_rchs,$invr_taal,$invr_tabl,32);
// krsort($lpzg_rslt);
// print_r($lpzg_rslt);
$lpzg_scds=round(count($lpzg_rslt)/300)+1;
echo "Voor ".$invr_rchs." Er zijn minimaal ".count($lpzg_rslt)." aanknopingspunten gevonden en de verwerking duurt ongveer ".$lpzg_scds." secondes.
";
///////////
// echo "";
foreach($lpzg_rslt as $subs_key => $subs_val)
{
$subs_val=$subs_val.".";
$strn_rpos=strpos($subs_val,$invr_rchs);
$deel_itms=explode($invr_rchs,$subs_key);
if ($lrelt != $subs_key)
{
$lnks_sgmt="";
$lc=0;
$subs_dtls=explode("!!",$subs_key);
// print_r($subs_dtls);
$subs_scre=$subs_dtls[0];
$subs_taal=$subs_dtls[1];
$subs_domn=$subs_dtls[2];
$subs_lnks=$subs_dtls[3];
$subs_rchs=$subs_dtls[4];
$subs_lnks=strtolower($subs_lnks);
$usubs_lnks=urlencode($subs_lnks);
$subs_domn=strtolower($subs_domn);
$usubs_domn=urlencode($subs_domn);
$subs_domn=str_replace("-",",",$subs_domn);
// echo "".$subs_rchs." |
";
$usubs_lnks=str_replace("%22","",$usubs_lnks);
$usubs_lnks=str_replace("%28","",$usubs_lnks);
$usubs_lnks=str_replace("%29","",$usubs_lnks);
$usubs_lnks=str_replace("%2C","",$usubs_lnks);
$usubs_lnks=str_replace("%2F"," ",$usubs_lnks);
$usubs_lnks=str_replace("%3A","",$usubs_lnks);
$usubs_lnks=str_replace("%3F","",$usubs_lnks);
$usubs_lnks=str_replace("%91","",$usubs_lnks);
$usubs_lnks=str_replace("%92","",$usubs_lnks);
$usubs_lnks=str_replace("%BF","",$usubs_lnks);
$usubs_lnks=str_replace("%F6","oe",$usubs_lnks);
$usubs_lnks=str_replace("++","+",$usubs_lnks);
$subs_lnks=urldecode($usubs_lnks);
$sgmt_lnks=bepl_sgmt($subs_lnks);
// ksort($sgmt_lnks);
// print_r($sgmt_lnks);
$sw=0;
echo "";
$sgmt_summ="";
$pinvr_rchs="".$invr_rchs."";
foreach($sgmt_lnks as $sgmt_key => $sgmt_val)
{
$sgmt_key=trim($sgmt_key);
if ($srelt != $sgmt_key)
{
$srelt=$sgmt_key;
if ($sw < 2 and $sgmt_key != "wat wordt het" and count($sgmt_lnks) > 2)
{
$sw=$sw+1;
// echo "--".$sgmt_key." | --".$subs_rchs." | ";
$psgmt_key=str_replace($invr_rchs,$pinvr_rchs,$sgmt_key);
// echo "".$psgmt_key." | ";
$sgmt_summ=$sgmt_summ.$sgmt_key."@";
}
if ($sw < 2 and $sgmt_key == "wat wordt het" and count($sgmt_lnks) > 2)
{
$sw=$sw+1;
// echo "--".$sgmt_key." | --".$subs_lnks." | ";
$psgmt_key=str_replace($invr_rchs,$pinvr_rchs,$sgmt_key);
// echo "".$psgmt_key." | ";
$sgmt_summ=$sgmt_summ.$sgmt_key."@";
}
}
}
}
// echo "
".$sgmt_summ;
$sgmt_array[$sgmt_summ]=$sgmt_array[$sgmt_summ]+1;
}
$datm=date("Y-m-d H:i:s", time());
echo "Einde ".$datm."
";;
// print_r($sgmt_array);
foreach($sgmt_array as $sgmt_key => $sgmt_val)
{
$sgmt_itms=explode("@",$sgmt_key);
// print_r($sgmt_itms);
$domn=$sgmt_itms[0];
$adomn=$domn." *";
$line=$sgmt_itms[1];
$aline="";
include("conv-line-bzv1.php");
$sgmt_key=$line;
$psgmt_key=str_replace($invr_rchs,$pinvr_rchs,$sgmt_key);
// $psgmt_key=str_replace("@"," ",$psgmt_key);
// $psgmt_key=trim($psgmt_key);
// $psgmt_key=str_replace("@","
",$psgmt_key);
$tlkd_scnd=smta_tlkd($line."@scnd");
$sw=0;
foreach($tlkd_scnd as $scnd_key => $scnd_val)
{
echo "--".$scnd_key." | --".$scnd_val." | ";
if ($scnd_key != null and $sw==0)
{
$sw=1;
// echo "PATTERN ".$sgmt_key."-TEMPLATE-".$domn." | -FILENAME-".$scnd_val."-TOPIC-".$invr_rchs." | ";
$sql1 = "INSERT INTO `wiml` (`id`,`bot_id`,`pattern`,`thatpattern`,`template`,`topic`,`filename`) VALUES (NULL,'1','$adomn','','$aline','$userip','$invr_rchs')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`pattern`,`thatpattern`,`template`,`topic`,`filename`) VALUES (NULL,'1','$adomn','','$aline','','$invr_rchs')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
}
}
}
// print_r($sgmt_array);
///////////
exit;
?>