61 lines
1.5 KiB
PHP
Executable File
61 lines
1.5 KiB
PHP
Executable File
#!/usr/bin/php -q
|
|
<?
|
|
/* Test script for the Yate PHP interface
|
|
To test add in extmodule.conf
|
|
|
|
[scripts]
|
|
test.php=
|
|
*/
|
|
require_once("libyate.php");
|
|
|
|
/* Always the first action to do */
|
|
Yate::Init();
|
|
|
|
/* Install a handler for the engine generated timer message */
|
|
Yate::Install("engine.timer",10);
|
|
|
|
/* Create and dispatch an initial test message */
|
|
$m=new Yate("test");
|
|
$m->params["param1"]="val1";
|
|
$m->retval="ret_value";
|
|
$m->Dispatch();
|
|
|
|
/* The main loop. We pick events and handle them */
|
|
for (;;) {
|
|
$ev=Yate::GetEvent();
|
|
/* If Yate disconnected us then exit cleanly */
|
|
if ($ev == "EOF")
|
|
break;
|
|
/* Empty events are normal in non-blocking operation.
|
|
This is an opportunity to do idle tasks and check timers */
|
|
if ($ev == "") {
|
|
Yate::Output("PHP event: empty");
|
|
continue;
|
|
}
|
|
/* If we reached here we should have a valid object */
|
|
switch ($ev->type) {
|
|
case "incoming":
|
|
Yate::Output("PHP Message: " . $ev->name . " id: " . $ev->id);
|
|
/* This is extremely important.
|
|
We MUST let messages return, handled or not */
|
|
$ev->Acknowledge();
|
|
break;
|
|
case "answer":
|
|
Yate::Output("PHP Answered: " . $ev->name . " id: " . $ev->id);
|
|
break;
|
|
case "installed":
|
|
Yate::Output("PHP Installed: " . $ev->name);
|
|
break;
|
|
case "uninstalled":
|
|
Yate::Output("PHP Uninstalled: " . $ev->name);
|
|
break;
|
|
default:
|
|
Yate::Output("PHP Event: " . $ev->type);
|
|
}
|
|
}
|
|
|
|
Yate::Output("PHP: bye!");
|
|
|
|
/* vi: set ts=8 sw=4 sts=4 noet: */
|
|
?>
|