Debian Security Advisory DSA 3635-1 (libdbd-mysql-perl - security update)

# OpenVAS Vulnerability Test
# $Id: deb_3635.nasl 6608 2017-07-07 12:05:05Z cfischer $
# Auto-generated from advisory DSA 3635-1 using nvtgen 1.0
# Script version: 1.0
#
# Author:
# Greenbone Networks
#
# Copyright:
# Copyright (c) 2016 Greenbone Networks GmbH http://greenbone.net
# Text descriptions are largely excerpted from the referenced
# advisory, and are Copyright (c) the respective author(s)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
#


if(description)
{
    script_id(703635);
    script_version("$Revision: 6608 $");
    script_cve_id("CVE-2014-9906", "CVE-2015-8949");
    script_name("Debian Security Advisory DSA 3635-1 (libdbd-mysql-perl - security update)");
    script_tag(name: "last_modification", value: "$Date: 2017-07-07 14:05:05 +0200 (Fri, 07 Jul 2017) $");
    script_tag(name:"creation_date", value:"2016-08-04 16:27:17 +0530 (Thu, 04 Aug 2016)");
    script_tag(name: "cvss_base", value: "10.0");
    script_tag(name: "cvss_base_vector", value: "AV:N/AC:L/Au:N/C:C/I:C/A:C");
    script_tag(name: "solution_type", value: "VendorFix");
    script_tag(name: "qod_type", value: "package");

    script_xref(name: "URL", value: "http://www.debian.org/security/2016/dsa-3635.html");


    script_category(ACT_GATHER_INFO);

    script_copyright("Copyright (c) 2016 Greenbone Networks GmbH http://greenbone.net");
    script_family("Debian Local Security Checks");
    script_dependencies("gather-package-list.nasl");
    script_mandatory_keys("ssh/login/debian_linux", "ssh/login/packages");
    script_tag(name: "affected",  value: "libdbd-mysql-perl on Debian Linux");
    script_tag(name: "insight",   value: "DBD::mysql is the Perl5 Database
Interface driver for the MySQL database. In other words: DBD::mysql is an
interface between the Perl programming language and the MySQL programming API
that comes with the MySQL relational database management system. Most functions
provided by this programming API are supported. Some rarely used functions are
missing, mainly because noone ever requested them. However supported
features include: compression of data between server and client; timeouts;
SSL; prepared statement support; server administration such as creating
and dropping databases and restarting the server; auto-reconnection;
utf8; bind type guessing; bind comment placeholders; automated insert ids;
transactions; multiple result sets and multithreading.");
    script_tag(name: "solution",  value: "For the stable distribution (jessie),
these problems have been fixed in version 4.028-2+deb8u1.

We recommend that you upgrade your libdbd-mysql-perl packages.");
    script_tag(name: "summary",   value: "Two use-after-free vulnerabilities were
discovered in DBD::mysql, a Perl DBI driver for the MySQL database server. A remote
attacker can take advantage of these flaws to cause a denial-of-service against an
application using DBD::mysql (application crash), or potentially to
execute arbitrary code with the privileges of the user running the
application.");
    script_tag(name: "vuldetect", value: "This check tests the installed software
version using the apt package manager.");
    exit(0);
}

include("revisions-lib.inc");
include("pkg-lib-deb.inc");

res = "";
report = "";
if ((res = isdpkgvuln(pkg:"libdbd-mysql-perl", ver:"4.028-2+deb8u1", rls_regex:"DEB8.[0-9]+")) != NULL) {
    report += res;
}

if (report != "") {
    security_message(data:report);
} else if (__pkg_match) {
    exit(99); # Not vulnerable.
}