Fedora Update for perltidy FEDORA-2017-1f11501a9f

2017-06-13T00:00:00
ID OPENVAS:1361412562310872749
Type openvas
Reporter Copyright (C) 2017 Greenbone Networks GmbH
Modified 2017-07-10T00:00:00

Description

Check the version of perltidy

                                        
                                            ###############################################################################
# OpenVAS Vulnerability Test
#
# Fedora Update for perltidy FEDORA-2017-1f11501a9f
#
# Authors:
# System Generated Check
#
# Copyright:
# Copyright (C) 2017 Greenbone Networks GmbH, http://www.greenbone.net
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# (or any later version), as published by the Free Software Foundation.
#
# 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_oid("1.3.6.1.4.1.25623.1.0.872749");
  script_version("$Revision: 6634 $");
  script_tag(name:"last_modification", value:"$Date: 2017-07-10 09:32:24 +0200 (Mon, 10 Jul 2017) $");
  script_tag(name:"creation_date", value:"2017-06-13 10:17:42 +0200 (Tue, 13 Jun 2017)");
  script_cve_id("CVE-2016-10374");
  script_tag(name:"cvss_base", value:"2.1");
  script_tag(name:"cvss_base_vector", value:"AV:L/AC:L/Au:N/C:N/I:P/A:N");
  script_tag(name:"qod_type", value:"package");
  script_name("Fedora Update for perltidy FEDORA-2017-1f11501a9f");
  script_tag(name: "summary", value: "Check the version of perltidy");
  script_tag(name: "vuldetect", value: "Get the installed version with the help 
of detect NVT and check if the version is vulnerable or not.");
  script_tag(name: "insight", value: "Perltidy is a Perl script that indents and 
re-formats Perl scripts to make them easier to read. If you write Perl scripts, 
or spend much time reading them, you will probably find it useful. The formatting
can be controlled with command line parameters. The default parameter settings 
approximately follow the suggestions in the Perl Style Guide. Perltidy can also 
output HTML of both POD and source code. Besides re-formatting scripts, 
Perltidy can be a great help in tracking down errors with missing or extra 
braces, parentheses, and square brackets because it is very good at localizing 
errors.");
  script_tag(name: "affected", value: "perltidy on Fedora 24");
  script_tag(name: "solution", value: "Please Install the Updated Packages.");

  script_xref(name: "FEDORA", value: "2017-1f11501a9f");
  script_xref(name: "URL" , value: "https://lists.fedoraproject.org/archives/list/package-announce%40lists.fedoraproject.org/message/FBWFOYTTBVUHIYHCSURIURWS2C43MTH2");
  script_tag(name:"solution_type", value:"VendorFix");
  script_category(ACT_GATHER_INFO);
  script_copyright("Copyright (C) 2017 Greenbone Networks GmbH");
  script_family("Fedora Local Security Checks");
  script_dependencies("gather-package-list.nasl");
  script_mandatory_keys("ssh/login/fedora", "ssh/login/rpms");
  exit(0);
}

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

release = get_kb_item("ssh/login/release");

res = "";
if(release == NULL){
  exit(0);
}

if(release == "FC24")
{

  if ((res = isrpmvuln(pkg:"perltidy", rpm:"perltidy~20170521~1.fc24", rls:"FC24")) != NULL)
  {
    security_message(data:res);
    exit(0);
  }

  if (__pkg_match) exit(99); # Not vulnerable.
  exit(0);
}