use base 'CGI::Application';
use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);

sub cgiapp_init {
    my $self = shift;
	
   # connect to dssubscriber DB
   $self->config_file('/usr/home/[somepath]/conf/subscriber.conf'); # config_file is a C::A::P::C::S method

   my $data_source = sprintf 'DBI:mysql:database=%s;host=%s',
        $self->config_param('mysql.database'),
        $self->config_param('mysql.host');

        $self->dbh_config('subscriber', 
                [$data_source,
                $self->config_param('mysql.username'),
                $self->config_param('mysql.password'),
                { RaiseError => 1 }
                ]);
}

##</code><code>##

sub get_setup {
	my $self = shift;
	my $subscriber_id = shift;	

	my $stmt = 'SELECT * FROM admin_setup WHERE subscriber_id = ?';
	my %setup = % { $self->dbh('subscribers')->selectrow_hashref($stmt, undef, $subscriber_id) };
	
	return \%setup;
}

##</code><code>##

'__DBH_CONFIG' => {
                 'subscriber' => [
                                   'DBI:mysql:database=dssubscribers;host=qs4821.pair.com',
                                   '1045567_6_w',
                                   'jkgda9leUe89',
                                   {
                                     'RaiseError' => 1
                                   }
                                 ]
               },
'__DBH' => {
          'subscriber' => bless( {}, 'DBI::db' )
        }

##</code><code>##

unless ($self->{__DBH_CONFIG}{$name}){
        __auto_config($self, $name);
        croak "must call dbh_config() before calling dbh()." unless $self->{__DBH_CONFIG}{$name};
    }