coreserverのSSH登録を自動化するスクリプト
coreserverにSSHで接続するには事前にIPアドレスを登録しておく必要がありますが、これを自動化するスクリプトを書きました。というか、以前に書いたのを消してしまってバックアップからサルベージしたのでついでに掲載。
#!/usr/bin/env perl use strict; use warnings; use LWP::UserAgent; use LWP::Simple; my $url = 'https://ss1.coressl.jp/www.*****.coreserver.jp/jp/admin.cgi'; my $userid = '****'; my $passwd = '****'; my $ip = get('http://dyn.value-domain.com/cgi-bin/dyn.fcg?ip'); print $ip; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(POST => $url); $req->content_type('application/x-www-form-urlencoded'); my $content = 'id='.$userid.'&pass='.$passwd.'&remote_host='.$ip.'&ssh2=SSH%93o%98%5E'; $req->content($content); my $res = $ua->request($req); print $res->as_string;
***** は自分のアカウント情報に合わせて変更してください。