Merge Alan's NCIP.pm and NCIPResponder.pm.
[working/NCIPServer.git] / lib / NCIP.pm
1 package NCIP;
2 use NCIP::Configuration;
3 use Modern::Perl;
4
5
6 use FileHandle;
7
8 sub new {
9     my $self = shift;
10     my $config_file = shift;
11
12     my $config = NCIP::Configuration->new($config_file);
13     return bless $config, $self;
14
15 }
16
17 sub process_request {
18     my $self = shift;
19     my $xml = shift;
20
21     my $response = "<HTML> <HEAD> <TITLE>Hello There</TITLE> </HEAD> <BODY> <H1>Hello You Big JERK!</H1> Who would take this book seriously if the first eaxample didn't say \"hello world\"?  </BODY> </HTML>";
22
23     return $response;
24 }
25
26 1;