usr/local/cpanel/scripts/unlink_service_account000075500000005172147204273770016104 0ustar00#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/unlink_service_account Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited package scripts::unlink_service_account; use strict; use warnings; use Cpanel::AcctUtils::DomainOwner::Tiny (); use Cpanel::JSON (); use Cpanel::SafeRun::Errors (); use Cpanel::Usage (); exit( run(@ARGV) ) unless caller(); sub run { my (@args) = @_; my ( $user, $service, $dismiss ); my $opts = { 'user' => \$user, 'service' => \$service, 'dismiss' => \$dismiss, }; Cpanel::Usage::wrap_options( \@args, \&usage, $opts ); usage() unless ( $user && $service ); my ( $local, $domain ) = split( /\@/, $user, 2 ); usage() unless ( $local && $domain ); my $owner = Cpanel::AcctUtils::DomainOwner::Tiny::getdomainowner( $domain, { default => '' } ); if ( !$owner ) { print "Cannot find the owner of $domain, try rebuilding /etc/userdomains first with /usr/local/cpanel/scripts/updateuserdomains\n"; return 1; } # Use bin/uapi instead of Cpanel::API::execute because this script is uncompiled, and some of the # API code we need is unshipped. my $json = Cpanel::SafeRun::Errors::saferunallerrors( '/usr/local/cpanel/bin/uapi', !$< ? ( '--user', $owner ) : (), # if we're running as root, we need to tell it which user to run the API call for '--output', 'json', 'UserManager', 'unlink_service_account', map { join '=', @$_ } ( [ username => $local ], [ domain => $domain ], [ service => $service ], [ dismiss => $dismiss ] ) ); my $response = Cpanel::JSON::Load($json); if ( !$response->{result}{status} ) { print "$_\n" foreach ( @{ $response->{result}{errors} } ); return 1; } return 0; } sub usage { my $prog = $0; print < $0 --user test\@domain1.example --service ftp > $0 --user test3\@domain1.example --service email USAGE exit 0; } 1;