Fedora 8 : perl-Tk-804.028-3.fc8 (2008-1323)

2008-02-11T00:00:00
ID FEDORA_2008-1323.NASL
Type nessus
Reporter This script is Copyright (C) 2008-2019 Tenable Network Security, Inc.
Modified 2020-08-02T00:00:00

Description

  • Tue Feb 5 2008 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>

    • 804.028-3

    • fix #431529 gif overflow in tk (see also #431518)

    • Fri Jan 4 2008 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>

    • 804.028-2

    • add relevant parts of debian patch

    • add patch for #235666

    • Wed Jan 2 2008 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>

    • 804.028-1

    • version upgrade

    • fix #210718 SIGSEGV on exit from texdoctk

    • fix #234404 Cannot manage big listboxes

    • fix #235666 Segfault occurs when using Perl-Tk on FC6

    • Wed Dec 19 2007 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>

    • 804.027-13

    • fix BR

Note that Tenable Network Security has extracted the preceding description block directly from the Fedora security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.

                                        
                                            #%NASL_MIN_LEVEL 80502
#
# (C) Tenable Network Security, Inc.
#
# The descriptive text and package checks in this plugin were  
# extracted from Fedora Security Advisory 2008-1323.
#

include("compat.inc");

if (description)
{
  script_id(30238);
  script_version ("1.13");
  script_cvs_date("Date: 2019/08/02 13:32:27");

  script_cve_id("CVE-2008-0553");
  script_xref(name:"FEDORA", value:"2008-1323");

  script_name(english:"Fedora 8 : perl-Tk-804.028-3.fc8 (2008-1323)");
  script_summary(english:"Checks rpm output for the updated package.");

  script_set_attribute(
    attribute:"synopsis", 
    value:"The remote Fedora host is missing a security update."
  );
  script_set_attribute(
    attribute:"description", 
    value:
"  - Tue Feb 5 2008 Andreas Bierfert
    &lt;andreas.bierfert[AT]lowlatency.de&gt;

    - 804.028-3

    - fix #431529 gif overflow in tk (see also #431518)

    - Fri Jan 4 2008 Andreas Bierfert
      &lt;andreas.bierfert[AT]lowlatency.de&gt;

    - 804.028-2

    - add relevant parts of debian patch

    - add patch for #235666

    - Wed Jan 2 2008 Andreas Bierfert
      &lt;andreas.bierfert[AT]lowlatency.de&gt;

    - 804.028-1

    - version upgrade

    - fix #210718 SIGSEGV on exit from texdoctk

    - fix #234404 Cannot manage big listboxes

    - fix #235666 Segfault occurs when using Perl-Tk on FC6

    - Wed Dec 19 2007 Andreas Bierfert
      &lt;andreas.bierfert[AT]lowlatency.de&gt;

    - 804.027-13

    - fix BR

Note that Tenable Network Security has extracted the preceding
description block directly from the Fedora security advisory. Tenable
has attempted to automatically clean and format it as much as possible
without introducing additional issues."
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://bugzilla.redhat.com/show_bug.cgi?id=431518"
  );
  # https://lists.fedoraproject.org/pipermail/package-announce/2008-February/007496.html
  script_set_attribute(
    attribute:"see_also",
    value:"http://www.nessus.org/u?1f68a052"
  );
  script_set_attribute(
    attribute:"solution", 
    value:"Update the affected perl-Tk package."
  );
  script_set_cvss_base_vector("CVSS2#AV:N/AC:M/Au:N/C:P/I:P/A:P");
  script_cwe_id(119);

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:fedoraproject:fedora:perl-Tk");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:fedoraproject:fedora:8");

  script_set_attribute(attribute:"patch_publication_date", value:"2008/02/05");
  script_set_attribute(attribute:"plugin_publication_date", value:"2008/02/11");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_copyright(english:"This script is Copyright (C) 2008-2019 Tenable Network Security, Inc.");
  script_family(english:"Fedora Local Security Checks");

  script_dependencies("ssh_get_info.nasl");
  script_require_keys("Host/local_checks_enabled", "Host/RedHat/release", "Host/RedHat/rpm-list");

  exit(0);
}


include("audit.inc");
include("global_settings.inc");
include("rpm.inc");

if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
release = get_kb_item("Host/RedHat/release");
if (isnull(release) || "Fedora" &gt;!&lt; release) audit(AUDIT_OS_NOT, "Fedora");
os_ver = eregmatch(pattern: "Fedora.*release ([0-9]+)", string:release);
if (isnull(os_ver)) audit(AUDIT_UNKNOWN_APP_VER, "Fedora");
os_ver = os_ver[1];
if (! ereg(pattern:"^8([^0-9]|$)", string:os_ver)) audit(AUDIT_OS_NOT, "Fedora 8.x", "Fedora " + os_ver);

if (!get_kb_item("Host/RedHat/rpm-list")) audit(AUDIT_PACKAGE_LIST_MISSING);

cpu = get_kb_item("Host/cpu");
if (isnull(cpu)) audit(AUDIT_UNKNOWN_ARCH);
if ("x86_64" &gt;!&lt; cpu && cpu !~ "^i[3-6]86$") audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "Fedora", cpu);

flag = 0;
if (rpm_check(release:"FC8", reference:"perl-Tk-804.028-3.fc8")) flag++;


if (flag)
{
  if (report_verbosity &gt; 0) security_warning(port:0, extra:rpm_report_get());
  else security_warning(0);
  exit(0);
}
else
{
  tested = pkg_tests_get();
  if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
  else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl-Tk");
}