#!/usr/local/cpanel/3rdparty/bin/perl

package scripts::fleetssl_get_proxysubdomains;

use strict;

use Cpanel::WebVhosts::ProxySubdomains ();

exit run(@ARGV) unless caller();

sub run {
    my ( $user ) = @_;
    my @labels = Cpanel::WebVhosts::ProxySubdomains::ssl_proxy_subdomain_labels_for_user($user);
    print "$_\n" for @labels;
}