package NAnorth;
use strict;
use warnings;

use DBI();

require Exporter;
our (@ISA, @EXPORT, @EXPORT_OK, @comeincredentials, $dbh);
@ISA		= qw(Exporter);
@EXPORT_OK		= qw(&comein @comeincredentials $dbh);



sub comein { 
	my $loginfile = '/export/home/scripts/NetAct/logindata/nan_login.txt';
	open (DAT, $loginfile);
	@comeincredentials = split (';',<DAT>); #(0 ip, 1 port, 2 user, 3 sesam, 4 database, 5 table)
	print Dumper(\@comeincredentials); #Still debugging.....
	$dbh = DBI->connect("DBI:mysql:database=$comeincredentials[4];host=$comeincredentials[0]","$comeincredentials[2]", "$comeincredentials[3]",{'RaiseError' => 1});
	print ("No Error? PERFECT, Database connected\n");
			}
1;