En utilisant extmodule et un socket:

%%>connect:global
%%>watch:call.update
%%>message::0:call.update::oisup.NationalChargeUnitNumber=5:peerid=sig/7:id=sip/7:operation=charge:targetid=sig/7

Note: oisup est la valeur par défaut de message-oprefix.

#!/usr/bin/perl $|=1; use lib '/home/automate/Public/scripts'; use Yate; use Data::Dumper;
sub demo3($) {

my $message = shift;
$id = $message->param('id');
$peerid = $message->param('peerid');
$targetid = $message->param('targetid');
$message->message("call.update",undef,$id,operation=>'charge','oisup.NationalChargeUnitNumber'=>5,id=>$id,peerid=>$peerid,targetid=>$targetid);
return undef;

}
my $message = new Yate(); $message→install(“call.update”,&demo3); $message→listen();