Need original client IP on SMTP VIP

I searched some docs in devcentral and prepared one irule.

when CLIENT_ACCEPTED {

  set c-addr [IP::client_addr]

  log local0. "Client addr: $c-addr"

  STREAM::expression {@^EHLO.*@@ @^HELO.*@@}

  STREAM::enable

}

when STREAM_MATCHED {

  set mstring [STREAM::match]

  log local0. "STREAM_MATCHED: string: $mstring"

  set replacment [string range $mstring 0 1]

  append replacment "LO $c-addr\r\n"

  log local0. "STREAM_MATCHED: replacement string: $replacement"

  STREAM::replace $replacment

  event STREAM_MATCHED disable

}

when SERVER_CONNECTED {

  STREAM::disable

}

Will that work?