NAME

DTA::CAB::Client::CGIWrapper - CGI wrapper for DTA::CAB::Client::XmlRpc

SYNOPSIS

            

              
              
##========================================================================
## PRELIMINARIES
use DTA::CAB::Client::CGIWrapper;
##========================================================================
## Constructors etc.
$obj = $CLASS_OR_OBJECT->new(%args);
##========================================================================
## Methods: top-level
undef = $wr->run(\*STDIN);
undef = $wr->finish();
            
          

DESCRIPTION

DTA::CAB::Client::CGIWrapper is a wrapper for demonstrating the basic capabilities of DTA::CAB::Client::XmlRpc using an HTML CGI interface.

It is largely obsolete, as this functionality has been for the most part superseded by the DTA::CAB::Server::XmlRpc and DTA::CAB::Client::XmlRpc modules, which see.

Constructors etc.

new

            

              
              
$obj = $CLASS_OR_OBJECT->new(%args);
%args, %$obj:
##
##-- NEW
sysid   => "$id str"           ##-- default __PACKAGE__ . " v$DTA::CAB::VERSION"
analyzers => \@analyzers,      ##-- supported analyzers (undef to query)
fmts => [{class=>$class,label=>$label,level=>$level},...], ##-- supported output formats
defaultFmt => $name,           ##-- default format key
autoClean => $bool,            ##-- always set 'doAnalyzeClean=1' upstream analysis option
debug     => $bool,            ##-- default to debug mode?
##
##-- INHERITED from DTA::CAB::Client::XmlRpc
serverURL => $url,             ##-- default: localhost:8000
serverEncoding => $encoding,   ##-- default: UTF-8
timeout => $timeout,           ##-- timeout in seconds, default: 300 (5 minutes)
xcli => $xcli,                 ##-- RPC::XML::Client object
            
          

Methods: top-level

run

            

              
              
undef = $wr->run(\*STDIN);
undef = $wr->run("$cgi_src_str")
undef = $wr->run("$cgi_src_file")
undef = $wr->run(\%cgi_param_hash)
            
          

Run the CGI wrapper.

finish

            

              
              
undef = $wr->finish();
            
          

Cleanup after ourselves.

AUTHOR

Bryan Jurish <moocow@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2010-2019 by Bryan Jurish

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.24.1 or, at your option, any later version of Perl 5 you may have available.

SEE ALSO

dta-cab-analyze.perl(1), dta-cab-convert.perl(1), dta-cab-http-server.perl(1), dta-cab-http-client.perl(1), dta-cab-xmlrpc-server.perl(1), dta-cab-xmlrpc-client.perl(1), DTA::CAB::Server(3pm), DTA::CAB::Client(3pm), DTA::CAB::Format(3pm), DTA::CAB(3pm), perl(1), ...