発売日直前でWii黒が高い

▲定価を軽くオーバー

明日発売なんですけれども、普通に店頭で買った方がいいと思う。

2009.07.31 23:22 [ゲーム] | 固定リンク | コメント (0) | トラックバック (0) |

mod_evasiveいれた

一カ所のIPから同一のコンテンツを死ぬほどアクセスされて（20回/秒）、Webサーバが大変なことになってしまったので、このたびmod_evasiveというApacheモジュールをとりあえず入れました。

mod_evasive で DoS攻撃対策 - chibilog++ [aroe.name]

印刷屋にDoS攻撃すんなっつーの（Safariが暴走したっぽい挙動だったが）。ともかく、専任じゃないから迎撃モードに移行すると通常業務が後ろに遅延していくわけで、いろいろと大変であります。

2009.07.30 23:38 [Web] | 固定リンク | コメント (0) | トラックバック (0) |

FLASHでプロセスインキの減法混色シミュレーションの学習用教育訓練教材を作る

▲大いなる手抜き

教育訓練でこれを使った後、実際にやってみましょうとかいって、印刷機のプロセスインキを混ぜてみると効果的。

2009.07.29 21:05 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |

CorelDRAW X4からのPDFをMac版Acrobat 8でプリフライトをしようとするとレインボーカーソルが出て止まるのだが

CorelDRAW X4からのPDFをMac版Acrobat 8でプリフライトをしようとするとレインボーカーソルが出て止まるのだが、回避法は、Acrobat 9でプリフライトする、でした。

Acrobat 9があるなら最初っからAcrobat 9使えっていうかもしれませんけれども、いろんな理由でAcrobat 8しか使えなかったりするのです。

CorelDRAW X4自体は、CMYKのPDFがちゃんと書きだせるようで、いいソフトだと思います。

2009.07.28 23:33 [PDF] | 固定リンク | コメント (0) | トラックバック (0) |

FLASHで光の三原色学習用教育訓練教材を作る

▲土曜ワイド劇場ではない

会社で教育訓練するときに使う教材で、光の三原色を説明するためのものです。自前でFLASH購入しておいたのが今生きました。

むかーし、学校いたときFLASH 2を購入してトゥイーンとかなら出来るのですが、今時のActionScript3とかよくわからないので苦労しました。円を配置して乗算するところまでは10分で出来たが、その後ActionScriptをどこに入力するかから調べ始めて、動くまで100分かかったｗ

作ってみてわかったのは、JavaScript+DHTMLをやるのと同じ感覚で出来そうだし、FLASHのオブジェクトが根本的に動かしやすくなっているっていうことです。

2009.07.27 19:39 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |

セミナー行くことにした

近日セミナーイベントが近くで行われるのですが、その日はドキッ男だらけのバーベキュー大会だったのでいけないなーと思ったが昨日確認したらそのいかがわしい大会は次の日だっていうことになったので、セミナーイベントに行くことにしました。

