perl로 만드는 win util / msnd.pl

perl로 만드는 win util / msnd.pl

일본에서 일하든 대부분의 동료들과는 달리 저는 9시 출근입니다.
10시가 되면, 하나 둘 씩 로그인을 하지요. 그럼 저는 "오하요오" 메시지를 보냅니다.

간혹, 이런 메시지를 보내는 것이. 규칙적었는지, 혹시 로그인하면 자동으로 메시지를 보내는 프로그램을 만들어서 하고 있는 것으로 생각하는 사람들이 있었습니다. (그래서 매일 메시지를 조금씩 내용을 바꿉니다. ^^)

그런데 이런 프로그램을 만들려면 어떻게 할까요. 오늘 보물을 발견했습니다.

혹시 심심이라고 하는 MSNBot을 알고 계시다면,
그리고 예전에 있었던, 자동번역 Bot을 알고 계신다면, 그것을 제로부터 직접 만드는 것은 꽤 까다로운 작업입니다만, 아래의 MSN Package를 사용하면 그렇게 어렵지 않게 구현할 수 있습니다.

#!/usr/bin/perl

use lib qw(./MSN/lib);
use strict;
use MSN;

my $msn = MSN->new(Handle => 'youraccont@hotmail.co.jp',
Password => 'password');
$msn->setHandler(Message => \&handler_message);
$msn->connect();

while(1) {
$msn->do_one_loop
}

sub handler_message {
my ($self, $username, $name, $message, %style ) = @_;

print "Msg recv.\n";

$self->sendMessage("hello!");
}


전에 잠시 서버관리를 위해, 뭔가 Notification해야 할 일이 생긴다면 실시간으로 메시지로 받을 수 있도록 Microsoft Alert Service를 사용할까 한 적이 있었습니다.
이 패키지를 발견한 뒤로는, 필요 없을 것 같습니다. 무얼 만들까요.

Source Repository에 업데이트 되면 메시지를 보내는 어플?
CI build 가 깨지면 메시지를 보내는 어플?

다양한 방법으로 사용할 수 있을 것 같습니다. :)