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();