I tried running hl7d.pl. Out the box (meaning, just
installed) I tried
perl hl7d.pl
and get the following message
"-T" is on the #! line, it must also be used on the
command line at hl7d.pl line
1.
so I add the -T like so
perl -T hl7d.pl
and then I get the following:
Name "Net::HL7::COMPONENT_SEPARATOR" used only once:
possible typo at hl7d.pl li
ne 399.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 3.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 6.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 16
.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 17
.
Couldn't create daemon at hl7d.pl line 194.
Which after looking into it was most likely due to the
-w switch that is included, so no really big problem
there and just to try something new, I removed the -w
which leaves me with this error...
Couldn't create daemon at hl7d.pl line 195.
I looked over the line 195 and it is the line after
this command
my $server = new Net::HL7::Daemon
(
LocalPort => $cfg{PORT},
Listen => $cfg{LISTEN}
);
Which basically says that the server isn't being
created. Interestingly enough, when I replace
$cfg{PORT} with a number like so
my $server = new Net::HL7::Daemon
(
LocalPort => 2500,
Listen => $cfg{LISTEN}
);
It works without a problem. Should be simple to find,
but it *looks* to me like the cfg array is being built
correctly. I've hardcoded it for now, but it's kind of
strange.
Cheers,
Ed