Move from CGI::XMLPost to CGI
authorJeff Godin <jgodin@tadl.org>
Wed, 2 Oct 2013 16:19:21 +0000 (12:19 -0400)
committerJeff Godin <jgodin@tadl.org>
Wed, 2 Oct 2013 16:19:21 +0000 (12:19 -0400)
It would be convenient to use some of the features available in the
CGI module, but CGI::XMLPost and CGI cannot (easily) co-exist.

As an added bonus, this means that we have one less external
non-core Perl module dependency, and might make future persistency
under mod_perl or Plack easier.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
iNCIPit.cgi

index 21568e0..3d022cf 100644 (file)
@@ -18,7 +18,7 @@
 use warnings;
 use strict;
 use XML::LibXML;
-use CGI::XMLPost;
+use CGI;
 use HTML::Entities;
 use CGI::Carp;
 use OpenSRF::System;
@@ -83,8 +83,9 @@ if ($lb_ip) {
     }
 }
 
-my $xmlpost = CGI::XMLPost->new();
-my $xml     = $xmlpost->data();
+my $cgi = CGI->new();
+
+my $xml = $cgi->param('POSTDATA') || $cgi->param('XForms:Model');
 
 # log posted data
 # XXX: posted ncip message log filename should be in config.