Lingvistica's Conversatietraining
START DATUM TIJD ".$datm; $ontl_strt = microtime(true); $userip=$_SERVER['REMOTE_ADDR']; include ("conv.php"); require_once ("config.php"); // require_once("chck-rfer.php"); // include ("bwrk-bzv1-func.php"); include ("bepl-taal-func.php"); include ("bepl-brkb-func.php"); include ("calc-text-func.php"); include ("text-isrt-func.php"); // include ("bwrk-bzkr-func.php"); include ("taal-ipcd-func.php"); include ("smta-tlkd-func-0017.php"); include ("tlkd-smts-func.php"); include ("xtrt-wiki-func.php"); include ("xtrt-aiml-func.php"); include ("xtrt-libr-func.php"); include ("xtrt-xxxx-func.php"); include ("chbt-date-func.php"); require_once ("bepl-splt-func-0001.php"); require_once ("tlkd-smts-func.php"); require_once ("smts-subs-func.php"); $modl="SEMANTA alpha versie 17.08.23"; require_once("time-laps-func.php"); $invr_bzv1=str_replace("+"," ",$invr_bzv1); $invr_lnks=str_replace("+"," ",$invr_lnks); $meta_one=metaphone($invr_lnks,8); $meta_two=metaphone($invr_rchs,8); // echo "
META ONE ".$invr_lnks." ".$meta_one; // echo "
META TWO ".$invr_rchs." ".$meta_two; $site_datm=date("Y-m-d H:i:s", time()); $datm_itms=explode(" ",$site_datm); $datm_datm=$datm_itms[0]; $datm_time=$datm_itms[1]; $taal_rslt=bepl_taal($invr_lnks); // print_r($taal_rslt); $taal_sw=0; foreach($taal_rslt as $taal_key => $taal_val) { if ($taal_sw == 0) { $taal_sw = 1; $text_taal=$taal_key; } } $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $sinvr_bzv2=str_replace(" ","+",$invr_bzv2); echo "
BZKR ".$invr_bzkr." CHBT ".$invr_chbt."CORP ".$invr_corp." TAAL ".$invr_taal." BZV1 ".urlencode($invr_bzv1)." BZV2 ".$invr_bzv2." LNKS ".$invr_lnks."RCHS ".$invr_rchs." LGRM ".$invr_lgrm." DOMN ".$invr_domn." CONT ".$invr_cont; /////////// $ssay_rslt=$sinvr_bzv1." betekent ".$sinvr_bzv2; echo "
XTRT LIBR SSAY RSLT ".$ssay_rslt; $vals=xtrt_libr($ssay_rslt); print_r($vals); foreach($vals as $vals_key => $vals_val) { $smta_resp=$vals_val[value]; if ($vals_key == 1 and $smta_resp[0] != "-") { // $smta_resp="".$smta_resp.""; echo $date." ".$invr_vgpt.":
".$smta_resp."
"; } if ($vals_key == 1 and $smta_resp[0] == "-") { // $smta_resp="".$smta_resp.""; if ($sw == 1) { echo "".$sgmt_key.""; } if ($sw == 0) { echo "VGPT".$sgmt_key.""; $sw=1; } } } /////////// echo ""; echo ""; // echo "
TEXT TAAL ".$text_taal; echo "
"; require_once ("chbt-date-func.php"); $lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr); $curr_jaar=$lgroet[jaar]; $curr_dag=$lgroet[dag]; $curr_mand=$lgroet[maand]; $zoek_datm=$curr_jaar."-".$curr_mand."-".$curr_dag."%"; // print_r($lgroet); $nr=0; $synm_dtls=explode("synoniem:",$invr_rchs); // print_r($synm_dtls); if (count($synm_dtls) > 0) { foreach($synm_dtls as $synm_key => $synm_val) { // echo "
SYNM ITMS "; $synm_itms=explode(",",$synm_dtls[1]); // print_r($synm_itms); foreach($synm_itms as $itms_key => $itms_val) { // echo "
ITMS VAL ".$itms_val; $aiml_ptrn=$invr_lnks; $aiml_tmpl="".$itms_val.""; // echo "
AIML PTRN ".$aiml_ptrn." AIMP TMPL ".$aiml_tmpl; $sql1 = "INSERT INTO `wiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','semanta','$aiml_ptrn','','$aiml_tmpl','','aiml-srai','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $logentry_result = mysql_query($sql1, $link); } } } /////////////// // echo "
ZOEK DATM ".$zoek_datm; echo ""; $sqltref="SELECT * FROM conversation_log where `timestamp` like '$zoek_datm' and `response` != 'geen valide antwoord' order by `timestamp` asc"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $trefresult = mysql_query($sqltref, $link); $tref_num = mysql_num_rows($trefresult); $lr=$tref_num-8; // echo "
Aantallen ".$sqltref." ".$tref_num." AFDRUKKEN ".$lr; while ($row = mysql_fetch_assoc($trefresult)) { $bot_nr=$row['bot_id']; $aiml=$row['aiml']; $pattern=$row['input']; $template=$row['response']; $datm=$row['timestamp']; $last_say=$pattern; $slast_say=str_replace(" ","+",$last_say); $last_resp=$template; $nr=$nr+1; if($srelt != $last_resp.$last_say and $nr > $lr) { $srelt=$last_resp.$last_say; // echo ""; } } echo "
".$datm."U: ".$last_say."
VGPT:".$last_resp."
"; $aiml_end=' EN WAT IS DE BETEKENIS VAN VOOR U'; $lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_name); $curr_jaar=$lgroet[jaar]; // print_r($lgroet); $jaar_perd=$invr_jaar-$curr_jaar; $tijd="vanaf nu"; $tdst="te gaan"; if ($invr_jaar < $curr_jaar) { $tijd="sindsdien"; $tdst="voorbij"; $jaar_perd=$curr_jaar-$invr_jaar; } if ($invr_cont == null) { $invr_cont= $invr_lnks; } if ($invr_domn== null) { $invr_domn= "generiek"; } $invr_bzv1=$invr_lnks; // echo "
BZKR ".$invr_bzkr." CHBT ".$invr_chbt."CORP ".$invr_corp." TAAL ".$invr_taal." BZV1 ".urlencode($invr_bzv1)." BZV2 ".$invr_bzv2." LNKS ".$invr_lnks."RCHS ".$invr_rchs." LGRM ".$invr_lgrm." DOMN ".$invr_domn." CONT ".$invr_cont; $cmds_ipad=$invr_corp; // echo "
BEFORE CHBT CMDS LNKS ".$invr_lnks." INVR DOMN ".$invr_domn." INVR RCHS ".$invr_rchs; // $cmds_bzv2=$text_file."[splt[".$text_taal."[".$invr_corp."[".$full_val."[1"; $cmds_bzv2=$invr_lnks."[rule[".$text_taal."[".$invr_domn."[".$invr_rchs."[100"; // include("chbt-cmds-code-2.php"); // echo "
SPLT INVR BZV2 ".$cmds_bzv2."
"; // echo "
LNKS ".$invr_lnks." INVR DOMN ".$invr_domn." INVR RCHS ".$invr_rchs; if ($invr_domn == null or $invr_rchs== null) { echo "
Ik mis het domein of een antwoord"; exit; } $sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`levl`,`datm`) VALUES ('null','1','$invr_domn','$invr_lnks','$invr_lgrm','$invr_rchs','','tlkd-rule-aiml','0','$datm')"; $invr_rchs=trim($invr_rchs); str_replace("*","",$invr_rchs); // echo "
SQL1 ".$sql1; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $logentry_result = mysql_query($sql1, $link); $sql1 = "INSERT INTO aiml (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`levl`,`datm`) VALUES (NULL,'1','$invr_domn','$invr_rchs','$invr_lgrm','$invr_lnks','','tlkd-rule-aiml','1','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $logentry_result = mysql_query($sql1, $link); // include ("chbt-cmds-code-2.php"); // echo "
Er zijn ".$jaar_perd." jaar ".$tdst." ".$invr_jaar."-".$curr_jaar; $tabl_rslt=xtrt_aiml($invr_bzv1,$invr_taal); asort($tabl_rslt); // print_r($tabl_rslt); foreach($tabl_rslt as $tabl_key => $tabl_val) { $rule_itms=explode("@",$tabl_key); $tref_scre=$rule_itms[0]; $tref_ptrn=$rule_itms[1]; $tref_tmpl=$rule_itms[2]; echo "".$tref_scre."".$tref_ptrn."".$tref_tmpl.""; } echo ""; $uinvr_bzv1=urlencode($invr_bzv1); $uinvr_bzv1=str_replace("%EF%BF%BD%EF%BF%BD","",$uinvr_bzv1); $invr_bzv1=urldecode($uinvr_bzv1); // $subs_rslt=smts_subs($invr_bzv1); // $subs_rslt=smts_subs($invr_lnks); //////////////////////////////// //////////////////////////////// $smts_rslt=tlkd_smts($invr_lnks); krsort($smts_rslt); echo ""; $ca=0; foreach($smts_rslt as $smts_key => $smts_val) { // echo "
INVR BZV1 ".$invr_bzv1." SMTS KEY ".$smts_key." SMTS VAL ".$smts_val; $smts_itms=explode("!!",$smts_key); $smts_text=$smts_itms[0]; $smts_tlkd=$smts_itms[1]; $smts_posn=$smts_itms[2]; $text_itms=explode(" ",$smts_text); if(count($text_itms) > 2) { if ($srelt != $smts_text) { // echo "
SMTS TEXT ".$smts_text." SMTS TLKD ".$smts_tlkd." SMTS POSN ".$smts_posn; $csmts_text = $smts_text; $srelt=$smts_text; } // $aiml_tmpl=$smts_text; if ($smts_posn== 0) { $aiml_ptrn=$smts_text." *"; } if ($smts_posn== 50) { $aiml_ptrn="* ".$smts_text."*"; } if ($smts_posn== 99) { $aiml_ptrn="* ".$smts_text; } $cmds_ipad=$invr_corp; // echo "
SMTS POSN ".$smts_posn." SMTS TEXT ".$smts_text." AIML PTRN ".$aiml_ptrn; $cmds_bzv2=$invr_lnks."[rule[".$invr_taal."[".$smts_text."[".$invr_rchs."[".$smts_posn; // echo "
RULE INVR BZV2 ".$cmds_bzv2."
"; // include ("chbt-cmds-code-2.php"); // $aiml = "".$aim.""; // $aiml_text="<category><topic>""</topic><pattern>".$invr_lnks."</pattern><template>".$invr_bzv1."</template></category>"; $ssmts_sgmt=str_replace(" ","+",$smts_sgmt); $sgmt_itms=explode(" ",$smts_sgmt); $ssay=str_replace(" ","+",$invr_lnks); // echo "
SMTS POSN ".$smts_posn." AANTAL ".count($sgmt_itms); // echo "
SAVE RCHS ".$save_rchs." INVR_RCHS ".$invr_rchs; $meta_one=metaphone($aiml_ptrn,8); $meta_two=metaphone($save_rchs,8); $meta_domn=$invr_domn."!!".$meta_two."!!".$meta_one; // echo "
META DOMN ".$meta_domn; if ($smts_posn == 0 or $smts_posn== 50 or $smts_posn == 99) { // echo "
SAVE RCHS ".$save_rchs." INVR_RCHS ".$invr_rchs; $aiml_text="<category><pattern>".$aiml_ptrn."</pattern><template>".$invr_rchs."</template></category>"; // echo "
VERWERKING LNKS VRAAG IS BEKEND AIML TEXT ".$aiml_end." INVR RCHS ".$invr_rchs; $sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','$invr_domn','$aiml_ptrn','$invr_lgrm','$save_rchs','','tlkd-rule-aiml','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $logentry_result = mysql_query($sql1, $link); $sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','','$smts_text','','$invr_rchs','','tlkd-rule-aiml','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); // $logentry_result = mysql_query($sql1, $link); $sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','$invr_chbt','$aiml_tmpl','','$aiml_ptrn','','rule-tlkd-aiml','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); // $logentry_result = mysql_query($sql1, $link); // $last_rcrd=return $logentry_result->insert_id; $psmts_sgmt="".$smts_sgmt.""; $lsmts_sgmt="".$psmts_sgmt.""; $csmts_text=str_replace($smts_sgmt,$lsmts_sgmt,$csmts_text); echo "
".$lsmts_sgmt; } } } $sinvr_lnks=str_replace(" ","+",$invr_lnks); // echo "
INVR LNKS ".$sinvr_lnks; // echo ""; ?>