I just wish it were even possible to roll my own at this stage! ;-)

As for CGI.pm, wouldn't CGI.pm's "stickyness" be the default behavior? I see where there's a pragma called "-nosticky". I can't seem to pass the variables to the second script, even though I successfully passed them to the first script (and I suspect it's because the variables were in a form and CGI.pm likes that). So, am I correct in my understanding that CGI.pm won't pass the form variables a second time because there's no form?

I've been trying to play with CGI::Session, but I can't get it to work for me. I don't know if it's because I'm trying to save ALL my CGI form variables PLUS my TMPL_VAR variables... Is that even possible?

1. Create you database table, make sure that you have the required two fields. e.g.

   SET FOREIGN_KEY_CHECKS=0;
   #----------------------------
   # Table structure for sessions
   #----------------------------
   CREATE TABLE `sessions` (
     `id` varchar(32) NOT NULL default '',
     `a_session` text NOT NULL,
     UNIQUE KEY `id` (`id`)
   ) TYPE=MyISAM;
   [download]

   and make sure that the 'a_session' is at least a BLOB size field.
2. Set up the database and get a DBH object back.

   my $config = {    DSN            => 'DBI:mysql:session',
                   MySQLunm    => 'ipsofalco',
                   MySQLpwd    => 'ipsoquango',
   };
   
   my $dbh = &createDBconnection( $config->{DSN}, $config->{MySQLunm}, $c
   +onfig->{MySQLpwd} );
   # Get a CGI object, it will be filled if a form was
   #submitted and will have a cookie in teh header
   #if one had been set.
   my $q = new CGI;
   #Initialize the session, if their is a cookie in the
   #CGI object then the CGISESSID will be the value of an
   #existing session, otherwise it creates a new session
   my $session = new CGI::Session("driver:MySQL", $q, {Handle=>$dbh});
   
   #$rdcookie is the value of the cookie that was already
   # in the header read=past tense in this case.
   my $rdcookie = $q->cookie("CGISESSID");
   #$id is the session id (an MD5 hash) of the session.
   my $id = $session->id();
   
   # Set cookie with new expire time
   my $cookie = $q->cookie(-name=>'CGISESSID', -value=>$session->id, -exp
   +ires=>'+1d');
   [download]

3. Now we can write to the session, read from it, clear it and expire things, like this in a crude shopping cart:

   sub addItemCart {
       my ($cgi, $session, $orderitem) = @_;
   
       my $orderitem = &getItemForCart($cgi, $session);
   
       # get current cart contents
       my $cart = $session->param("CART") || [];
       # add selected item
       push @{$cart}, $orderitem;
       # update the CART in the session
       $session->param( "CART", $cart );
       $session->flush();
       return displayCart($cgi, $session);
   }
   [download]

   Does nothing more than get a hash of an item and adds it to the CART value(a list of hashes) which is saved in the session parameters.
4. To clear the cart we clear the session value that was saved:

   sub clrCart {
       my ($cgi, $session) = @_;
   
       $session->clear(["CART"]);
       $session->flush();
       return &displayCart($cgi, $session);
   }
   [download]

   and in this case display the updated cart.

To see some more code - much more complete, have a look at jdtoronto's scratchpad The full working version is posted there.

jdtoronto

I can save all my template variables in an array, then pass that array over to the template and somehow (don't know how yet) I can then "extract" them into individual items I can use? Did I get that right?

$template->param( 'username' => 'john',
                  'userstatus' => 'paid' );
[download]

$hashref = $q->Vars;
[download]

$template->param( $hashref );
[download]

Interestingly, H::T can also accept an object with a param method, similar to CGI. Well, this then means that you should be able to pass the query object to H::T, I havn't tried it, but it should work.

$template->param( associate => $q );
[download]

HTML::Template is immensely flexible and can be used in many ways, and it can be fed in many and various ways too!

jdtoronto