view release on metacpan or  search on metacpan

OWA.pm  view on Meta::CPAN

package Apache::OWA;

use strict;
use Apache::DBI;
use DBI;
use Apache::Constants qw(OK NOT_FOUND SERVER_ERROR AUTH_REQUIRED);
use Apache::Request ();
use Data::Dumper;

use vars qw($VERSION %owa_mapping %owa_version);

my $DEBUG = 0;
$VERSION = '0.7';

my (@dbinfo, $sth, $sql, $r, $dbh, @pass_vars);

# i like to buffer and then flush... YMMV.
#local $| = 1;