#!./perl
#
# dbcount -- Emit a count of the table sizes in a given Oracle database
#
#	Written by Clint Goss <clint@goss.com>, November 1998
#

BEGIN {
	# Access Perl modules

	#push (@INC, ...your lib directory here...);

	# Point to our preferred installation of Oracle

	#$ENV{'ORACLE_HOME'} = ...your Oracle Home here...);
}

# Perl Modules

use OraConnection;	# Connection to Oracle, incl DBI and DBD::Oracle
use Getopt::Std;	# Command-line option processing
use strict;		# Restrict unsafe variables, refs, barewords

# Process command-line arguments and options

sub usage {
	print <<END_USAGE
usage: $0 [options]

 Required:
  -d DATABASE  TNS name of the database
  -u USERNAME  username for login

 Optional:
  -p PASSWORD  password for login - defaults to username
  -v           verbose (ALL table and column attributes)
  -b PATTERN   limit tables to ones beginning with the PATTERN

END_USAGE
}

# Command line processing

use vars qw ($opt_b $opt_d $opt_p $opt_u $opt_v);
if (! getopts ('b:d:p:u:v')) { &usage (); exit; }

my ($database) = $opt_d;
my ($username) = $opt_u;
my ($password) = $opt_p ? $opt_p : $username;
my ($pattern) = $opt_b;
my ($verbose) = $opt_v;

if (! $database) { &usage(); exit; }
if (! $username) { &usage(); exit; }

# Print banner

print "*** $0: Count of records in database $database/$username\n";
print "Starting: ", `date`;

# Set up the connection to Oracle

my ($dbc) = new OraConnection;
$dbc->connect ($database, $username, $password);

# Fetch the list of Table / View names

my ($tableOrViewNames) = $dbc->tableOrViewNames ();

printf "%30s %5s %7s\n", "Table", "Type", "Record Count";
printf "%30s %5s %7s\n", "-----", "----", "------------";

my ($tableOrViewName);
foreach $tableOrViewName (@$tableOrViewNames) {

	if ($pattern) {
		if ($tableOrViewName !~ /$pattern/) { next; }
	}

	printf "%30s %5s %7d\n", $tableOrViewName,
			$dbc->tabtype ($tableOrViewName),
			$dbc->rowCount ($tableOrViewName);
}

print "\nDone: ", `date`;

exit;