Apache-BabyConnect
5 results

 view release on metacpan or  search on metacpan

eg/perl/testcache.pl  view on Meta::CPAN 

#!/usr/bin/perl

use strict;


print qq|

<style type="text/css">
<!--
.footer { padding-right: 5px; 
          padding-left: 5px; 
          padding-bottom: 5px; 
          padding-top: 5px; 
          font-size: 100%;
          border-top: #ffffff 1px solid; 
          border-bottom: #ffffff 1px solid; 
          background: #e5ecf9; 
          text-align: center;
          font-family: arial,sans-serif;
}
-->
</style>
</head>

<body text="#000000" bgcolor="#ffffff">
<pre>
|;

# load the DBI::BabyConnect with caching and persistence enabled
use DBI::BabyConnect 1,1;

my $bbconn1 = DBI::BabyConnect->new('BABYDB_001');
$bbconn1-> HookError(">>/var/www/htdocs/logs/error_BABYDB_001.log");
$bbconn1-> HookTracing(">>/var/www/htdocs/logs/db_BABYDB_001.log",1);

# connect to any of the following cached object
my $bbconn2 = DBI::BabyConnect->new(
    'BABYDB_002',
);

my $bbconn3 = DBI::BabyConnect->new(
    'BABYDB_003',
);

my $bbconn4 = DBI::BabyConnect->new(
    'BABYDB_004',
);


# the following will be written to STDERR, /var/www/htdocs/logs/error.log
print STDERR "Now fetching records from TABLE2\n";

my $ah;
{
	if ( $ah = $bbconn1-> fetchTdaAO('TABLE2', ' ID,LOOKUP,DATASTRING,DATANUM,RECORDDATE_T '," ID=ID ")) { }
	else {
		# check for dbi error
		my $dbierror = $bbconn1-> dbierror();
		print "Content-type: text/plain\n\n

	$dbierror
";
		exit;
	}
}


for (my $i=0; $i<@$ah; $i++) {
	print "$i -- ";
	foreach my $k (qw(ID DATASTRING DATANUM RECORDDATE_T)) {
		print $$ah[$i]{$k}, " ";
	}
	print "\n";
}


print qq|



( run in 1.681 second using v1.01-cache-2.11-cpan-f56aa216473 )