thh/INN-config
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Activity

Add check for empty attributes to perl_mysql

Browse source 
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2014-01-19 18:19:47 +01:00
parent dccf194c16
commit c1ede6dbc1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
auth/perl_mysql
View file

@ -56,6 +56,11 @@ sub authenticate() {
# $attributes{username} username # $attributes{username} username
# $attributes{password} password # $attributes{password} password
# return if username or password not set
if (!defined($attributes{username}) or !defined($attributes{password})) {
return (481, 'Authentication failure');
}
### DB init ### DB init
my $dbs = sprintf('DBI:%s:database=%s;host=%s',$conf{'dbdriver'},$conf{'database'},$conf{'dbhost'}); my $dbs = sprintf('DBI:%s:database=%s;host=%s',$conf{'dbdriver'},$conf{'database'},$conf{'dbhost'});
my $dbhandle = DBI->connect($dbs, $conf{'dbuser'}, $conf{'dbpw'}, { PrintError => 1 }); my $dbhandle = DBI->connect($dbs, $conf{'dbuser'}, $conf{'dbpw'}, { PrintError => 1 });