util.php

flashget43的源代码 一个比较常用的下载程序

<?php

/*
    Program E
	Copyright 2002, Paul Rydell
	
	This file is part of Program E.
	
	Program E is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    Program E is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with Program E; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/**
 * Util.php, Utility functions
 * 
 * Contains reusable functions for Program E
 * @author Paul Rydell
 * @copyright 2002
 * @version 0.0.8
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @package Interpreter
 */



/**
 * Class to hold the reponse
 * 
 * Container class to hold response, input error and a bunch of other
 * bits of information that is used in other functions
 * @author Paul Rydell
 * @copyright 2002
 * @version 0.0.8
 * @package Interpreter
 */
class Response
{
    var $response;
    var $patternsmatched;
	var $inputs;
    var $errors;
	var $timer;
}

/**
* subs.inc has all of the substitution values and sentence splitter values
*/
//require_once "botinst/subs.inc";

// Initialize information for search replace routines
$replacecounter=1;
$aftersearch=array();
$afterreplace=array();


/**
* Create a random number based upon the present time.
*
* @return float       A fully random generated floating point number.
*/
function make_seed() {
	list($usec, $sec) = explode(' ', microtime());
	return (float) $sec + ((float) $usec * 100000);
}

/**
* This function will clean up old data in the database that is not 
* needed according to user defined settings.
*
* Deletes entries in the database tables dstore, thatstack, thatstackindex 
* and if set also conversationlog.
*
* @uses make_seed()
*
* @return void        nothing, deletes database entires
*/
function cleanup(){

	if ((RANDOMCHANCECLEAN == -1) || (MINUTESTOKEEPDATA == -1)){
		return;
	}

	mt_srand(make_seed());
	$randval = mt_rand(1,RANDOMCHANCECLEAN);

	if ($randval==RANDOMCHANCECLEAN){

		if (MINUTESTOKEEPDATA != -1){
		
			$clean_dstore="delete from {$GLOBALS['fc_config']['db']['pref']}dstore where enteredtime < date_add(now(), interval - " . MINUTESTOKEEPDATA . " minute)";
			$clean_thatstack="delete from {$GLOBALS['fc_config']['db']['pref']}thatstack where enteredtime < date_add(now(), interval - " . MINUTESTOKEEPDATA . " minute)";
			$clean_thatindex="delete from {$GLOBALS['fc_config']['db']['pref']}thatindex where enteredtime < date_add(now(), interval - " . MINUTESTOKEEPDATA . " minute)";

			$selectcode = mysql_query($clean_dstore);
			if ($selectcode){
			}
			$selectcode = mysql_query($clean_thatstack);
			if ($selectcode){
			}
			$selectcode = mysql_query($clean_thatindex);
			if ($selectcode){
			}

		}
		
		if (MINUTESTOKEEPCHATLOG != -1){
			
			$clean_convlog="delete from {$GLOBALS['fc_config']['db']['pref']}conversationlog where enteredtime < date_add(now(), interval - " . MINUTESTOKEEPCHATLOG . " minute) and " . whichbots();

			$selectcode = mysql_query($clean_convlog);
			if ($selectcode){
			}

		}

	}

}

/**
* Check if a tag is an old style AIML tag. 
* 
* If it is then return its new name and the fact that it is deprecated. This 
* information is not send back through the return value, but by using call-by-reference 
* variable &$ttag.
* 
* @param string $tag     the tag name that needs to be checked
* @param string &$ttag   depreciated AIML tag name. Note, call-by-reference variable.
* 
* @return boolean        true/false; either it is a depreciated AIML tag or it is not.
*/
function isdeprecated($tag,&$ttag){

	if ($tag=="FOR_FUN"){
		$tag="FORFUN";
	}
	if ($tag=="BOTMASTER"){
		$tag="MASTER";
	}
	if ($tag=="KIND_MUSIC"){
		$tag="KINDMUSIC";
	}
	if ($tag=="LOOK_LIKE"){
		$tag="LOOKLIKE";
	}

	if ($tag=="TALK_ABOUT"){
		$tag="TALKABOUT";
	}	
	$deptags=array("NAME","BIRTHDAY","BIRTHPLACE","BOYFRIEND","FAVORITEBAND","FAVORITEBOOK","FAVORITECOLOR","FAVORITEFOOD","FAVORITESONG","FAVORITEMOVIE","FORFUN","FRIENDS","GIRLFRIEND","KINDMUSIC","LOCATION","LOOKLIKE","MASTER","QUESTION","SIGN","TALKABOUT","WEAR");

	if (in_array($tag,$deptags)){
		$ttag=$tag;
		return true;
	}
	else {
		return false;
	}

}

