ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ PHP v8.2.29

Path:root/home/carl3/public_html/shop.oppedahl.com/wp-admin/

Name	Size	Perm	Actions
📁 css	-	0755	🗑️ 🏷️
📁 images	-	0755	🗑️ 🏷️
📁 includes	-	0755	🗑️ 🏷️
📁 js	-	0755	🗑️ 🏷️
📁 maint	-	0755	🗑️ 🏷️
📁 network	-	0755	🗑️ 🏷️
📁 user	-	0755	🗑️ 🏷️
📄 admin-ajax.php	5.03 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 admin-functions.php	0.47 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 admin-header.php	9.07 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 admin-post.php	1.97 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 admin.php	12.63 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 authorize-application.php	10.09 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 contribute.php	5.86 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 custom-background.php	0.48 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 custom-header.php	0.49 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 customize.php	11.21 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit-comments.php	14.14 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit-form-advanced.php	28.79 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit-form-blocks.php	14.73 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit-tag-form.php	10.42 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit-tags.php	21.98 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 edit.php	19.48 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 export-personal-data.php	7.75 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 index.php	7.68 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 install.php	17.91 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 link-parse-opml.php	2.63 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 load-scripts.php	2.02 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 load-styles.php	2.92 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 media-new.php	3.17 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ms-admin.php	0.19 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ms-delete-site.php	4.5 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ms-edit.php	0.21 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ms-users.php	0.21 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 options-media.php	6.38 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 options-permalink.php	21.89 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 options-reading.php	9.97 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 plugin-editor.php	13.75 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 plugin-install.php	6.96 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 press-this.php	2.41 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 profile.php	0.28 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 site-health-info.php	4.05 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 site-health.php	10.18 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 update-core.php	45.12 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 upgrade-functions.php	0.33 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 upgrade.php	6.24 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 upload.php	14.9 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 user-new.php	24.06 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 users.php	23.44 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 widgets.php	1.09 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 yho.txt	0 KB	0644	🗑️ 🏷️ ⬇️ ✏️

Edit: exim_checkaccess

#! /bin/sh

# Copyright (c) The Exim Maintainers 2023
# Copyright (c) University of Cambridge, 1995 - 2007
# See the file NOTICE for conditions of use and distribution.
# SPDX-License-Identifier: GPL-2.0-or-later

# Except when they appear in comments, the following placeholders in this
# source are replaced when it is turned into a runnable script:
#
# CONFIGURE_FILE_USE_NODE
# CONFIGURE_FILE
# BIN_DIRECTORY
# PERL_COMMAND

# This file has been so processed.

# A shell+perl wrapper script to run an automated -bh test to check out
# ACLs for incoming addresses.

# Save the shell arguments because we are going to need the shell variables
# while sorting out the configuration file.

args="$@"

# See if this installation is using the esoteric "USE_NODE" feature of Exim,
# in which it uses the host's name as a suffix for the configuration file name.

if [ "" = "yes" ]; then
  hostsuffix=.`uname -n`
fi

# Now find the configuration file name. This has got complicated because
# CONFIGURE_FILE may now be a list of files. The one that is used is the first
# one that exists. Mimic the code in readconf.c by testing first for the
# suffixed file in each case.

