Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

davebaker (4482)

davebaker
  davebakerNO@SPAMbenefitslink.com
http://benefitslink.com/about.html

I'm married and living in the mountains of western North Carolina with our 14-year-old son. I've loved Perl since 1995, when I started a web site that became my livelihood when I discovered employers would pay to put help wanted ads on it.

Journal of davebaker (4482)

Saturday February 19, 2005
04:55 PM

Learning CGI::Application - my first effort

[ #23260 ]
I've been learning how to use CGI::Application. I took an example from Apache::ASP and reworked it into the CGI::Application way of doing things. I think I like it better.

I added the example to the CGI::Application kwiki at http://twiki.med.yale.edu/twiki2/bin/view/CGIapp/ColorChooserExampleApp

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Now that I have a basis for your question, I think this will be sufficient...

    Typically I do this:

    use CGI qw/:all/;
    use DBI;
    use DBD::Oracle;

    I program using a state engine, and hidden tags...

    sub action()
    {
      my ( $act ) = @_;

      if ( $act eq '' )
      {
        &present_menu();
      }
      elsif ( $act =~ m/^ed/ )
      {
        # get auxillary parms for this action...
        &do_edit();
      }
      # etc, etc...
    }