<h2>Edit File - exiqsumm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/sbin/exiqsumm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#! /usr/local/cpanel/3rdparty/perl/542/bin/perl

# Mail Queue Summary
# Christoph Lameter, 21 May 1997
#
# Copyright (c) The Exim Maintainers 2023 - 2025
# SPDX-License-Identifier: GPL-2.0-or-later
# See the file NOTICE for conditions of use and distribution.

# Modified by Philip Hazel, June 1997
# Bug fix: June 1998 by Philip Hazel
#   Message sizes not listed by -bp with K or M
#   suffixes were getting divided by 10.
# Bug fix: October 1998 by Philip Hazel
#   Sorting wasn&#039;t working right with Perl 5.005
#   Fix provided by John Horne
# Bug fix: November 1998 by Philip Hazel
#   Failing to recognize domain literals in recipient addresses
#   Fix provided by Malcolm Ray
# Bug fix: July 2002 by Philip Hazel
#   Not handling time periods of more than 100 days
#   Fix provided by Randy Banks
# Added summary line: September 2002 by Philip Hazel
#   Code provided by Joachim Wieland
# June 2003 by Philip Hazel
#   Initialize $size, $age, $id to avoid warnings when bad
#   data is provided
# Bug fix: July 2003 by Philip Hazel
#   Incorrectly skipping the first lines of messages whose
#   message ID ends in &#039;D&#039;! Before Exim 4.14 this didn&#039;t
#   matter because they never did. Looks like an original
#   typo. Fix provided by Chris Liddiard.
# November 2006 by Jori Hamalainen
#   Added feature to separate frozen and bounced messages from queue
#   Added feature to list queue per source - destination pair
#   Changed regexps to compile once to very minor speed optimization
#   Short circuit for empty lines
#
# Usage: mailq | exiqsumm [-a] [-b] [-c] [-f] [-s]
#   Default sorting is by domain name
#   -a sorts by age of oldest message
#   -b enables bounce message separation
#   -c sorts by count of message
#   -f enables frozen message separation
#   -s enables source destination separation

# Slightly modified sub from eximstats

