X-Git-Url: https://code.th-h.de/?p=usenet%2FINN.git;a=blobdiff_plain;f=auth%2Fperl_mysql;fp=auth%2Fperl_mysql;h=dc963ec36387803af0017e8a048c3314ff422977;hp=5f70039009de36d9a4d165faf6a6022dae698aca;hb=c1ede6dbc12671a9a696b2e0dddc609c93c70c82;hpb=dccf194c16c87abd156be3cc55826f39e8037840

diff --git a/auth/perl_mysql b/auth/perl_mysql
index 5f70039..dc963ec 100644
--- a/auth/perl_mysql
+++ b/auth/perl_mysql
@@ -56,6 +56,11 @@ sub authenticate() {
  # $attributes{username}  username
  # $attributes{password}  password
 
+ # return if username or password not set
+ if (!defined($attributes{username}) or !defined($attributes{password})) {
+  return (481, 'Authentication failure');
+ }
+
  ### DB init
  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 });