Fedora Core 6 : perl-Net-DNS-0.60-1.fc6 (2007-609)

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

include('deprecated_nasl_level.inc');
include('compat.inc');

if (description)
{
  script_id(25657);
  script_version("1.15");
  script_set_attribute(attribute:"plugin_modification_date", value:"2021/01/11");

  script_xref(name:"FEDORA", value:"2007-609");

  script_name(english:"Fedora Core 6 : perl-Net-DNS-0.60-1.fc6 (2007-609)");
  script_summary(english:"Checks rpm output for the updated packages.");

  script_set_attribute(
    attribute:"synopsis", 
    value:"The remote Fedora Core host is missing a security update."
  );
  script_set_attribute(
    attribute:"description", 
    value:
"This brings FC-6 up to date with the latest changes to Net::DNS. See
the project page here :

http://search.cpan.org/~olaf/Net-DNS-0.60/

The change for this upstream issue is included :

http://rt.cpan.org/Public/Bug/Display.html?id=23961

Since this fix has security implications (making DNS spoofing more
difficult), pushing updates to all current versions of fedora.

Note - I know of no exploits for the security issue described above.

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."
  );
  # http://rt.cpan.org/Public/Bug/Display.html?id=23961
  script_set_attribute(
    attribute:"see_also",
    value:"https://rt.cpan.org/Public/Bug/Display.html?id=23961"
  );
  # http://search.cpan.org/~olaf/Net-DNS-0.60/
  script_set_attribute(
    attribute:"see_also",
    value:"https://metacpan.org/release/OLAF/Net-DNS-0.60"
  );
  # https://lists.fedoraproject.org/pipermail/package-announce/2007-July/002500.html
  script_set_attribute(
    attribute:"see_also",
    value:"http://www.nessus.org/u?cddf3e89"
  );
  script_set_attribute(
    attribute:"solution", 
    value:
"Update the affected perl-Net-DNS and / or perl-Net-DNS-debuginfo
packages."
  );
  script_set_attribute(attribute:"risk_factor", value:"High");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:fedoraproject:fedora:perl-Net-DNS");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:fedoraproject:fedora:perl-Net-DNS-debuginfo");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:fedoraproject:fedora_core:6");

  script_set_attribute(attribute:"patch_publication_date", value:"2007/07/02");
  script_set_attribute(attribute:"plugin_publication_date", value:"2007/07/03");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_copyright(english:"This script is Copyright (C) 2007-2021 and is owned by Tenable, Inc. or an Affiliate thereof.");
  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" >!< 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:"^6([^0-9]|$)", string:os_ver)) audit(AUDIT_OS_NOT, "Fedora 6.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" >!< cpu && cpu !~ "^i[3-6]86$") audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "Fedora", cpu);

flag = 0;
if (rpm_check(release:"FC6", reference:"perl-Net-DNS-0.60-1.fc6")) flag++;
if (rpm_check(release:"FC6", reference:"perl-Net-DNS-debuginfo-0.60-1.fc6")) flag++;


if (flag)
{
  if (report_verbosity > 0) security_hole(port:0, extra:rpm_report_get());
  else security_hole(0);
  exit(0);
}
else
{
  tested = pkg_tests_get();
  if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
  else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl-Net-DNS / perl-Net-DNS-debuginfo");
}