Home > Mac Archive

[ << < 1  2  3  4  5  6  7  8  9  10  11 >> ]

Mac Archive

1234567890

へー、UNIX time が 1234567890 になるのか

date -r 1234567890
perl -le 'print scalar(localtime(1234567890))'

UTC 的にはジェイソンが活躍する日、JST 的には婦女子が暗躍する日ですね
でも

Sat Feb 14 08:31:30 2009

土曜のこんな時間、PC に向かってることはないな

ご多分にもれず CrossOver Mac ゲット

http://www.codeweavers.com/products/cxmac/
期間限定シリアル無料配布だったので、とりあえずゲットしたものの、Sleipnir とかが普通に動かないことは確認済みだし、何をするか迷ったので、Gyao を視聴してみることにした

。。。が、クソ重いので中断。後でまた試す

zeroview すげぇ

http://t_trace.wed.macserver.jp/overview.html
Mac の手書き説明書」経由

[0]:zeroview is simple bookmarklet shows website's shrink to window fit view.

Windows の WebKit でも動くのかな? 便利かも

ザンねンてすょ

マク -あほマっク・サィト・ファースト・ジェネレイシヨン-

マクCEOグッグでよ。みんなさん、こんばんはでよ。あほマっク・サィト・ファースト・ジェネレイシヨンこと、当サィト「マク (maku)」を代表すて発表ずるます。2002ねん8がつ26にちに誕生すた「マク」は、今年2008ねん8がつ26にちの、6才のおたんじょうび、6周年キネンで、ついに終了ずる事になたてす。コレが「マク」最後のポストとなるてすよ。

大変ザんネですねぃ

撮影はおまけでも閲覧はおまけじゃないです

iPhone でニコ動見ようとすると、やっぱ間になんかいるのか。となると、どれだけ iPhone/iPod Touch 的な UI になるか、で人気に差が出るのかな

wassr2growl.pl 修正

wassr-post.pl

Wassrに、terminal からワサワサする
wassr2growl.pl は WebService::Simple 使ったので、今日はNet::Wassr使ってみた

  • 初めて実行した時に ID と PW を入力し ~/.wassr-post.yaml を生成
  • #higemaru で始まる時はチャンネル higemaru に投稿
  • @higemaru で始まる時は最近の友達の発言を取得して
    • 最近の higemaru の発言を取得できたらその発言にレス
    • 取得できなかったら普通に発言
  • それ以外は全部普通に発言

Terminal が UTF-8 の時しか考慮してません。あしからず

#!/usr/bin/perl

use strict;
use warnings;

use Net::Wassr;

use YAML;
use File::HomeDir qw(home);
use File::Spec;
use IO::Prompt;
use Encode;

my $VERSION = '0.1';

my $conf_file = File::Spec->catfile(home, '.wassr-post.yaml');

my $conf = {};
unless ( -e $conf_file ) {
    $conf->{user} = prompt('user: ').'';
    $conf->{passwd} = prompt('passwd: ',-echo => '*').'';
    YAML::DumpFile($conf_file, $conf);
    chmod 0600, $conf_file;
}
$conf = YAML::LoadFile($conf_file);

my $wassr = Net::Wassr->new(
                            user => $conf->{user},
                            passwd => $conf->{passwd}
                           );

my $status = prompt('mes: ').'';

if ( $status ) {
    if ( utf8::is_utf8($status) ) {
        $status = encode('utf8', $status);
    }
    $status =~ s/[\x00-\x1f]//g;

    if ( index($status,'#') == 0 ) {
        my @tmps = split /\s+/, $status, 2;
        if ( scalar(@tmps) == 2 ) {
            my $mes = {
                       body => $tmps[1],
                       name_en => $tmps[0],
                      };
            $mes->{name_en} =~ s/^#//;

            my $s = $wassr->channel_update($mes);
            warn Dump $s;
        }
    }
    else {
        my $mes = {
                   source => 'Net::Wassr',
                   status => $status,
                  };
        if ( index($status,'@') == 0 ) {
            my @tmps = split /\s+/, $status, 2;
            if ( scalar(@tmps) == 2 ) {
                $mes->{status} = $tmps[1];
                $tmps[0] =~ s/^@//;

                my $f_timeline = $wassr->friends_timeline();
                for (@$f_timeline) {
                    if ( $_->{user_login_id} eq $tmps[0] ) {
                        $mes->{reply_status_rid} = $_->{rid};
                        last;
                    }
                }
            }
        }
        my $s = $wassr->update($mes);
        warn Dump $s;
    }
}

