Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

working under mod_cgi and mod_perl

by Miguel (Friar)
on Aug 29, 2007 at 15:39 UTC ( #635825=perlquestion: print w/ replies, xml ) Need Help??
Miguel has asked for the wisdom of the Perl Monks concerning the following question:

Esteemed Monks,

I am re-writing a large (10s of forms, many templates, complex authorization rules, 10s os lists, many different file formats (png, xml, xls, pdf) to create and retrieve on the fly) web application purely based on mod_cgi. Actually, this app works well altought not so fast as I would like.

I am writing everything from the beggining trying to optimize my code to work under mod_cgi and mod_perl (with Apache::Registry). And here is where I'm stuck: how to deal with CGI (params requests) in a manner that works under both environments without writing a lot of specific code for each mode?
Is using a web app framework the 'only' solution?

Comment on working under mod_cgi and mod_perl
Re: working under mod_cgi and mod_perl
by perrin (Chancellor) on Aug 29, 2007 at 15:42 UTC
    The CGI module works correctly under both. If you do want a framework that is light enough to work with mod_cgi, CGI::Application is a good choice.
Re: working under mod_cgi and mod_perl
by ikegami (Pope) on Aug 29, 2007 at 15:43 UTC
    CGI's parameter methods will work with Apache::Registry scripts and CGI script (and I think with mod_perl handlers too).
Re: working under mod_cgi and mod_perl
by CountZero (Bishop) on Aug 29, 2007 at 16:10 UTC
    The documentation of ModPerl::Registry says : This module emulates the CGI environment, allowing programmers to write scripts that run under CGI or mod_perl without change. Existing CGI scripts may require some changes, simply because a CGI script has a very short lifetime of one HTTP request, allowing you to get away with "quick and dirty" scripting. .

    As far as parameter processing goes, there is no change under mod_cgi or mod_perl, but there are a number of other issues to look into, such as not using global variables since they do not (always) get reset for each request. On the other hand everywhere using lexical variables (my) can get you into even more subtle traps as they might get persisted through closures.

    CountZero

    A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

      On the other hand everywhere using lexical variables (my) can get you into even more subtle traps as they might get persisted through closures.
      That's exactly my problem. I don't have 'global variables' flying around. Everything is done through methods. But I'm having a lot of troubles with forms and getting the correct values from $Q->params. Under Apache::PerlRun everything works OK, but not on Apache::Registry.
        How are you initializing $Q? I'm assuming it's a my $Q = CGI->new(), but is your code set up so that happens on every execution? I've seen this kind of problem when moving to mod_perl. For example, if you have a method that's returning your CGI object for you, make sure you have an initialization method that sets that at the start of each response.
        perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79 +*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://635825]
Approved by Mutant
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2014-12-22 07:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (112 votes), past polls