List all Available DBI Drivers and Data Sources

				
=**************************************
= Name: List all Available DBI Drivers and Data Sources
= Description:This is just a simple script to display all the available DBI drivers you have available along with all the data sources for each. Take a look at the Screen Shot to see what the output looks like. I tested this script out with Active Perl 5.8.0.606 on a Win2K Server.
= By: Randy McCleary
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=453&lngWId=6=for details.=**************************************

#!/usr/bin/perl -w
#############################################
## Simple script that prints out a list of all
## available DBI drivers, and datasource for
## each driver.
#############################################
use DBI;
use CGI qw(:standard);
	
############################################# 
## Get the DBI installed available drivers
#############################################
my @drivers = DBI->available_drivers();
 
die "No drivers found!\n" unless @drivers; 
print header; 
	
#############################################
## Loop through the available drivers and list
## the data sources for each one
#############################################
foreach my $driver ( @drivers ) {
 print "<b>Driver:</b> <font color=\"red\">$driver</font><br>\n";
 my @dataSources = DBI->data_sources( $driver );
 
 ###########################################
 ## Loop through the Data Sources
 ###########################################
 foreach my $dataSource ( @dataSources ) {
print " ";
print "<b>Data Source is</b>";
print "<font color=\"blue\">$dataSource</font><br>\n";
 }
 print "\n";
}
 
exit;