set `awk -F: '{ for (i = 1; i <= NF; i++) print $i }' <<End
/usr/local/apps/exim/etc/exim.conf
End
`
while [ "$config" = "" -a $# -gt 0 ] ; do
  if [ -f "$1$hostsuffix" ] ; then
    config="$1$hostsuffix"
  elif [ -f "$1" ] ; then
    config="$1"
  fi
  shift
done

# Search for an exim_path setting in the configure file; otherwise use the bin
# directory. BEWARE: a tab character is needed in the command below. It has had
# a nasty tendency to get lost in the past. Use a variable to hold a space and
# a tab to keep the tab in one place.

exim_path=`perl -ne 'chop;if (/^\s*exim_path\s*=\s*(.*)/){print "$1\n";last;}' $config`
if test "$exim_path" = ""; then exim_path=/usr/local/apps/exim/bin/exim; fi

#########################################################################

# Now run the perl script, passing in the Exim path and the arguments given
# to the overall script.

/usr/local/apps/perl/bin/perl - $exim_path $args <<'End'

BEGIN { pop @INC if $INC[-1] eq '.' };
use FileHandle;
use File::Basename;
use IPC::Open2;

if ($ARGV[0] eq '--version' || $ARGV[0] eq '-v') {
    print basename($0) . ": $0\n",
          "build: 4.98.2\n",
          "perl(runtime): $]\n";
    exit 0;
}

if (scalar(@ARGV) < 3)
  {
  print "Usage: exim_checkaccess <IP address> <email address> [exim options]\n";
  exit(1);
  }

$exim_path = $ARGV[0];          # Set up by the calling shell script
$host      = $ARGV[1];          # Mandatory original first argument
$recipient = $ARGV[2];          # Mandatory original second argument

$c4 = qr/2 (?:[0-4]\d | 5[0-5]) | 1\d\d | \d{1,2}/x;  # IPv4 component
$a4 = qr/^$c4\.$c4\.$c4\.$c4$/;                       # IPv4 address

$c6 = qr/[0-9a-f]{1,4}/i;                             # IPv6 component

# Split the various formats of IPv6 addresses into several cases. I don't
# think I can graft regex that matches all of them without using alternatives.

# 1. Starts with :: followed by up to 7 components

$a6_0 = qr/^::(?:$c6:){0,6}$c6$/x;

# 2. 8 non-empty components

$a6_1 = qr/^(?:$c6:){7}$c6$/x;

# 3. This is the cunning one. Up to 7 components, one (and only one) of which
# can be empty. We use 0 to cause a failure when we've already matched
# an empty component and may be hitting other. This has to fail, because we
# know we've just failed to match a component. We also do a final check to
# ensure that there has been an empty component.

$a6_2 = qr/^(?: (?: $c6 | (?(1)0 | () ) ) : ){1,7}$c6 $ (?(1)|.)/x;

if ($host !~ /$a4 | $a6_0 | $a6_1 | $a6_2/x)
  {
  print "** Invalid IP address \"$host\"\n";
  print "Usage: exim_checkaccess <IP address> <email address> [exim options]\n";
  exit(1);
  }

# Build any remaining original arguments into a string for passing over
# as Exim options.

$opt = "";
for ($i = 3; $i < scalar(@ARGV); $i++) { $opt .= "$ARGV[$i] "; }

# If the string contains "-f xxxx", extract that as the sender. Otherwise
# the sender is <>.

$sender    = "";
if ($opt =~ /(?:^|\s)-f\s+(\S+|"[^"]*")/)
  {
  $sender = $1;
  $opt = $` . $';
  }

# Run a -bh test in Exim, passing the test data

$pid = open2(*IN, *OUT, "$exim_path -bh $host $opt 2>/dev/null");
print OUT "HELO [$host]\r\n";
print OUT "MAIL FROM:<$sender>\r\n";
print OUT "RCPT TO:<$recipient>\r\n";
print OUT "QUIT\r\n";
close OUT;

# Read the output, ignoring anything but the SMTP response to the RCPT
# command.

$count = 0;
$reply = "";

while (<IN>)
  {
  next if !/^\d\d\d/;
  $reply .= $_;
  next if /^\d\d\d\-/;

if (++$count != 4)
    {
    $reply = "";
    next;
    }

# We have the response we want. Interpret it.

if ($reply =~ /^2\d\d/)
    {
    print "Accepted\n";
    }
  else
    {
    print "Rejected:\n";
    $reply =~ s/\n(.)/\n  $1/g;
    print "  $reply";
    }
  last;
  }

# Reap the child process

waitpid $pid, 0;

End

📁 ＳＫＹＳＨＥＬＬ ＭＡＮＡＧＥＲ PHP v8.2.29

Edit: exim_checkaccess

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ PHP v8.2.29