#!/usr/local/bin/perl
#
# Programmer: Chris Tantalo
# 
# This program will call eleadsht.sqt and email the eleadsht.lis file 
# based on the data in the dmg.eleadsht_parameters table
#

use Mail::Sender;
use DBI;

# check to see if test machine(cad2) or production(sam)
my $node = `hostname`;
chomp $node;

# establish a connection to the database
# change first paramater to the database that you want to connect to
read_config($node);