| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/Debconf/ |
Upload File : |
#!/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