diff -r astrad010/files/script/ast-rad-acc.pl astrad011/files/script/ast-rad-acc.pl
287c287,305
<                                       $channels{$event{'Channel'}}{$_var} = $_val;
---
>                                         if ($_var eq 'error_message') {
>                                               $channels{$event{'Channel'}}{'H323_ID'}=sprintf("%08X %08X %08X %08X",$1,$2,$3,$4) if $channels{$event{'Channel'}}{'H323_ID'} =~ /(\d+)-(\d+)-(\d+)-(\d+)/;;
>                                               $channels{$event{'Channel'}}{'VLEG'} = $event{'Channel'};
>                                               $channels{$event{'Channel'}}{'CALL_ID'} = $event{'Uniqueid1'} if !defined $channels{$event{'Channel'}}{'CALL_ID'};
>                                               $channels{$event{'Channel'}}{'ACCOUNTCODE'} = $channels{$event{'Channel'}}{'CALLERID'} if !defined $channels{$event{'Channel'}}{'ACCOUNTCODE'};
>                                               $channels{$event{'Channel'}}{'CALL_END'} = time();
>                                               $channels{$event{'Channel'}}{'CAUSE'} = $event{'Cause'} if defined $event{'Cause'};
>                                               $channels{$event{'Channel'}}{'CAUSE'} = 0 if !defined $event{'Cause'} || $event{'Cause'} eq "";
>                                               my $remoteaddress = $channels{$event{'Channel'}}{'Remoteip'};
>                                               delete $channels{$event{'Channel'}}{'Remoteip'};
>                                               send_acc('Stop',%{$channels{$event{'Channel'}}});
>                                               $channels{$event{'Channel'}}{'Remoteip'} = $remoteaddress;
>                                               $channels{$event{'Channel'}}{'CALL_ORIGIN'} = 'answer';
>                                               $channels{$event{'Channel'}}{'CAUSE'} = 18;
>                                               send_acc('Stop',%{$channels{$event{'Channel'}}});
>                                               delete $channels{$event{'Channel'}};
>                                         } else {
>                                               $channels{$event{'Channel'}}{$_var} = $_val;
>                                         }