There is are no references to CGI.pm in LC::SchemaClassMaker.#! /perl/bin/perl -w use strict; use CGI(); use DBI; use Data::Dumper; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use LC::SchemaClassMaker; use LC::DBMaint; my $file_in = '/web/lc/perllib/schema.xm'; my $drh = 'dbi:CSV:f_dir=/web/lc/database'; my $dbh = DBI->connect($drh); my $cm = LC::SchemaClassMaker->new({ schema_filename => $file_in , base_class => 'LC::PersistentSQL' , dbh => $dbh , class_prefix => 'XT' }); my $tm = LC::DBMaint->new({ dbc_classname => 'XT::book' }); $tm->set_attr('default', 'widgets', { review => {widget => 'scrolling_list'} , author => {widget => 'scrolling_list'} }); $tm->execute; my $header_args = $tm->get_cookie ? {-cookie => $tm->get_cookie} : {}; print CGI::header($header_args), CGI::start_html(); print $tm->default_html(); print CGI::end_html();
LC::DBMaint does a use CGI(); and makes several non-OO calls (CGI::funcname), including calls to param, cookie, script_name, script and various HTML-generating methods.
This module also instantiates several XT::book objects whose class are generated by SchemaClassMaker and whose methods are all inherited from a base class, LC::PersistentSQL (which has no CGI references) but inherits from a class LC::Persistent which is similar to LC::DBMaint in its use of CGI: use CGI; and several non-OO calls to param and HTML-generating functions.
(In the event you see typos, etc. in the above, this does work fine under vanilla CGI scripting.
In reply to Re: CGI.pm not returning POSTed param w/mod_perl
by voyager
in thread CGI.pm not returning POSTed param w/mod_perl
by voyager
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |