EulerOS 2.0 SP12 : perl-HTTP-Tiny (EulerOS-SA-2026-3369)

#%NASL_MIN_LEVEL 80900
##
# (C) Tenable, Inc.
##

include('compat.inc');

if (description)
{
  script_id(343674);
  script_version("1.1");
  script_set_attribute(attribute:"plugin_modification_date", value:"2026/09/08");

  script_cve_id("CVE-2026-7010", "CVE-2026-7017");

  script_name(english:"EulerOS 2.0 SP12 : perl-HTTP-Tiny (EulerOS-SA-2026-3369)");

  script_set_attribute(attribute:"synopsis", value:
"The remote EulerOS host is missing multiple security updates.");
  script_set_attribute(attribute:"description", value:
"According to the versions of the perl-HTTP-Tiny packages installed, the EulerOS installation on the remote host is
affected by the following vulnerabilities :

    HTTP::Tiny versions before 0.095 for Perl forward credential headers to cross-origin redirect targets.

    When the server returns a 3xx redirect, `_maybe_redirect` follows the `Location:` header and
    `_prepare_headers_and_cb` re-merges the caller's `headers` argument into the new request, without checking
    whether the redirect target shares an origin with the original URL. Caller-supplied `Authorization`,
    `Cookie` and `Proxy-Authorization` headers are therefore re-sent to whatever host the redirect names,
    across scheme, host or port boundaries, and including `https` to `http` downgrades that expose them in
    plaintext on the wire.

    The HTTP::Tiny POD note that 'Authorization headers will not be included in a redirected request' applied
    only to the URL-userinfo Basic-auth path, not to headers passed explicitly by the caller.(CVE-2026-7017)

    HTTP::Tiny versions before 0.093 for Perl do not validate CRLF in HTTP request lines or control field
    header values.

    The unvalidated inputs are the method and URI in the request line, the URL host that becomes the `Host:`
    header, and HTTP/1.1 control data field values.

    An attacker who controls one of these inputs, for example a user supplied URL passed to a webhook or URL
    fetch endpoint, can inject additional headers and smuggle requests to the upstream server.(CVE-2026-7010)

Tenable has extracted the preceding description block directly from the EulerOS perl-HTTP-Tiny security advisory.

Note that Nessus has not tested for these issues but has instead relied only on the application's self-reported version
number.");
  # https://developer.huaweicloud.com/ict/en/site-euleros/euleros/security-advisories/EulerOS-SA-2026-3369
  script_set_attribute(attribute:"see_also", value:"http://www.nessus.org/u?2c49e424");
  script_set_attribute(attribute:"solution", value:
"Update the affected perl-HTTP-Tiny packages.");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:C/I:P/A:N");
  script_set_cvss_temporal_vector("CVSS2#E:U/RL:OF/RC:C");
  script_set_cvss3_base_vector("CVSS:3.0/AV:N/AC:L/PR:N/UI:R/S:U/C:H/I:L/A:N");
  script_set_cvss3_temporal_vector("CVSS:3.0/E:U/RL:O/RC:C");
  script_set_attribute(attribute:"cvss_score_source", value:"CVE-2026-7017");

  script_set_attribute(attribute:"exploitability_ease", value:"No known exploits are available");
  script_set_attribute(attribute:"exploit_available", value:"false");

  script_set_attribute(attribute:"vuln_publication_date", value:"2026/05/11");
  script_set_attribute(attribute:"patch_publication_date", value:"2026/09/08");
  script_set_attribute(attribute:"plugin_publication_date", value:"2026/09/08");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-HTTP-Tiny");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-HTTP-Tiny-help");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:huawei:euleros:2.0");
  script_set_attribute(attribute:"generated_plugin", value:"current");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_family(english:"Huawei Local Security Checks");

  script_copyright(english:"This script is Copyright (C) 2026 and is owned by Tenable, Inc. or an Affiliate thereof.");

  script_dependencies("ssh_get_info.nasl");
  script_require_keys("Host/local_checks_enabled", "Host/cpu", "Host/EulerOS/release", "Host/EulerOS/rpm-list", "Host/EulerOS/sp");
  script_exclude_keys("Host/EulerOS/uvp_version");

  exit(0);
}

include("rpm.inc");

if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);

var _release = get_kb_item("Host/EulerOS/release");
if (isnull(_release) || _release !~ "^EulerOS") audit(AUDIT_OS_NOT, "EulerOS");
var uvp = get_kb_item("Host/EulerOS/uvp_version");
if (_release !~ "^EulerOS release 2\.0(\D|$)") audit(AUDIT_OS_NOT, "EulerOS 2.0 SP12");

var sp = get_kb_item("Host/EulerOS/sp");
if (isnull(sp) || sp !~ "^(12)$") audit(AUDIT_OS_NOT, "EulerOS 2.0 SP12");

if (!empty_or_null(uvp)) audit(AUDIT_OS_NOT, "EulerOS 2.0 SP12", "EulerOS UVP " + uvp);

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

var cpu = get_kb_item("Host/cpu");
if (isnull(cpu)) audit(AUDIT_UNKNOWN_ARCH);
if ("x86_64" >!< cpu && cpu !~ "^i[3-6]86$" && "aarch64" >!< cpu && "x86" >!< cpu) audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "EulerOS", cpu);

var flag = 0;

var pkgs = [
  "perl-HTTP-Tiny-0.080-1.h3.eulerosv2r12",
  "perl-HTTP-Tiny-help-0.080-1.h3.eulerosv2r12"
];

foreach (var pkg in pkgs)
  if (rpm_check(release:"EulerOS-2.0", sp:"12", reference:pkg)) flag++;

if (flag)
{
  security_report_v4(
    port       : 0,
    severity   : SECURITY_HOLE,
    extra      : rpm_report_get()
  );
  exit(0);
}
else
{
  var tested = pkg_tests_get();
  if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
  else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl-HTTP-Tiny");
}