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;