view release on metacpan or  search on metacpan

CTlib2.pm  view on Meta::CPAN

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw();
$VERSION = '2.00';

my(%Connected);
my @ChildConnect;
my $r=shift;
my $aref;
 
sub connect_on_init { 
   Apache->server->push_handlers(PerlChildInitHandler => \&childinit);
   push @ChildConnect, [@_]; 
}

sub childinit {
   for my $aref (@ChildConnect) {
      shift @$aref;
      Apache::Sybase::CTlib2->connect(@$aref);
   }
}

sub connect {
   my($self, @args) = @_;
   my($uid, $pwd, $srv, $db) = @args;
   my $idx = join ":", (@args) || (@{$self});
   return $Connected{$idx} if $Connected{$idx};
   $Connected{$idx} = Sybase::CTlib->ct_connect($uid, $pwd, $srv);
   if (! $Connected{$idx}){
      Apache->server->log_error("Failed connection to $srv");
      return undef;
   }
   else {
      if ($db ne "") {
         $Connected{$idx}->ct_sql("use $db");
      }
      Apache->server->log_notice("Establishing connection to $srv:$db");
   }
}
 
sub DESTROY {
#
# Sybase::CTlib->ct_connect will automatically close when the process ends.
# This should work fine when the Apache child process exits.
#
}

1;
__END__

=head1 NAME

Apache::Sybase::CTlib2 - Perl extension for creating persistant database connections to sybase using Apache and Sybperl.

=head1 SYNOPSIS

use Apache::Sybase::CTlib2;

Apache::Sybase::CTlib2->connect_on_init("user", "password", "server", "db");

=head1 DESCRIPTION

This module allows Apache/Modperl/Sybperl users to connect to sybase data servers, and maintain persistant connections. The advantage should be clear, as this avoids the overhead of creating a connection, gathering data, and then destroying the conne...

Place the above commands in your startup file for apache:

In httpd.conf

PerlRequire /apache/startup.pl

In /apache/startup.pl

use Apache::Sybase::CTlib2;

Apache::Sybase::CTlib2->connect_on_init("user", "password", "server", "db");

Passing db (database name) to the module will allow you to specify a database to start in (the module will execute "use database" after the connection is established). This is an optional parameter.

=head1 AUTHOR

Mark A. Downing, mdowning@wm7d.net
http://www.wm7d.net/

=head1 SEE ALSO

perl(1).

=cut