- clean empty user records with garbage

scripts/garbage.pl

@@ -150,6 +150,15 @@ do_sql($dbh,"DELETE FROM connections WHERE id='".$c_id."'");
 db_log_verbose($dbh,"Remove dup connection $c_id: $c_port_id $c_auth_id");
 }
 
+##### clean empty user account ################
+my $u_sql = "SELECT * FROM User_list as U WHERE (SELECT COUNT(*) FROM User_auth WHERE User_auth.deleted=0 AND User_auth.user_id = U.id)=0";
+my @u_ref = get_records_sql($dbh,$u_sql);
+foreach my $row (@u_ref) {
+do_sql($dbh,"DELETE FROM User_List WHERE id='".$row->{id}."'");
+db_log_verbose($dbh,"Remove empty user id: $row->{id} login: $row->{login}");
+}
+
+
 ##### unknown mac clean ############
 $users_sql = "SELECT mac FROM User_auth WHERE deleted=0";
 @users_auth = get_records_sql($dbh,$users_sql);