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

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

Path:root/home4/cvysxmmy/public_html/barriecorewellness.ca/

Name	Size	Perm	Actions
📁 .well-known	-	0755	🗑️ 🏷️
📁 blogs	-	0755	🗑️ 🏷️
📁 css	-	0755	🗑️ 🏷️
📁 img	-	0755	🗑️ 🏷️
📁 mt_images	-	0755	🗑️ 🏷️
📁 test	-	0755	🗑️ 🏷️
📁 tmp	-	0755	🗑️ 🏷️
📁 wp-admin	-	0755	🗑️ 🏷️
📁 wp-content	-	0755	🗑️ 🏷️
📁 wp-includes	-	0755	🗑️ 🏷️
📄 .htaccess	2 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 .htaccess.phpupgrader.21100a0f	0.79 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 .htaccess.phpupgrader.initial	0.79 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 LEGGIMI.txt	0.39 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 backup-barriecore_dreamstoreality_ca-2014_03_24-full-mf6zx4edh7.zip	46075.72 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 error_log	237691.02 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 favicon.ico	17.13 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 importbuddy.php	2412.95 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 index (1).php	12.15 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 index.php	23 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 licencia.txt	17.51 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 licens-sv_SE.txt	13.95 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 licens.html	22.61 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 license.txt	19.44 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 licenza.html	24.3 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 liesmich.html	8.53 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 lisenssi.html	21.29 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 readme-ja.html	3.01 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 readme.html	7.25 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 robots.txt	0.1 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 seiso.php	53.35 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ss.php	12.48 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-activate.php	7.18 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-blog-header.php	0.5 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 wp-cli.yml	0.03 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-comments-post.php	2.27 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-config-sample.php	3.26 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-config.php	3.59 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-cron.php	5.49 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-links-opml.php	2.43 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-load.php	4 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 wp-login.php	50.23 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-mail.php	8.52 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-settings.php	30.33 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-signup.php	33.71 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-trackback.php	5.09 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 xjq.txt	0 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 xmlrpc.php	3.13 KB	0644	🗑️ 🏷️ ⬇️ ✏️

Edit: dm_date

#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell
# Copyright (c) 2009-2013 Sullivan Beck.  All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

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

require 5.010000;
use Date::Manip::Date;
use IO::File;
use strict;
use warnings;

###############################################################################
# HELP
###############################################################################

our($usage);
my $COM = $0;
$COM =~ s/^.*\///;

$usage=
  "usage: $COM OPTIONS
      -h/--help        : Print help.

Options to tell which date to print (only one of
      the following should be entered... if none are,
      'now' is printed).

-d/--date=STRING : Print information about that date.
      -f/--file=FILE   : Print out each date (1/line) in FILE
      -r/--reference=FILE
                       : Print out the last modification
                         time of FILE

Other options

-R/--rfc-2822    : Print the date in RFC 2822 format
                         (any +FORMAT string is ignored)
                         Mon, 07 Aug 2006 12:34:56 -0600
      -u/--utc/--universal:
                         Converts date(s) to UT time.
";

=pod

=head1 NAME

dm_date - print out the system date and time

=head1 SYNOPSIS

This performs the same operation as the unix 'date' command, but using
the Date::Manip module.

dm_date [OPTION]... [+FORMAT]

=head1 DESCRIPTION

This displays information about the current system time, or some
other time. Options are:

=over 4

=item -h, --help

Print online help.

=item -d STRING, --date=STRING

Display time described by STRING. STRING can be any string which can
be parsed by Date::Manip.  Please refer to the Date::Manip::Date
documentation for details.

=item -f DATEFILE, --file=DATEFILE

This reads each line in DATEFILE, and extracts a date from it and
prints out the information.

Blank lines and lines starting with a pound (#) are ignored. Lines
not containing a valid date are also ignored.

=item -r FILE, --reference=FILE

Displays the last modification time of FILE.

=item -R, --rfc-2822

Displayc the date and time in RFC 2822 format.

Example: Mon, 07 Aug 2006 12:34:56 -0600

=item -u, --utc, --universal

Converts the date to UT (GMT) and prints out the information.

=back

Only one of -d, -f, or -r should be included. If more than
one is included, the first one from the list (-d, -f, -r)
is used and any other is ignored.

The format string starts with a plus (+) and contains any
of the format directives described in Date::Manip::Date.

=head1 KNOWN BUGS

None known.

=head1 BUGS AND QUESTIONS

Please refer to the Date::Manip::Problems documentation for
information on submitting bug reports or questions to the author.

=head1 SEE ALSO

Date::Manip::Date

=head1 LICENSE

This script is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

Sullivan Beck (sbeck@cpan.org)

=cut

###############################################################################
# PARSE ARGUMENTS
###############################################################################

our($date,$file,$ref,$rfc,$ut,$format);

while ($_ = shift) {

(print $usage),   exit  if ($_ eq "-h"   ||  $_ eq "--help");

$date = shift,    next  if ($_ eq "-d"   ||  $_ eq "--date");
   $date = $1,       next  if ($_ =~ /^\-\-date=(.*)/);

$file = shift,    next  if ($_ eq "-f"   ||  $_ eq "--file");
   $file = $1,       next  if ($_ =~ /^\-\-file=(.*)/);

$ref = shift,     next  if ($_ eq "-r"   ||  $_ eq "--reference");
   $ref = $1,        next  if ($_ =~ /^\-\-reference=(.*)/);

$rfc = 1,         next  if ($_ eq "-R"   ||  $_ eq "--rfc-2822");
   $ut = 1,          next  if ($_ eq "-u"   ||  $_ eq "--utc"  ||  $_ eq "--universal");

$format = $_,     last  if ($_ =~ s/^\+//);
   die $usage;
}

if ($rfc) {
   $format ='%a, %d %b %Y %H:%M:%S %z';
}

if (@ARGV  ||  ! $format) {
   die $usage;
}

############################################################################
# MAIN PROGRAM
############################################################################

my $d = new Date::Manip::Date;

if      ($date) {
   my $err = $d->parse($date);
   exit 1  if ($err);
   $d->convert("GMT")  if ($ut);
   print $d->printf($format),"\n";

} elsif ($file) {
   my $in = new IO::File;
   $in->open($file)  ||  die "ERROR: unable to open date file: $file\n\n$usage";
   my @in = <$in>;
   $in->close();
   chomp(@in);

foreach my $date (@in) {
      $date =~ s/\#.*//;
      $date =~ s/\s*$//;
      next  if (! $date);

my $err = $d->parse($date);
      next  if ($err);
      $d->convert("GMT")  if ($ut);
      print $d->printf($format),"\n";
   }

} elsif ($ref) {
   if (-e $ref) {
      my $date = ( stat($ref) )[9];
      my $err = $d->parse("epoch $date");
      exit  if ($err);
      $d->convert("GMT")  if ($ut);
      print $d->printf($format),"\n";
   }

} else {
   my $err = $d->parse("now");
   exit 1  if ($err);
   $d->convert("GMT")  if ($ut);
   print $d->printf($format),"\n";
}

# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End:

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

Edit: dm_date

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