This is my start to the NCIPServer, the only real code is the Apache NCIPResponder...
[working/NCIPServer.git] / NCIP.pm
1
2 package NCIPServer::NCIP;
3 use strict;
4 use warnings;
5
6 use NCIPServer::NCIP::Configuration;
7
8 use FileHandle;
9
10 sub new {
11   my $self = shift;
12   my $config_file = shift;
13
14   my $config = NCIPServer::NCIP::Configuration->new($config_file);
15     
16   return bless $config, $self;
17
18 }
19
20 sub process_request {
21   my $self = shift;
22   my $xml = shift;
23
24   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>";
25
26   return $response;
27 }
28
29 1;