Re: ModPerl2/Apache2 - Error handling return codes: msg#00193 apache.mod-perl.devel

Hello Stan,

Nice mesg'g: A RegistryCooker.pm edit took and the server started fine - yet when I'm executing a cookie script (noted below) I'm gettting the "Dude, your just killed $r!(/var/www/sec/cooky)" .... Same with the other .pl's.

Best Regards,
Adolph Torres
khmb1@xxxxxxxxxxxxx

cooky.pl
-----------------------------------------

#!/usr/bin/perl -w

use strict;
#use Test::Cookie;
use CGI;
use CGI::Cookie;
use vars qw($q $switch $status $sessionID);

init();
print_header();
print_status();

### <-- subroutines --> ###

# the init code
###########
sub init{
$q = new CGI;

$switch = $q->param("switch") ? 1 : 0;

      # try to retrieve the session ID
              # fetch existing cookies
    my %cookies = CGI::Cookie->fetch;
    $sessionID = exists $cookies{'sessionID'}
       ? $cookies{'sessionID'}->value : '';

# 0 = not running, 1 = running
$status = $sessionID ? 1 : 0;

# switch status if asked to
$status = ($status+1) % 2 if $switch;

    if ($status){
        # preserve sessionID if exists or create a new one
      $sessionID ||= generate_sessionID() if $status;
    } else {
        # delete the sessionID
      $sessionID = '';
    }

} # end of sub init

#################
sub print_header{
      # prepare a cookie
    my $c = CGI::Cookie->new
      ('-name'    => 'sessionID',
       '-value'   => $sessionID,
       '-expires' => '+1h');

    print $q->header
      (-type   => 'text/html',
       -cookie => $c);

} # end of sub print_header

# print the current Session status and a form to toggle the status
#################
sub print_status{

print qq{<HTML><HEAD><TITLE>Cookie</TITLE></HEAD><BODY>};

      # print status
    print "<B>Status:</B> ",
          $status
            ? "Session is running with ID: $sessionID"
            : "No session is running";

      # change status form
    my $button_label = $status ? "Stop" : "Start";
    print qq{<HR>
         <FORM>
           <INPUT TYPE=SUBMIT NAME=switch VALUE=" $button_label ">
         </FORM>
           };

print qq{</BODY></HTML>};

} # end of sub print_status

# A dummy ID generator
# Replace with a real session ID generator
########################
sub generate_sessionID {
return scalar localtime;
} # end of sub generate_sessionID

----------------------------------------------------------------------------------------------------------------------

----- Original Message -----

From: Stas Bekman

To: khmb1@xxxxxxxxxxxxx
Cc: dev@xxxxxxxxxxxxxxx; Randy Kobes

Sent: 8/22/2003 10:55:25 AM

Subject: Re: ModPerl2/Apache2 - Error handling return codes -RegistryCooker.pm:"Argument""isn't numeric ...& bottom of web page say:OK the server encounteredaninternal.....

Adolph Torres wrote:

> Fri Aug 22 10:37:59 PDT 2003

> Hello again,

> Here is the result of those edits on this system.  And I'm more than

> willing to continue working this if you would like - but had to back it

> out as you'll see below.

>

> Adolph Torres

> khmb1@xxxxxxxxxxxxx

> -------------------------------------------------------------------------------

>

>

> #-> Snip of new edit to RegistryCooker.pm:

>

>     { # run the code and preserve warnings setup when it's done

>         no warnings;

>         my $r_iv=$$r;#people do things...

>         eval{$cv->($r,@_)};

>         unless(ref($r) eq 'SCALAR' && $$r==$r_iv){

>           warn "dude, your just killed \$r!($self->{FILENAME})\n";

>           $$r=$r_iv;#restore the IV slot

>         ModPerl::Global::special_list_call(END => $package);

>     }

were you manually adjusting the code? You lost the closing brace. Just save

this patch as a file /tmp/patch and then apply it with

cd modperl-2.0/Modperl-Registry

patch -p0 < /tmp/patch

Index: lib/ModPerl/RegistryCooker.pm

===================================================================

RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v

retrieving revision 1.35

diff -u -r1.35 RegistryCooker.pm

--- lib/ModPerl/RegistryCooker.pm    23 Mar 2003 04:52:24 -0000    1.35

+++ lib/ModPerl/RegistryCooker.pm    22 Aug 2003 07:30:27 -0000

@@ -181,7 +181,14 @@

      { # run the code and preserve warnings setup when it's done

          no warnings;

+

+        my $r_iv = $$r; # people do things...

          eval { $cv->($r, @_) };

+        unless (ref($r) eq 'SCALAR' && $$r == $r_iv) {

+            warn "dude, you just killed \$r! ($self->{FILENAME})\n";

+            $$r = $r_iv; # restore the IV slot

+        }

+

          ModPerl::Global::special_list_call(END => $package);

      }

__________________________________________________________________

Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker

http://stason.org/     mod_perl Guide ---> http://perl.apache.org

mailto:stas@xxxxxxxxxx http://use.perl.org http://apacheweek.com

http://modperlbook.org http://apache.org   http://ticketmaster.com

--- Adolph Torres

--- khmb1@xxxxxxxxxxxxx

--- EarthLink: It's your Internet.

Previous by Date:	Re: minimum supported httpd version, Geoffrey Young
Next by Date:	Re: ModPerl2/Apache2 - Error handling return codes -RegistryCooker.pm:"Argument""isn't numeric ...& bottom of web page say:OK the server encounteredaninternal....., Stas Bekman
Previous by Thread:	Re: ModPerl2/Apache2 - Error handling return codes -RegistryCooker.pm:"Argument"" isn't numeric ...& bottom of web page say:OK the server encounteredaninternal ....., Adolph Torres
Next by Thread:	Re: ModPerl2/Apache2 - Error handling return codes -RegistryCooker.pm:"Argument""isn't numeric ...& bottom of web page say:OK the server encounteredaninternal....., Stas Bekman
Indexes:	[Date] [Thread] [Top] [All Lists]

Re: ModPerl2/Apache2 - Error handling return codes -RegistryCooker.pm:"Argu: msg#00193

apache.mod-perl.devel

Free Magazines

<Prev in Thread]	Current Thread	[Next in Thread>