���������������ď����я�����µ���½���

��돫ҏ����䏢���� Wassr ���� 1 ¼��Џ�����������·�����𡯏��������������«�����������Ï�����������¡��½�����¡ޏ����������«���������«���������������������������¹���̏�¡�Wassr ������»������������Ð���·������ 24 »��С���ӏ����¡���ӏ����� 10 ��ď���돪�¾��������������«������¹¹���·������¹������������µ���������������·�����ď�¡�
»���������¾���¹�����¡񡭏�Ï����䏪���쏢�����������я�����������¼«����̏��«������¹¹���·������¹������������������»�����돢¡��ӏ��¾������ď�����«������¹¹���·������¹������������µ�����������ď��������³���������������«������������¹¹���·������¹������������·�����ӏ��¹��¡ߏ�����������������\���\���\·���¼�����������̏����Џ��·�������������������������������¹���̏�¡�(»��Џ��¹\���\�����«�����������ď�����¹���������������²���½��䏢�·�����ď��������·������������) �����؏�����µ������̏����������������ď�������ď�ԏ������ď�����������«������������¾��آ�·���������·�����ď�¡�

��������¡�²��ď��������«�����я�������������������¹¹���·������¹������������µ�����������ď�������¡�\���\���\���\���\���\���\���\�����������½������ď��������\��⏢�¼\���³«��������������¡�³��������»��⏢�������������ޏ�����²���������������\���\���\���\���������¹¹���·������¹���������\���\���\��я�����²����·�����ď��������·�����������ď����я��������¹���̏�¡�돫ҏ����䏢�������µ���¹���̏�����¹¹���·������¹������������µ�����������������������������ď����쏢�«���²�����������я��������«���������������¹������\���\�����������������������������·�����ď�¡�

�����я��������«���������ӡ���Ï����䏢¡�¹¹���·������¹������������µ�����������ď��������·�����ӏ��¹���«��������¡�¼«����돢���������������������������������я�¡ߏ��������«»�ߏ����������������������������ď�����������¡��³�����я���������������������¼«�����¹¹���·������¹������������¹�����������������Ï��������·���������·�����ď�¡�

/home/nipotan/bin/wassr-autokoudoku.pl

#!/usr/local/bin/perl

use strict;
use WWW::Wassr;

my $wassr = WWW::Wassr->new(
    user   => 'username',
    passwd => 'password',
);
$wassr->login;

my $message;
{
    local $/ = undef;
    $message = <STDIN>;
}
my($screen_name) =
    $message =~ m{^http://wassr\.(?:jp|com)/user/(\w+)/[\r\n]+--[\r\n]}m;
exit 0 unless defined $screen_name; # res?

$wassr->follow($screen_name);
exit 0;

���³�����я����������я�돫����������������쏢����������

% chmod +x ~/bin/wassr-autokoudoku.pl
% echo '| /home/nipotan/bin/wassr-autokoudoku.pl' > ~/.qmail-wassr
% echo ./Maildir/ >> ~/.qmail-wassr

���������«���·�����������쏢�­���������·�����ď�¡�

�������������� Wassr �������Ð������\��\���\���\¹������ [email protected] �����Ώ����ď��������������·�����������쏢�ޏ��Ð��¡�\������¼\��������䏪�������«������ screen name ������½��Ï��������������­��������¡�¼«����돪���쏢����¹¹���·������¹������������¹�����������������Ï��������������������������¹��¡�

�����ď���̏�¡��³���������̏���돢����������������������������������������»���������¹¹���·������¹������������µ�����������ď�������¡�\���\���\���������������������¹¹���·������¹������������·�����ӏ��·���������¹���̏�¡񏪡������������«�����������������������������������돢���������� Wassr ���Ð���������«���������«������������\������¼\������������������«�����돫����µ��������������������돢����������������¹��¡�

�����������������Ώ�������¡�WWW::Wassr ��������¡�CodeRepos ���«��������¡��³�����я����������я��·�����������Џ��������������������������µ��������¡�

% svn co http://svn.coderepos.org/share/lang/perl/WWW-Wassr WWW-Wassr
% cd WWW-Wassr
% perl Makefile.PL && make && make test && sudo make install

\���\���\������¼\��������¡돪������������·������������«�����������������������������������Ï����������������ď�������¡�make install ���·��������������������¡�\���\¹�����ҏ��������·�����������쏢�������������ޏ��������叢���Ï��̏������������«�������������������������»������ (���½���������叢���Ï���¹¹���·���µ������������»��Џ����� svn up ���������ޏ�������돪Џ��������·)��¡�

WWW::Wassr ��������¡�\���\������¼������������ trunk ���������«·����������������������������¾²¼�����������Џ����������������ď�����������¡񏩡�돢�«���·�����������������������������ď����叢���Ï��̏������������«���������������¹��������¡�

����������¡�²������������̏�����»�ߏ����������ď������̏�¡񏪩������������·������ 2 \���·���¡񏪩����������������돫������������䏢����\��\���\���\�������\³\������«��������������¡�¡�¡�


����»��\��\���\���\���

• Twitter ������\���\���\���\��� follow ���¹�������������̏������������������µ������
• Jaiku ������\���\���\���\��� add ���¹�������������̏������������������µ������

������µ­:
�����������я��«�����я�����������������������³«���·�����������ď��������������̏�¡�\³\���\���\���\¹����������돢�«���������«�����������ď�����������¡����������쏢�·���������·�����ď�¡�

������µ­ 2: wassr �������������ޏ�Џ��������������̏����������������½������������»�����������������������ď�����«������¹¹���·������¹������������µ������������������¼«����돢����¹¹���·������¹���������½Ð���������������«�����������ď�����������¡��½�����������ҏ����������쏢�·���������·�����ď�¡