Help for this page

Select Code to Download


  1. or download this
    int rcv_msg(char *query, int readlen, char *testHost, char *testPort, 
+char *prodHost, char *prodPort, char *testMsg, char *prodMsg)
  2. or download this
    #include "EXTERN.h"
#include "perl.h"
...
        testMsg
        prodMsg
        RETVAL
  3. or download this
    use ExtUtils::testlib;
use REGTEST;
...
my ($prodRes,$testRes);
($testRes,$prodRes) = REGTEST::rcv_msg($query,$queryLen,$testHost,$tes
+tPort,$pro
dHost,$prodPort,$testRes,$prodRes);