Select Code to Download

#!/usr/bin/perl -w

...
                                        RaiseError => 1 } );
my $sth = $dbh->prepare("Admin who_is_down");
$sth->execute;

DBI connect('server=MY_REPSERVER;loginTimeout=20;timeout=60;encryptPas
+sword=1','repserv_user',...) failed: Server message number=14021 seve
+rity=12 state=0 line=0 server=MY_REPSERVER text=Invalid login attempt
+ed by user 'repserv_user' OpenClient message: LAYER = (4) ORIGIN = (1
+) SEVERITY = (4) NUMBER = (44)
Server MY_REPSERVER, database
Message String: ct_connect(): protocol specific layer: external error:
+ The attempt to connect to the server failed.