| Server IP : 212.252.79.165 / Your IP : 216.73.217.172 [ Web Server : Apache System : Linux 212-252-79-165.cprapid.com 5.15.0-153-generic #163-Ubuntu SMP Thu Aug 7 16:37:18 UTC 2025 x86_64 User : cehaburo ( 1001) PHP Version : 8.1.33 Disable Function : exec,passthru,shell_exec,system Domains : 48 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /home/cehaburo/public_html/images/product/anon_sym/anon/proc/2094/root/scripts/ |
Upload File : |
#!/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(<<EOM);
whoowns DOMAIN-OR-URL
Prints the user that owns the given domain, if any. If a URL is given instead,
looks for the user owning the domain specified in the URL. Only HTTP and HTTPS
URLs are accepted.
Exits 0 if the user is found, 1 if not, and 2 on error.
EOM
return $retval;
}