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/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 107
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 234
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 235
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 236
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 237
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 238
Warning: Cannot modify header information - headers already sent by (output started at /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php:1) in /home/zoomride2022/public_html/myzoomride.com/wp-includes/certificates/system.php on line 239
#!/usr/local/cpanel/3rdparty/bin/perl
package scripts::whoowns;
use strict;
use Getopt::Long ();
use IO::Handle ();
our $USERDOMAINS = '/etc/userdomains';
exit script( \*STDOUT, @ARGV ) unless caller;
sub script {
my ( $fh, @args ) = @_;
my $help;
Getopt::Long::GetOptionsFromArray(
\@args,
'help' => \$help
) or return usage(2);
return usage(0) if $help;
return usage(2) unless @args;
my $found;
my $domain = $args[0] =~ s{^https?://([^/]+)/?.*$}{$1}r;
if ( open( my $ud, '<', $USERDOMAINS ) ) {
while (<$ud>) {
if (/^\Q$domain\E: (\S+)/i) {
$fh->print("$1\n");
$found = 1;
}
}
close($ud);
}
return $found ? 0 : 1;
}
sub usage {
my ($retval) = @_;
my $fh = $retval ? \*STDERR : \*STDOUT;
$fh->print(<