package NAnorth;
use DBI();

use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK @values $dbh);
$VERSION		= 1.00;
@ISA			= qw(Exporter);
@EXPORT			= (login);



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