使用 perl 脚本检查 cpanel 授权并写入文件

Question

我正在编写一个 perl 脚本来检查多 cpanel 帐户的弱密码授权，就像服务器所有者可以检查他的用户是否使用弱密码，并且当连接到一个时，在 /public_html/ 目录中写入一个文件到通知用户。 我正在考虑使用cPanel::PublicAPI：

my $cp = cPanel::PublicAPI->new(
       'user' => $username,
       'pass' => $password,
       'host' => $host,
     );

但我不知道如何检查是否已连接以及如何在其中写入文件 (i've looked here)

我找到了一个检查授权的脚本：

$authx = encode_base64($user.":".$passwd);
my $sock = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$host", PeerPort => "$port") || print " [-] Can not connect to the host";
print $sock "GET / HTTP/1.1";
print $sock "Authorization: Basic $authx";
print $sock "Connection: Close";
read $sock, $answer, 128;
close($sock);

if ($answer =~ /Moved/) {
print " passord is : $passwd\n";
}

但这太慢了，不能用它写文件。 对不起我的英语不好 ：） 。问候

Answer 1

我不知道如何检查是否连接

只需对 $cp 对象进行请求/方法调用。如果失败，则设置$cp->{error} attribute。

如何写入文件

use autodie qw(:all);
open my $fh, '>', '/home/user/message_from_the_admin';
$fh->print('You made a boo-boo.');

参见第 9.3 章：文件 in Modern Perl。