113 posts from 1 月 2007

womma.jpにwiki設置

Jan 31, 2007
1 comment

とりあえず設置しました。

http://womma.jp/wiki/

入れただけでデザインもくそもないんだけど、WOM系の情報共有に自由にお使いください。

実はwikiとか苦手であんまり「こうすればいい」ってのが見えていません。

社員からクチコム

Jan 31, 2007
2 comments

クチコミの担い手はあなたの隣に
～インフルエンサー・マーケティングとしてのインナー・ブランディング

すごいいい内容でした。ぜひ読むといいですよ。

会社に来るのが楽しくなる、その会社で働いていることを人に話したくなる、そんなふうにできたらいいなって思います。

名刺の話は電通が100色から選べるようにしたってのが数年前に話題になって、その当時ビーケーワンのリニューアル中だったぼくは名刺のデザインもキャラクターの犬を使った4パターン（3パターンだったかな）から自由に選べるようにしました。

複数人で打ち合わせに出ると、やっぱりトークのきっかけになるんですよね、こういうのは。「あれ、みなさん犬が違うんですか？」って。

名刺とか受付とか電話の保留音とか、セス･ゴーディンに言わせれば「全部マーケティング」だし、セルジオ･ジーマンに言わせれば「全部広告」だけど、とにかくそういう接触するものすべてをメディアと考えて、見直す必要があるかもしれませんね。

あ、この記事は名刺のところ以外も勉強になります。

NOKIA E61

Jan 31, 2007
Post a comment

これ、ほしいかも。BlackBerryみたいなもんかな。でもまあケータイではメール読むだけだからなあ。こういうのにしたら返信もしちゃうようになるのかな。でもどうせ仕事の時はパソコン持ち歩くしなあ。

http://www.e-shopreg.com/shop/phone/e61/index.html

どういうときに使うんだ、これ。

Nokia E61

Voxからmixiに自動投稿するスクリプト

Jan 31, 2007

自動投稿、結局書き直しちゃいました。cronで呼び出せば、とりあえず動きます。改変、再配布は自由なので好きに使ってください。ID/PWなどは自分のやつに書き直してくださいね。

あ、もちろんhttp経由でアクセスしたら起動するとかできますし、Movable Typeの場合はトラックバックを送ったら自動反映とかも多少直せばできると思います。

シカシ！

このスクリプト、動くけどエラーが出ます（ダメじゃん＞自分

シカモ！

ちょっとまちがえてた。ループの処理とかややこしい。頭悪いなあと思った……。

#!/usr/bin/perl -w

use strict;
use warnings;
use WWW::Mixi;
use Jcode;
use LWP::Simple;
use XML::RAI;
use Data::Dumper;
use Lingua::JA::Jtruncate qw(jtruncate);

my $logdir    = '/home/admin/script/blog2mixi/';
my $mixi_id   = 'gufufu@ehehe';
my $mixi_pass = 'pirorin';
my $feed_url = 'http://takeshi.vox.com/library/posts/rss.xml';

my $body_size = 10000;
my $logfile   = $logdir . 'blog_to_mixi.log';
my $last_file = $logdir . 'blog_to_mixi_last';
my $debug     = 0;

# 本文最後につけるメッセージ
my $message   = "※写真とかちゃんとしたのは[Vox]にありマス。でもここにコメントしてもちゃんと読むから平気サ！";

# start
open my $log, '>>' . $logfile or die "Failed to write log file";

WriteLastEntry("first entry ?") unless (-f $last_file);

my $last_entry = ReadLastEntry();

my $rai = XML::RAI->parse_string(get($feed_url));

my $mixi = WWW::Mixi->new( $mixi_id, $mixi_pass );
my $response = $mixi->login;

my @raiItems = @{$rai->items};
my $itemNum = @raiItems;
my $maxItem = 7;
for(my $i = 0; $i < $itemNum - $maxItem; $i++) {
pop @raiItems;
}

@raiItems = reverse @raiItems;

my $tmp_entry = undef;
my $new = 0;
foreach my $item ( @raiItems) {
print "\$item->link => " . $item->link . "\n" if($debug);
if($item->link eq $last_entry){
    $new = 1;
    next;
}
unless ($new) {
    next;
}

$tmp_entry = $item->link;

my $itemBody = Jcode->new($item->content)->euc;
# タグ外す
$itemBody =~ s/<p>/\n/gs;
$itemBody =~ s/<br \/>/\n/gs;
$itemBody =~ s/<blockquote>/\n---\n/gs;
$itemBody =~ s/<\/blockquote>/---\n/gs;
$itemBody =~ s///gs;
$itemBody =~ s/<.*?>//gs;
$itemBody =~ s/\n\n/\n/gs;
#$itemBody =~ s/\n//gs;
$itemBody = jtruncate($itemBody, $body_size) . "...\n";

my $body = Jcode->new($itemBody)->euc . "\n" . Jcode->new($message)->euc . "\n" . $item->link . "\n";

my %diary = (
    'diary_title' => Jcode->new($item->title)->euc,
    'diary_body' => $body,
);

foreach my $key ( keys %diary) {
    print $log $item->link . "\n";
    print $log "$key : $diary{$key}" . "\n";
}

if($debug) {
    print "Write2mixi => " . $item->link . "\n";
} else {
    my $result = $mixi->get_add_diary_confirm(%diary);
}
}

# 最後のPermalinkを更新
WriteLastEntry($tmp_entry) if ($tmp_entry);

close($log);

exit;

sub WriteLastEntry {
my($permalink) = @_;
open my $fh, ">" . $last_file or die "Failed to write last_entry";
print $fh $permalink;
close $fh;
print "WriteLastEntry => " . $permalink . "\n" if($debug);
}

sub ReadLastEntry {
open my $fh, $last_file or die "Failed to read last_entry";
my $last_permalink = <$fh>;
close $fh;
chomp $last_permalink;
print "ReadLastEntry => " . $last_permalink . "\n" if($debug);
return $last_permalink;
}

# special thanks to ...
# http://www.moeplan.gr.jp/online/onlinesoft/5/