FM / bin

/opt/tier1adv/bin

Name	Size	Mode	Actions
adddomainkey	1179	0755	edit dl rm
addlocaldomain	2281	0755	edit dl rm
addspf	3845	0755	edit dl rm
baksync	20718	0700	edit dl rm
build_maxemails_config	1169	0755	edit dl rm
checkip	4300	0755	edit dl rm
chpass	3336	0755	edit dl rm
create_db	1421	0755	edit dl rm
dcv	2427	0755	edit dl rm
downchk	4603	0755	edit dl rm
editquota	3512	0755	edit dl rm
exim_tidydb	3036	0755	edit dl rm
ipusage	7624	0755	edit dl rm
mysqlconnectioncheck	6877	0755	edit dl rm
proxydomains	9822	0755	edit dl rm
rmdomainkey	1182	0755	edit dl rm
rmlocaldomain	2281	0755	edit dl rm
rmpwb	2123	0755	edit dl rm
rmspf	910	0755	edit dl rm
runweblogs	1045	0755	edit dl rm
sdig	19845	0755	edit dl rm
server_overview	20781	0755	edit dl rm
simpleps	3124	0755	edit dl rm
switch	2030	0755	edit dl rm
unblock	2796	0755	edit dl rm
updateuserdomains	774	0755	edit dl rm
usernano	783	0755	edit dl rm
validate_zone	1110	0755	edit dl rm
whoowns	1155	0755	edit dl rm

Edit: /usr/local/cpanel/scripts/whoowns (1155B)

#!/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;
}

#!/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(<