wassr2growl.pl 修正

wassr2growl.pl

Wassrの、自分が購読中の人のヒトコト (friends_timeline) をGrowlに通知する

初めて実行した時に ~/.wassr2growl.yaml が生成されるので、そこに wassr の ID と PW を記入して、後は cron でよしなにまわすとよろし

2008-08-01 Net::Wassr で書き直し & friends_timeline だけでなく channel_timeline も取得するようにしました
2008-07-31 初回実行時に、id と pw の入力をうながすようにしました

#!/usr/bin/perl

use strict;
use warnings;

use Net::Wassr;

use YAML;
use File::HomeDir qw(home);
use File::Spec;
use IO::Prompt;
use Encode;
use HTTP::Date;

use Mac::Growl;

my $VERSION = '0.4';

my $app = (File::Spec->splitpath($0))[2];
my $conf_file = File::Spec->catfile(home, '.wassr2growl.yaml');

my $conf = { lastupdate => 0 };
unless ( -e $conf_file ) {
    $conf->{user} = prompt('user: ').'';
    $conf->{passwd} = prompt('passwd: ', -echo => '*').'';
    YAML::DumpFile($conf_file, $conf);
    chmod 0600, $conf_file;
    Mac::Growl::RegisterNotifications(
                                      $app,
                                      ['all-timeline'],
                                      ['all-timeline']
                                     );
}
$conf = YAML::LoadFile($conf_file);

my $wassr = Net::Wassr->new(
                            user => $conf->{user},
                            passwd => $conf->{passwd}
                           );

# Friend TimeLine
my $messages = $wassr->friends_timeline();

# Channel TimeLine
my $clist = $wassr->channel_user();
for my $c ( @{$clist->{channels}} ) {
    my $r = $wassr->channel_timeline($c);
    for ( @$r ) {
        push @$messages, {
                          name_en => $c->{name_en},
                          epoch => HTTP::Date::str2time( $_->{created_on} ),
                          user => {
                                   screen_name => $_->{user}->{nick}
                                  },
                          text => $_->{body},
                         };
    }
}

# sort by epoch
my @mes = sort { $b->{epoch} <=> $a->{epoch} } @$messages;

my @allmes = ();
for my $re ( @mes ) {
    last if $re->{epoch} <= $conf->{lastupdate};

    my $str .= sprintf('(%02d:%02d:%02d) ',reverse((gmtime($re->{epoch}+9*3600))[0..2]));
    if ( $re->{reply_message} ) {
        $str .= '> '.$re->{reply_message};
        $str .= ' by '. $re->{reply_user_nick} if  $re->{reply_user_nick};
        $str .= "\n";
    }
    elsif ( $re->{name_en} ) {
        $str .= '[#'.$re->{name_en}.'] ';
    }
    $str .= $re->{text} . ' by ' . $re->{user}->{screen_name};
    if ( utf8::is_utf8($str) ) {
        $str = encode('utf8', $str);
    }
    $str =~ s/[\x00-\x1f]//g;
    push @allmes, $str;
}

if ( scalar(@allmes) ) {
    $conf->{lastupdate} = $mes[0]->{epoch};
    YAML::DumpFile($conf_file, $conf);
    chmod 0600, $conf_file;

    Mac::Growl::PostNotification(
                                 $app,
                                 'all-timeline',
                                 $conf->{user}.'@Wassr',
                                 join("\n----\n",@allmes),
                                 1
                                );
}

exit;

WebClip アイコン結局

[ << < 1  2  3  4  5  6  7  8  9  10  11 >> ]

Home > Mac Archive

Feeds

Return to page top