From: Alan Rykhus Date: Tue, 3 Sep 2013 14:53:50 +0000 (-0400) Subject: Merge Alan's NCIP.pm and NCIPResponder.pm. X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2780745bf8d48b914f39117a1f3ae1bf259ac8b3;p=NCIPServer.git Merge Alan's NCIP.pm and NCIPResponder.pm. He had no copyright headers on those files. We could not merge his other files because the copyright header specified GPL version 2. We want GPL version 2 or later. This branch is not going into master. It is for review purposes only. Signed-off-by: Jason Stephenson --- 2780745bf8d48b914f39117a1f3ae1bf259ac8b3 diff --cc lib/NCIP.pm index 0000000,0000000..d1f1521 new file mode 100644 --- /dev/null +++ b/lib/NCIP.pm @@@ -1,0 -1,0 +1,26 @@@ ++package NCIP; ++use NCIP::Configuration; ++use Modern::Perl; ++ ++ ++use FileHandle; ++ ++sub new { ++ my $self = shift; ++ my $config_file = shift; ++ ++ my $config = NCIP::Configuration->new($config_file); ++ return bless $config, $self; ++ ++} ++ ++sub process_request { ++ my $self = shift; ++ my $xml = shift; ++ ++ my $response = " Hello There

Hello You Big JERK!

Who would take this book seriously if the first eaxample didn't say \"hello world\"? "; ++ ++ return $response; ++} ++ ++1; diff --cc lib/NCIPResponder.pm index 0000000,0000000..21714e5 new file mode 100644 --- /dev/null +++ b/lib/NCIPResponder.pm @@@ -1,0 -1,0 +1,43 @@@ ++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 (); ++use NCIPServer::NCIP; ++ ++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;