Re: Using DBI

[prev] [thread] [next] [Date index for 2004/12/29]

I have tried to install Apache-DBI from TheoryX but ppm gave an error:

Error: no suitable installation target found for package Apache-DBI.

How can I apply that patch manually? Do I need to edit the module
Apache::DBI by hand?
(Under Windows)

Thanks.

Teddy

From: "Randy Kobes" <randy@xxxxxxxx.xxxxxxxxx.xx>



It looks from some comments in the latest Apache::DBI
(version 0.94) that the connect_on_init method hasn't been
completely ported to mod_perl 2 yet. Can you try the
following patch against Apache::DBI (version 0.94) - if
you're using ppm on Win32, you can get this from the
Apache-DBI.ppd package in the
   http://theoryx5.uwinnipeg.ca/ppms/
repository.

==============================================================
--- DBI.pm~ Tue Feb 17 18:18:50 2004
+++ DBI.pm Tue Dec 28 16:43:46 2004
@@ -13,7 +13,7 @@

 # 1: report about new connect
 # 2: full debug output
-$Apache::DBI::DEBUG = 0;
+$Apache::DBI::DEBUG = 2;
 #DBI->trace(2);

 my %Connected;    # cache for database handles
@@ -23,6 +23,8 @@
 my %LastPingTime; # keeps track of last ping per data_source
 my $Idx;          # key of %Connected and %Rollback.

+use Apache::ServerUtil ();
+my $s = Apache->server;

 # supposed to be called in a startup script.
 # stores the data_source of all connections, which are supposed to be
created upon
@@ -32,9 +34,8 @@
     # provide a handler which creates all connections during server startup

     # TODO - Should check for mod_perl 2 and do the right thing there
-    carp "Apache.pm was not loaded\n" and return unless $INC{'Apache.pm'};
-    if(!@ChildConnect and Apache->can('push_handlers')) {
-        Apache->push_handlers(PerlChildInitHandler => \&childinit);
+    if(!@ChildConnect) {
+        $s->push_handlers(PerlChildInitHandler => \&childinit);
     }
     # store connections
     push @ChildConnect, [@_];
@@ -96,7 +97,7 @@
     # TODO - Fix mod_perl 2.0 here
     if(!$Rollback{$Idx} and $needCleanup and Apache->can('push_handlers'))
{
         print STDERR "$prefix push PerlCleanupHandler \n" if
$Apache::DBI::DEBUG > 1;
-        Apache->push_handlers("PerlCleanupHandler", \&cleanup);
+        $s->push_handlers("PerlCleanupHandler", \&cleanup);
         # make sure, that the rollback is called only once for every
         # request, even if the script calls connect more than once
         $Rollback{$Idx} = 1;

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

Does this help?

        -- 
        best regards,
randy kobes


-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html