GeekFactory

int128.hatenablog.com

coreserverのSSH登録を自動化するスクリプト

coreserverSSHで接続するには事前に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;

***** は自分のアカウント情報に合わせて変更してください。