OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl
/
5.26.1
/
CPAN
Server IP: 10.0.0.4
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📁
API
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
Author.pm
6.68 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Bundle.pm
9.6 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
CacheMgr.pm
7.48 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Complete.pm
5.88 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Debug.pm
2.05 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
DeferredCode.pm
189 bytes
10/05/2022 10:49:22 AM
rw-r--r--
📄
Distribution.pm
161.9 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Distroprefs.pm
11.71 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Distrostatus.pm
972 bytes
10/05/2022 10:49:22 AM
rw-r--r--
📁
Exception
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📁
FTP
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
FTP.pm
41.63 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
FirstTime.pm
70.16 KB
10/05/2022 10:49:22 AM
rw-r--r--
📁
HTTP
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
HandleConfig.pm
22.75 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Index.pm
21.7 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
InfoObj.pm
6.75 KB
10/05/2022 10:49:22 AM
rw-r--r--
📁
Kwalify
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
Kwalify.pm
3.35 KB
10/05/2022 10:49:22 AM
rw-r--r--
📁
LWP
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📁
Meta
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
Meta.pm
29.56 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Mirrors.pm
16.3 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Module.pm
21.87 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Nox.pm
953 bytes
10/05/2022 10:49:22 AM
rw-r--r--
📁
Plugin
-
11/20/2022 06:46:04 AM
rwxr-xr-x
📄
Plugin.pm
3.14 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Prompt.pm
567 bytes
10/05/2022 10:49:22 AM
rw-r--r--
📄
Queue.pm
6.78 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Shell.pm
71.88 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
Tarzip.pm
16.32 KB
10/05/2022 10:49:22 AM
rw-r--r--
📄
URL.pm
588 bytes
10/05/2022 10:49:22 AM
rw-r--r--
📄
Version.pm
4.29 KB
10/05/2022 10:49:22 AM
rw-r--r--
Editing: Distrostatus.pm
Close
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Distrostatus; use overload '""' => "as_string", fallback => 1; use vars qw($something_has_failed_at); use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,$arg) = @_; my $failed = substr($arg,0,2) eq "NO"; if ($failed) { $something_has_failed_at = $CPAN::CurrentCommandId; } bless { TEXT => $arg, FAILED => $failed, COMMANDID => $CPAN::CurrentCommandId, TIME => time, }, $class; } sub something_has_just_failed () { defined $something_has_failed_at && $something_has_failed_at == $CPAN::CurrentCommandId; } sub commandid { shift->{COMMANDID} } sub failed { shift->{FAILED} } sub text { my($self,$set) = @_; if (defined $set) { $self->{TEXT} = $set; } $self->{TEXT}; } sub as_string { my($self) = @_; $self->text; } 1;