background results from the CPAN

Apache-BabyConnect
#!/usr/bin/perl

use strict;

use DBI::BabyConnect 1,1;


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>
|;


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


test_rollback_sub($bbconn1);


print qq|
DONE!

<div class="footer" align="center">
  <a href="http://YOUPROCESS_HOST/">DBI::BabyConnect</a>
  -
  <a href="http://YOUPROCESS_HOST/intl/en/disclaimer.html">Apache2::BabyConnect</a>
</div>
  
</body>
</html>

|;



sub test_rollback_sub {
my $bbconn = shift;

$bbconn-> saveLags();
$bbconn->raiseerror(0);
$bbconn->printerror(1);
$bbconn->autocommit(0);
$bbconn->autorollback(1);


my $sql = qq{
		INSERT INTO TABLE1 (ID,DATASTRING,DATANUM,PCODE_SREF,BIN_SREF,RECORDDATE_T)
		VALUES
		(1,'data string',1234,'bin code','bin data',SYSDATE())
	};


# if ON_FAILED_DBIEXECUTE_ROLLBACK_AND_EXIT=1 then
# rollback and exit() is handled within DBI::BabyConnect
$bbconn-> do($sql);

# if ON_FAILED_DBIEXECUTE_ROLLBACK_AND_EXIT=0 then nothing
( run in 0.702 second using v1.01-cache-2.11-cpan-f56aa216473 )