use warnings;
BEGIN { pop @INC if $INC[-1] eq &#039;.&#039; };
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 = &quot;[[:alnum:]]&quot;;

my $msgid_sec_re = &quot;${b62}{6}&quot;;
my $msgid_pid_new_re = &quot;${b62}{11}&quot;;
my $msgid_pid_old_re = &quot;${b62}{6}&quot;;
my $msgid_frc_new_re = &quot;${b62}{4}&quot;;
my $msgid_frc_old_re = &quot;${b62}{2}&quot;;

my $msgid_new_re = &quot;$msgid_sec_re-$msgid_pid_new_re-$msgid_frc_new_re&quot;;
my $msgid_old_re = &quot;$msgid_sec_re-$msgid_pid_old_re-$msgid_frc_old_re&quot;;
my $msgid_re =     &quot;(?:$msgid_new_re|$msgid_old_re)&quot;;


# Match with content submatches
# - requires variables seconds, pid, fractions

my $msgid_sec_cap_re = &quot;(?&lt;seconds&gt;$msgid_sec_re)&quot;;
my $msgid_pid_cap_re = &quot;(?&lt;pid&gt;(?:$msgid_pid_new_re|$msgid_pid_old_re))&quot;;
my $msgid_frc_cap_re = &quot;(?&lt;fractions&gt;(?:$msgid_frc_new_re|$msgid_frc_old_re))&quot;;

my $msgid_cap_re = &quot;(?:$msgid_sec_cap_re-$msgid_pid_cap_re-$msgid_frc_cap_re)&quot;;

# End msgid.frag

if (@ARGV &amp;&amp; ($ARGV[0] eq &#039;--version&#039; || ($ARGV[0] eq &#039;-v&#039;))) {
    print basename($0) . &quot;: $0\n&quot;,
        &quot;build: 4.99.3\n&quot;,
        &quot;perl(runtime): $]\n&quot;;
        exit 0;
}

sub print_volume_rounded {
my($x) = pop @_;
if ($x &lt; 10000)
  {
  return sprintf(&quot;%6d&quot;, $x);
  }
elsif ($x &lt; 10000000)
  {
  return sprintf(&quot;%4dKB&quot;, ($x + 512)/1024);
  }
else
  {
  return sprintf(&quot;%4dMB&quot;, ($x + 512*1024)/(1024*1024));
  }
}

sub s_conv {
  my($x) = @_;
  my($v,$s) = $x =~ /([\d\.]+)([A-Z]|)/o;
  if ($s eq &quot;K&quot;) { return $v * 1024 };
  if ($s eq &quot;M&quot;) { return $v * 1024 * 1024 };
  return $v;
}

sub older {
  my($x1,$x2) = @_;
  my($v1,$s1) = $x1 =~ /(\d+)(\w)/o;
  my($v2,$s2) = $x2 =~ /(\d+)(\w)/o;
  return $v1 &lt;=&gt; $v2 if ($s1 eq $s2);
  return (($s2 eq &quot;m&quot;) ||
          ($s2 eq &quot;h&quot; &amp;&amp; $s1 eq &quot;d&quot;) ||
          ($s2 eq &quot;d&quot; &amp;&amp; $s1 eq &quot;w&quot;))? 1 : -1;
}

#
# Main Program
#

$sort_by_count = 0;
$sort_by_age = 0;

$size = &quot;0&quot;;
$age = &quot;0d&quot;;
$id = &quot;&quot;;


while (@ARGV &gt; 0 &amp;&amp; substr($ARGV[0], 0, 1) eq &quot;-&quot;)
  {
  if ($ARGV[0] eq &quot;-a&quot;) { $sort_by_age = 1; }
  if ($ARGV[0] eq &quot;-c&quot;) { $sort_by_count = 1; }
  if ($ARGV[0] eq &quot;-f&quot;) { $enable_frozen = 1; }
  if ($ARGV[0] eq &quot;-b&quot;) { $enable_bounces = 1; }
  if ($ARGV[0] eq &quot;-s&quot;) { $enable_source = 1; }
  shift @ARGV;
  }

while (&lt;&gt;)
{
# Skip empty and already delivered lines

if (/^$/o || /^\s*D\s\S+/o) { next; }

# If it&#039;s the first line of a message, pick out the data. Note: it may
# have text after the final &gt; (e.g. frozen) so don&#039;t insist that it ends &gt;.

if (/^	   (?&lt;age&gt;[\d\s]{2,3}\w)
      \s+  (?&lt;size&gt;\S+)
      \s   (?&lt;id&gt;$msgid_re)
      \s\&lt; (?&lt;src&gt;\S*) \&gt;/ox)
  {
  ($age,$size,$id,$src)=($+{age},$+{size},$+{id},$+{src});
  $src =~ s/([^\@]*)\@(.*?)$/$2/o;
  if (/\*\*\*\sfrozen\s\*\*\*/o) { $frozen=1; } else { $frozen=0; }
  if ($src eq &quot;&quot;) { $bounce=1; $src=&quot;&lt;&gt;&quot;; } else { $bounce=0; }
  }

# Else check for a recipient line: to handle source-routed addresses, just
# pick off the first domain.

elsif (/^\s+[^@]*\@([\w\.\-]+|\[(\d+\.){3}\d+\])/o)
  {
  if ($enable_source) {
      $domain = &quot;\L$src &gt; $1&quot;;
  } else {
      $domain = &quot;\L$1&quot;;
  }
  $domain .= &quot; (b)&quot; if ($bounce &amp;&amp; $enable_bounces);
  $domain .= &quot; (f)&quot; if ($frozen &amp;&amp; $enable_frozen);
  $queue{$domain}++;
  $q_oldest{$domain} = $age
    if (!defined $q_oldest{$domain} || &amp;older($age,$q_oldest{$domain}) &gt; 0);
  $q_recent{$domain} = $age
    if (!defined $q_recent{$domain} || &amp;older($q_recent{$domain},$age) &gt; 0);
  $q_size{$domain} = 0 if (!defined $q_size{$domain});
  $q_size{$domain} += &amp;s_conv($size);
  }
}

print &quot;\nCount  Volume  Oldest  Newest  Domain&quot;;
print &quot;\n-----  ------  ------  ------  ------\n\n&quot;;

my ($count, $volume, $max_age, $min_age) = (0, 0, &quot;0m&quot;, undef);

foreach $id (sort
            {
            $sort_by_age? &amp;older($q_oldest{$b}, $q_oldest{$a}) :
            $sort_by_count? ($queue{$b} &lt;=&gt; $queue{$a}) :
            $a cmp $b
            }
            keys %queue)
  {
  printf(&quot;%5d  %.6s  %6s  %6s  %.80s\n&quot;,
    $queue{$id}, &amp;print_volume_rounded($q_size{$id}), $q_oldest{$id},
    $q_recent{$id}, $id);
    $max_age = $q_oldest{$id} if &amp;older($q_oldest{$id}, $max_age) &gt; 0;
    $min_age = $q_recent{$id}
      if (!defined $min_age || &amp;older($min_age, $q_recent{$id}) &gt; 0);
    $volume += $q_size{$id};
    $count += $queue{$id};
  }
  $min_age ||= &quot;0000d&quot;;
printf(&quot;---------------------------------------------------------------\n&quot;);
printf(&quot;%5d  %.6s  %6s  %6s  %.80s\n&quot;,
  $count, &amp;print_volume_rounded($volume), $max_age, $min_age, &quot;TOTAL&quot;);
print &quot;\n&quot;;

# vim:ft=perl:
# End
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>