Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/familylifersmpc/htdocs/www.familylifersmpc.com/index.php on line 91
#!/usr/bin/perl # # Example: apt-config in perl. See apt-config(8). # use AptPkg::Config '$_config'; (my $self = $0) =~ s#.*/##; # initialise the global config object with the default values $_config->init; # parse the command line @ARGV = $_config->parse_cmdline([ [ 'h', 'help', 'help' ], [ 'v', 'version', 'version' ], [ 'c', 'config-file', '', 'ConfigFile' ], [ 'o', 'option', '', 'ArbItem' ], ], @ARGV); if (my $v_opt = $_config->get_bool('version') or # --version $_config->get_bool('help') or # --help !@ARGV) # no args { # we don't have the PACKAGE/VERSION &c apt-config has... punt print "$self (using AptPkg $AptPkg::VERSION, built for ", "$_config->{APT::Architecture})\n"; print <dump; exit; } die "$self: invalid operation `$op'\n" unless $op eq 'shell'; while (@ARGV) { my $var = shift; my $cname = shift or die "$self: arguments not in pairs\n"; local $_;