#! /usr/bin/perl

# dump_members - dump Historical League's membership list

use DBI;
use strict;

my ($dsn) = "DBI:mysql:samp_db:localhost"; # data source name
my ($user_name) = "paul";  # user name
my ($password) = "secret"; # password
my ($dbh, $sth);           # database and statement handles
my (@ary);                 # array for rows returned by query

# connect to database
$dbh = DBI->connect ($dsn, $user_name, $password, { RaiseError => 1 });

# issue query
$sth = $dbh->prepare ("SELECT last_name, first_name, suffix, email,"
	. "street, city, state, zip, phone FROM member ORDER BY last_name");
$sth->execute ();

# read results of query, then clean up
while (@ary = $sth->fetchrow_array ())
{
	print join ("\t", @ary), "\n";
}
$sth->finish ();

$dbh->disconnect ();
exit (0);