オープンソースカンファレンス2009 Niigata - [http://www.ospn.jp]

うむ、赤塚のほうじゃないんじゃな。

そろそろうちのWebサーバの入れ替えの話が出ているのでXenを使った仮想化のあたりを聞きたいかな。

2009.07.26 23:18 [パソコン・インターネット] | 固定リンク | コメント (0) | トラックバック (0) |

主催者はどうでもいいから長くやれ

実験る～む次の「DTP Booster」は面白そうだ、けれどもしかし [dslabo.blog4.fc2.com]

問題はどちらかというと後者で「『DTP Booster実行委員会』という団体について、世間一般への説明が難しい」、というところ。

んーと地方からだと、どうせお金かけて出かけるんだから、主催者はともかくセミナーの時間が長ければ長いほど、もしくは連続で参加できるセミナーが多ければ多いほど出張申請が通りやすいこともあるんだって。

感想は特になし。

来月のOSC2009は土曜日で出勤日じゃないし、セミナーのコマが6コマ連続であるんで行きたいところだが、ドキッ男だらけのバーベキュー大会の予定が入っているので行かない。お昼のコマのサーバ仮想化技術のやつは聞きたいんですけどねえ……

2009.07.25 18:21 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |

Twitterの書き込みからJAGAT SNSのTodoへ共有設定でシンクロするPerlスクリプト

Twitterの自分の書き込みをRSSの差分をとることで抽出して、JAGAT SNS [www.jagat.jp] に書き込みます。cronで好きな間隔でまわすといいよ。

▲Twitterで書き込むと……

▲JAGAT SNSのTodoに「全員に共有」設定でシンクロされます

ユーザーID、パスワードはConfig:Pitで管理する方式です。

パスワード設定をコードに書かない(Config::Pit) - モダンなPerl入門 - モダンなPerl入門 [perl-users.jp]

スクリプトを動かす前に、上記リンク先を参照して、コマンドラインからアカウントとパスワードをセットしておこう。こんな感じでいいのでは。

$ perl -MConfig::Pit -e'Config::Pit::set("www.jagat.jp", data=>{ username => "ABC12345", password => "password" })'

filename: twitter2jagatsns.pl

#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
use Config::Pit;
use Encode;
use URI::Fetch;
use XML::Feed;
use WWW::Mechanize;
 
# Twitterの自分のタイムラインのRSSを入れよう
my $uri = 'http://twitter.com/statuses/user_timeline/'
        . '14119989.rss';
 
# aboutmeの自分のアカウント情報はConfig::Pitで
# あらかじめセットしておこう。コマンドラインからは
# $ perl -MConfig::Pit -e'Config::Pit::set("www.jagat.jp", data=>{ username => "ABC12345", password => "password" })'
my $config = pit_get("www.jagat.jp");
die "not preset account data in Pit." if !%$config;
my $username = $config->{username} or die 'username not found.';
my $password = $config->{password} or die 'password not found.';
 
my $mech = WWW::Mechanize->new();
my $past = './past.xml';
$mech->agent_alias( 'Windows Mozilla' );  
 
 
# Main
 
parse();
exit;
 
 
sub parse {
  my $content = load();
  my $feed = XML::Feed->parse( \$content );
  my $list; # 前回のfeedのlinkをキーとしてハッシュ作る
  if ($feed) { # 前回のfeedが正常でない場合ループしない
    foreach my $entry ( $feed->entries ) {
      $list->{ $entry->link } = 1;
    }
  }
  $content = get();
  $feed = XML::Feed->parse( \$content );
  exit unless $feed; # メンテナンスなどfeedが正常でない場合は終了
  save($content);
  my $list2; # 今回のfeedで前回のfeedに無いものが溜まるリスト
  foreach my $entry ( $feed->entries ) {
    if (!exists $list->{ $entry->link } ){ # 前回のfeedに無ければ
      push @$list2, { title => $entry->title
                    }; # 今回のfeedからtitle（post内容）を格納
    }
  }
  return if $#$list2 == -1; # 長さが0ならばparse終わり
  
  # JAGAT SNSログイン
  login( $username, $password );
  # 新着分書き込み  
  for my $item ( reverse @$list2 ) {
    (my $title = $item->{title}) =~s/^.+?: //o; #ユーザ名トルツメ
    #print encode('utf8', $title."\n"); # デバッグ用
    post( $title );    # JAGAT SNSへ投稿
  }
}
 
sub get { # TwitterからRSSを取得
  my $ua = new LWP::UserAgent;
  $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; '
            .'ja; rv:1.9.0.6) Gecko/2009011913 '
            .'Firefox/3.0.6'); # UAをFirefoxに偽装
  $ua->timeout(20);            # timeoutを20秒に設定
  my $res = URI::Fetch->fetch( "$uri",, UserAgent => $ua )
    or die URI::Fetch->errstr; # 未来のことを考えてURI::Fetch
  return $res->content;
}
 
sub load { # 前回feedを読み込み
  open my $fh, '<', $past;
  my $content = do { local $/; <$fh> }; # 一気読み
  close $fh;
  return $content;
}
 
sub save { # 前回feedとして書き込み
  my $content = shift;
  open my $fh, '>', $past;
  print $fh $content;
  close $fh;
  return;
}
 
sub login { # JAGAT SNSへログイン
  my $username = shift;
  my $password = shift;
  my $res = $mech->get('http://www.jagat.jp/mypage/login.php');
  $mech->form_number(2);
  $mech->set_visible( $username, $password );
  $mech->submit();
  die 'Login Failed.' if ($mech->uri() =~m|https://www.jagat.jp/index.php?option=login|);
  return;
}
 
sub post { # JAGAT SNS Todoへ投稿
  my $text = shift;
  my $res = $mech->get('http://www.jagat.jp/igns/?m=pc&a=page_h_home');
  $mech->form_number(3);       # HTML内の3番目のフォーム
  $mech->set_visible( $text, [ checkbox => 1 ] ); # 見えているtextboxにセット
                                                  # checkbox=>1で共有書き込み
  $mech->submit();             # 送信
  return;
}

これをみんなで使うとJAGATのTodo欄がTwitterのタイムラインみたいになると思うよ。

（2009-08-27 09:50訂正）

WWW::Mechanizeの最新バージョンだと、投稿が文字化けしますので、以下のとおり訂正します。

post( encode('utf8', $title ) ); # JAGAT SNSへ投稿
　　　　　　　　　　　　　　　　↓
post( $title ); # JAGAT SNSへ投稿

2009.07.24 01:38 [Perl] | 固定リンク | コメント (0) | トラックバック (0) |