usr
/
local
/
cpanel
/
scripts
➕ New
📤 Upload
✎ Editing:
whoowns
← Back
#!/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; }
💾 Save Changes
Cancel
📤 Upload File
×
Select File
Upload
Cancel
➕ Create New
×
Type
📄 File
📁 Folder
Name
Create
Cancel
✎ Rename Item
×
Current Name
New Name
Rename
Cancel
🔐 Change Permissions
×
Target File
Permission (e.g., 0755, 0644)
0755
0644
0777
Apply
Cancel