/**
* Substitution routine
*
* Is used in combination with for example {@link firstthird()} {@link gender()}. The myfunc() is called from these functions from the arrays generated in {@link subs.inc} by {@link makesrphp()}. 
*
* When doing substitution myfunc replaces the words to be substituted with ~~x~~ 
* where x is an incremented integer instead of what should eventually be substituted. 
* Then when all substitution is done another function will go through and replace the 
* ~~x~~ with the real value.
*
* @todo Analyse if a straight replace will be more effective and efficient. Hard to see why this two-stage replace has any advantages. If not, then rename the function.
*
* @global integer replacecounter  The incremented integer number for substitution.
* @global array aftersearch       Contains ~~replacecounter number~~
* @global array afterreplace      Countains the input. (Anne:Have no idea how this works, yet.)
*
* @param string $input    The new word replacing the old word.
*
* @return string          The user's input, with ~~number~~ where the words in the substitution list 
*                         should be.
*/
function myfunc($input){
	
	global $replacecounter,$aftersearch,$afterreplace;

	$aftersearch[]="~~" . $replacecounter . "~~";
	$afterreplace[]=$input;

	return "~~" . $replacecounter++ . "~~";

}

/**
* Get the ID, or IP of the user
*
* Uses the server global REMOTE_ADDR.
* 
* @global REMOTE_ADDR     The user's remote address, i.e. LAN address.
*
* @return string          IP number
*/
function getid(){

	return getenv("REMOTE_ADDR");

}

/**
* get the current date formatted.
*
* Should look like: Wed Nov 14 18:09:55 CST 2002
*
* @return string          formated date string, Day name, Month name, day number month, time, time zone and year. 
*
*/
function getfdate(){

	return date("D M j G:i:s T Y");

}

/**
* Gets the numer of AIML categories stored in the database
*
* The size of the AIML knowledgebase is counted in categories. This function
* will count the number of categories based upon the number of records in the
* templates table.
*
* @uses whichbots()
*
* @return integer         the number of templates in the template database. 
*/
function getsize(){

	$query="select count(*) from {$GLOBALS['fc_config']['db']['pref']}templates where " . whichbots();	

	$selectcode = mysql_query($query);
	if ($selectcode){
		if(!mysql_numrows($selectcode)){
			return 0;
		}
		else{
			while ($q = mysql_fetch_array($selectcode)){
				return $q[0];
			}
		}
	}
	return "";

}

/**
* Get information about the bot that was entered in the startup.xml
*
* In startup.xml there are a number of bot-varables called in AIML as <bot name="foo"/>
* These are stored in the table 'bot' and this function retrieves (ex.) the value of 
* bot-variable "foo".
*
* @global integer uid            is created in talk.php as $myuniqueid then transformed 
*                                in respond.php into $uid by reply()
* @global integer selectbot     is created in respond.php:replybotname() as $botid 
*                                which in return calls reply() that turns it into $selectbot
*
* @see talk.php
* @see reply()
* @see replybotname()
*
* @param string $name            The name of the bot-variable of which the value is requested.
*
* @return string                 The value of requested bot variable.
*/
function botget($name){

	global $uid, $selectbot;		

	$name=addslashes($name);

	$query="select value from {$GLOBALS['fc_config']['db']['pref']}bot where name='$name' and bot = $selectbot";	

	$selectcode = mysql_query($query);
	if ($selectcode){
		if(!mysql_numrows($selectcode)){
			return "";
		}
		else{
			while ($q = mysql_fetch_array($selectcode)){
				return $q[0];
			}
		}
	}
	return "";

}

/**
* Get a value for some variable set by the user in AIML.
*
* In the template (<template> ... </template>) variables can be set and used during matching.
* after matching these variables are stored in the table dstore. This function retrieves the 
* value of a stored variable. This type of variable is also called a 'predicate'. 
*
* @global integer
*
* @return string            Either the value of the stored predicate, or the constand default 
*                           value of a predicate
*/
function bget($name){

	global $uid;

	$name=addslashes($name);

	$query="select value from {$GLOBALS['fc_config']['db']['pref']}dstore where name='$name' and uid='$uid' order by id desc limit 1";
	
	$selectcode = mysql_query($query);
	if ($selectcode){
		if(!mysql_numrows($selectcode)){
			return DEFAULTPREDICATEVALUE;
		}
		else{
			while ($q = mysql_fetch_array($selectcode)){
				return $q[0];
			}
		}
	}
	return DEFAULTPREDICATEVALUE;

}

