mmrss<\/a> \u306e\u5b9f\u73fe\u306e\u305f\u3081\u306b\u5fc5\u8981\u4e0d\u53ef\u6b20\u3060\u3063\u305f\u306e\u3067\u5165\u308c\u3066\u307f\u305f\uff0e\u3053\u306e\u4fee\u6b63\u306b\u3088\u308a\uff0c\u30e1\u30f3\u30d0\u30fc\u306e Screen Name \uff08\u540d\u524d\uff09\u304c\u5909\u66f4\u3055\u308c\u305f\u308a\uff0c\u30b9\u30c6\u30fc\u30bf\u30b9\uff08\u30aa\u30f3\u30e9\u30a4\u30f3\u3068\u304b\u53d6\u308a\u8fbc\u307f\u4e2d\uff09\u304c\u5909\u66f4\u3055\u308c\u305f\u3068\u304d\u306b\uff0c\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u30d7\u30ed\u30b0\u30e9\u30e0\u306e on_status \u3068\u3044\u3046\u30a4\u30d9\u30f3\u30c8\u3068\u3057\u3066\u62fe\u3046\u3053\u3068\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\uff0e<\/p>\n\u3068\u3044\u3046\u308f\u3051\u3067\uff0c\u305d\u306e\u30d1\u30c3\u30c1\u3092\u601d\u3044\u5207\u3063\u3066\u516c\u958b\u3057\u3066\u307f\u308b\u3053\u3068\u306b\u3059\u308b\uff0e<\/p>\n
<\/p>\n
\u307e\u305a\u306f\u30e2\u30b8\u30e5\u30fc\u30eb\u305d\u306e\u3082\u306e\u3078\u306e\u30d1\u30c3\u30c1\uff0e<\/p>\n
*** MSN.pm.1.22\t2003-10-30 07:21:48.000000000 +0900\r\n--- MSN.pm\t2007-07-14 16:54:44.000000000 +0900\r\n***************\r\n*** 549,558 ****\r\n} else {\r\n$self->{'Handle'} = $data[2];\r\n$self->{'ScreenName'} = $self->normalize($data[3]);\r\n&{$self->{Callback}->{on_connect}}\r\nif ($self->if_callback_exists('on_connect'));\r\n- \t$this_self->send('CHG', 'NLN');\r\n- \t$this_self->send('SYN', '0');\r\n}\r\n} else {\r\ndie "Unsupported authentication method: \\"",\r\n--- 549,558 ----\r\n} else {\r\n$self->{'Handle'} = $data[2];\r\n$self->{'ScreenName'} = $self->normalize($data[3]);\r\n+ \t$this_self->send('SYN', '0');\r\n+ \t$this_self->send('CHG', 'NLN');\r\n&{$self->{Callback}->{on_connect}}\r\nif ($self->if_callback_exists('on_connect'));\r\n}\r\n} else {\r\ndie "Unsupported authentication method: \\"",\r\n***************\r\n*** 668,677 ****\r\n--- 668,685 ----\r\n$self->buddyupdate($username, $fname, $status);\r\n} elsif ($cmd eq 'NLN') {\r\nmy ($status, $username, $fname) = @data;\r\n+ my $last_status = $self->{Buddies}->{$username}->{StatusCode};\r\n$self->buddyupdate($username, $fname, $status);\r\n+ if ($self->if_callback_exists('on_status')) {\r\n+ &{$self->{Callback}->{on_status}}($this_self, $username, $fname, $status, $last_status);\r\n+ }\r\n} elsif ($cmd eq 'FLN') {\r\nmy ($username) = @data;\r\n+ my $last_status = $self->{Buddies}->{$username}->{StatusCode};\r\n$self->buddyupdate($username, undef, $cmd);\r\n+ if ($self->if_callback_exists('on_status')) {\r\n+ &{$self->{Callback}->{on_status}}($this_self, $username, undef, $cmd, $last_status);\r\n+ }\r\n} elsif ($cmd =~ \/^[0-9]+$\/) {\r\nif (defined $this_self->{PendingCall} &&\r\n$this_self->{PendingCall} == 1) {<\/pre>\n\u6b21\u306b\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u3064\u3044\u3066\u304f\u308b client.pl \u3078\u306e\u30d1\u30c3\u30c1\uff0e\u3053\u306e\u4f8b\u3067\u306f\uff0c\u30aa\u30d5\u30e9\u30a4\u30f3\u3060\u3063\u305f\u30e1\u30f3\u30d0\u30fc\u304c\u30b5\u30a4\u30f3\u30a4\u30f3\u3057\u3066\u304d\u305f\u3068\u304d\u306b\uff0c\u8a71\u3057\u304b\u3051\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\uff0e\u3042\u3068\u306f\u304a\u597d\u304d\u306a\u3088\u3046\u306b\u6539\u9020\u3057\u3066\u304f\u3060\u3055\u3044\uff08\u7b11\uff09\uff0e<\/p>\n
*** client.pl.1.22\t2007-07-14 17:33:34.000000000 +0900\r\n--- client.pl\t2007-07-14 17:34:03.000000000 +0900\r\n***************\r\n*** 127,133 ****\r\n}\r\n\r\nsub on_status {\r\n! # FIXME\r\n}\r\n\r\nsub on_message {\r\n--- 127,136 ----\r\n}\r\n\r\nsub on_status {\r\n! my ($sb, $chandle, $friendly, $status, $last_status) = @_;\r\n! if ($status ne 'FLN' && $last_status eq 'FLN') {\r\n! $client->sendmsg($chandle, 'Hi! '. $friendly. '!');\r\n! }\r\n}\r\n\r\nsub on_message {<\/pre>\n\u3068\u307e\u3041\u3053\u3093\u306a\u611f\u3058\uff0e\u672c\u5bb6\u306e\u4eba\u306b\u9023\u7d61\u3057\u3066\u307f\u3088\u3046\u304b\u306a\u3041\uff0e<\/p>\n","protected":false},"excerpt":{"rendered":"
\u6570\u5e74\u524d\u304b\u3089 Perl \u3067 Windows Live Messenger \u7528\u306e bot \u3092\u3061\u3087\u3053\u3061\u3087\u3053\u4f5c\u3063\u3066\u3044\u307e\u3059\uff0e CPAN \u306e Net::MSN \u3068\u3044\u3046\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u30d9\u30fc\u30b9\u306b\u4f5c\u3063\u3066\u3044\u308b\u306e\u3067\u3059\u304c\uff0c\u63a5\u7d9a\u51e6\u7406\u306b\u554f\u984c\u304c\u3042\u3063\u3066\u4f7f\u3044 […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[33],"tags":[],"_links":{"self":[{"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/posts\/1273"}],"collection":[{"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/comments?post=1273"}],"version-history":[{"count":3,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/posts\/1273\/revisions"}],"predecessor-version":[{"id":4774,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/posts\/1273\/revisions\/4774"}],"wp:attachment":[{"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/media?parent=1273"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/categories?post=1273"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/nao.river24.net\/blog\/wp-json\/wp\/v2\/tags?post=1273"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}