0 " lz Jj"Tҁzţ [o #!/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(<-M .Cn.2.F.I,/;v/ //"/ / 0 0&0=0 V0a0|00 0000%0071;1J1Z1/r11111( 242&I2*p2&2+22#3#'3)K3-u3,333$39#4]43|44144565F5!]5$5=5G59*6d6m6"t666;6!707+L7x777,77% 8,08-]8 8&8889!29.T9999v:/::&: ;%$;J;j;~;1; ;;#;# <L0<6}<<6<A=>I= =+=*== > >1>2E> x>>>">*>?? ?@? \? h?r?? ? ?%??+ @$6@[@ z@@@@+@@!A