/** 
* Set the value for an AIML variable
*
* Function to store the variable name and it's contents into the dstore table. It doens't 
* update the table, just the first insert.
*
* @global integer 
*
* @param string $name     The name in which the value should be stored
* @param string $value    The contents of the variable.
* 
* @return void      doesn't return anything
*/
function bset($name,$value){

	global $uid;
	
	$value=trim($value);
	$name=addslashes($name);
	$value=addslashes($value);

	$query="insert into {$GLOBALS['fc_config']['db']['pref']}dstore (uid,name,value) values ('$uid','$name','$value')";
	$selectcode = mysql_query($query);
	if ($selectcode){
	}

}

/**
* Store the clients inputs into the database.
*
* This is an array because it separates on .'s and other sentence splitters. Stores these in the 
* dstore table of the database.
*
* @global integer 
*
* @param array $inputsarray   Contains multiple inputs (i.e. sentences) of a user
*
* @return void                nothing
*/
function addinputs($inputsarray){

	global $uid;

	$query="insert into {$GLOBALS['fc_config']['db']['pref']}dstore (uid,name,value) values ";

	for ($x=0;$x<sizeof($inputsarray);$x++){

		$value=addslashes(trim($inputsarray[$x]));

		$query.="('$uid','input','$value'),";

	}

	$query=substr($query,0,(strlen($query)-1));
	$selectcode = mysql_query($query);
	if ($selectcode){
	}

}

/**
* Store the bots responses into the database
*
* This is an array because it separates on .'s and other sentence splitters. Stores these in the
* thatindex table of the database.
*
* @global integer 
*
* @param array $inputsarray   Contains multiple inputs (sentences) of the bot
*
* @return void                nothing
*/
function addthats($inputsarray){

	global $uid;

	$query="insert into {$GLOBALS['fc_config']['db']['pref']}thatindex (uid) values ('$uid')";

	$selectcode = mysql_query($query);
	if ($selectcode){
	}
	$thatidx=mysql_insert_id();

	$query="insert into {$GLOBALS['fc_config']['db']['pref']}thatstack (thatid,value) values ";

	for ($x=0;$x<sizeof($inputsarray);$x++){

		$value=trim($inputsarray[$x]);
		
		$value=strip_tags($value);
		$value=addslashes($value);

		$query.="($thatidx,'$value'),";
		
	}

	$query=substr($query,0,(strlen($query)-1));

	$selectcode = mysql_query($query);
	if ($selectcode){
	}

}

/**
* Logs the whole input and response
*
* Saves the input and response into the conversationlog table of the database.
*
* @param string $input      The user's input.
* @param string $reponse    The bot's response to the user's input.
*
* @global integer 
* @global integer 

* @return void              nothing
*/
function logconversation($input,$response){

	global $uid, $selectbot;

	$input=addslashes($input);
	$response=addslashes($response);

	$query="insert into {$GLOBALS['fc_config']['db']['pref']}conversationlog (uid,input,response,bot) values ('$uid','$input','$response',$selectbot)";
	$selectcode = mysql_query($query);
	if ($selectcode){
	}

}

/**
* Get the previous thing the bot said
*
* Retrieve from the thatindex table the previous output, per sentence, of what the bot said from the thatindex en thatstack table.
* 
* @global integer 
* 
* @param integer $index      Number between 1-5, 1 representing the previous bot output and 5 the 5th last bot output.
* @param integer $offset     Bot output is saved per sentence. So 1 would be last sentence, 3 would be third last sentence of that bot output.
*
* @return string             The requested sentence of the bot's output
*/
function getthat($index,$offset){

	global $uid;

	$index=$index-1;
	$offset=$offset-1;

	$query="select id from {$GLOBALS['fc_config']['db']['pref']}thatindex where uid='$uid' order by id desc limit $index,1";
	
	
	$selectcode = mysql_query($query);
	if ($selectcode){
		if(!mysql_numrows($selectcode)){
			return "";
		}
		else{
			while ($q = mysql_fetch_array($selectcode)){
				$thatid=$q[0];