[RADIATOR] Origin-Host in ACA message

[Arthur Konovalov]

Hi, list!
Please observe raised issue with my client.
My Radiator server reply to Diameter Accounting (AVP 271) with 
'Origin-Host' AVP from request (proxy1.emm.hot.ee) instead of own 
(mm.emm.hot.ee). This answer lead to problem in client application.

For example piece of trace:

Request message (proxy1.emm.hot.ee -> mm.emm.hot.ee):

Diameter Protocol
    Command Code: 271 Accounting
    ApplicationId: Diameter Base Accounting (3)
    Hop-by-Hop Identifier: 0x130b244d
    End-to-End Identifier: 0x130b244d
    AVP: Session-Id(263) l=60 f=-M- 
val=proxy1.emm.hot.ee;18;1056;ppb1_bs13-R6A at blade_0_19
    AVP: Origin-Host(264) l=27 f=-M- val=proxy1.emm.hot.ee
    AVP: Origin-Realm(296) l=20 f=-M- val=emm.hot.ee
    AVP: Destination-Realm(283) l=20 f=-M- val=emm.hot.ee
    AVP: Accounting-Record-Type(480) l=12 f=-M- val=Start Record (2)
    AVP: Accounting-Record-Number(485) l=12 f=-M- val=1
    AVP: Acct-Application-Id(259) l=12 f=-M- val=Diameter Base 
Accounting (3)
    AVP: Event-Timestamp(55) l=12 f=-M- val=Sep 11, 2009 07:46:59.0000 UTC

Answer message (mm.emm.hot.ee -> proxy1.emm.hot.ee):

Diameter Protocol
    Command Code: 271 Accounting
    ApplicationId: Diameter Base Accounting (3)
    Hop-by-Hop Identifier: 0x130b244d
    End-to-End Identifier: 0x130b244d
    AVP: Session-Id(263) l=60 f=-M- 
val=proxy1.emm.hot.ee;18;1056;ppb1_bs13-R6A at blade_0_19
    AVP: Origin-Host(264) l=27 f=-M- val=proxy1.emm.hot.ee
    AVP: Origin-Realm(296) l=20 f=-M- val=emm.hot.ee
    AVP: Acct-Application-Id(259) l=12 f=-M- val=Diameter Base 
Accounting (3)
    AVP: Accounting-Record-Type(480) l=12 f=-M- val=Start Record (2)
    AVP: Accounting-Record-Number(485) l=12 f=-M- val=1
    AVP: Result-Code(268) l=12 f=-M- val=DIAMETER_SUCCESS (2001)

In answer message 'Origin-Host' should be "mm.emm.hot.ee", because of 
RFC3588:
"This AVP identifies the endpoint that originated the Diameter message".

I looked to the code, but not found where gracefully "hack" address 
substitution (lack of Perl knowledge).
Please help me to fix this issue.

Regards,
Arthur