在我的项目中,我需要以编程方式为每个在我的网站中订阅的新用户创建电子邮件帐户。
我知道可以通过SSH完成,所以我安装了Net::SSH::Perl
,下面是我的代码:
use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new("IP of my server");
$ssh->login('username like in ftp', 'password of my ftp'); # I assume the password to SSH is the same as to my cPanel account
my($stdout, $stderr, $exit) = $ssh->cmd("/scripts/addpop CGA_$uid\@crazygao.com $cps 20"); # 20MB quota
但是我收到以下错误:
Can't connect to [IP], port 22: Connection refused at /home/mydomain/perl/usr/share/perl5/Net/SSH/Perl.pm line 208.
我在共享Linux主机上,我设置公钥和私钥来访问 SSH ,但它仍然无法正常工作...
我想我只是走了很长的路 - 也许有一种更简单的方法在Perl中创建邮件帐户,但我只是不知道如何实现这个目标......