Help for this page

Select Code to Download


  1. or download this
    sub handler {
my $r = Apache2::Request->new(shift);
my %in_cookies = Apache2::Cookie->fetch ($r);
my $session = $in_cookies{"ID"} && $in_cookies{"ID"}->value;
...
  2. or download this
    while ( my ($key,$value) = each %ship_address ) {
   $dbh->do("update bill set ship$key = ? where session = ?", undef, $
+value, $session);