From c5ab828a2a7a52df187ef16a524fbf607c4cc577 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Mon, 23 Jun 2014 10:16:41 -0400 Subject: [PATCH] Remove an unused file: lib/NCIPResponder.pm. Signed-off-by: Jason Stephenson --- lib/NCIPResponder.pm | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 lib/NCIPResponder.pm diff --git a/lib/NCIPResponder.pm b/lib/NCIPResponder.pm deleted file mode 100644 index e16ace4..0000000 --- a/lib/NCIPResponder.pm +++ /dev/null @@ -1,42 +0,0 @@ -package NCIPResponder; -use Modern::Perl; -use NCIP; - -use FileHandle; - -use Apache2::Const -compile => qw(OK :log :http :methods :cmd_how :override); -use Apache2::RequestRec (); -use Apache2::RequestIO (); - -sub handler { - my $r = shift; - - return Apache2::Const::HTTP_METHOD_NOT_ALLOWED unless $r->method_number eq Apache2::Const::M_POST; - - my $NCIPConfigFile = $r->dir_config('NCIPConfigFile'); - - if (!defined($NCIPConfigFile)) { - die sprintf "error: There is no NCIPConfigFile defined\n"; - } else { - if (! (-r $NCIPConfigFile)) { - die sprintf "error: NCIPConfigFile %s does not exist or is not readable\n", $NCIPConfigFile; - } - } - - my $ncip = NCIP->new($NCIPConfigFile); - - $r->content_type('text/html'); - my $tmp_buf; - my $input_xml; - - while ($r->read($tmp_buf, 1024)) { - $input_xml .= $tmp_buf; - } - - my $response_xml = $ncip->process_request($input_xml); - - $r->print($response_xml); - return Apache2::Const::OK; -} - -1; -- 2.11.0