3000
ˆ
ƒ‚_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ ¿Å
E
Index of /FSS-BCZ/root/sys/bus/acpi/devices/LNXCPU:03/physical_node/driver/cpu3/node0/memory46
Index of /FSS-BCZ/root/sys/bus/acpi/devices/LNXCPU:03/physical_node/driver/cpu3/node0/memory46
" ˆl–Ðz¾”TÜZÔâ‚À¿p.©‹FÿÃ
ƒqÖƒÀÆ U #!/usr/local/cpanel/3rdparty/perl/542/bin/perl
# Utility for searching and displaying queue information.
# Written by Matt Hubbard 15 August 2002
#
# Copyright (c) The Exim Maintainers 2021 - 2025
# SPDX-License-Identifier: GPL-2.0-or-later
# See the file NOTICE for conditions of use and distribution.
# Except when they appear in comments, the following placeholders in this
# source are replaced when it is turned into a runnable script:
#
# BIN_DIRECTORY
# PERL_COMMAND
# MSGID_RE
# This file has been so processed.
# Routine for extracting the UTC timestamp from message ID
# lifted from eximstat utility
# Version 1.4
use strict;
BEGIN { pop @INC if $INC[-1] eq '.' };
use Getopt::Std;
use File::Basename;
# Insert MSGID_RE
# Start msgid.frag
# Copyright (c) The Exim Maintainers 2025
# SPDX-License-Identifier: GPL-2.0-or-later
#
# Regex patterns for exim message-id
# Simple matching
my $b62 = "[[:alnum:]]";
my $msgid_sec_re = "${b62}{6}";
my $msgid_pid_new_re = "${b62}{11}";
my $msgid_pid_old_re = "${b62}{6}";
my $msgid_frc_new_re = "${b62}{4}";
my $msgid_frc_old_re = "${b62}{2}";
my $msgid_new_re = "$msgid_sec_re-$msgid_pid_new_re-$msgid_frc_new_re";
my $msgid_old_re = "$msgid_sec_re-$msgid_pid_old_re-$msgid_frc_old_re";
my $msgid_re = "(?:$msgid_new_re|$msgid_old_re)";
# Match with content submatches
# - requires variable