qos webmaster's blog | サーバ構築/管理の覚え書きなどなど。

PowerShot SX50 HS用にストラップ購入

投稿日: 2013年10月19日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

KING 一眼カメラ用ストラップカラーコレクションレザーストラップ CCLS-01 BLACK 79240

PowerShot SX50 HSに付属のストラップ（ネックストラップNS-DC11）の全長が約117cm。
たすき掛けにするには、腕の出し入れが窮屈。（元々たすき掛け用じゃないんだろうけど）
なので、長めで滑り止めが無いストラップをAmazonで購入。￥1,422。

全長約150cmなので、2m近い長身の自分でも無理なくたすき掛けに出来る。

カテゴリー: その他 | タグ: Amazon, PowerShot SX50 HS, 散財 | コメントする

Canon PowerShot SX50 HSの画素欠けが見つかったので修理に出してみた

投稿日: 2013年10月12日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

レンズキャップを付けた状態で液晶を見ると、1箇所、輝点が表示されるのを発見。
この輝点は、必ず表示されるわけではなく特定の条件で表示される。（マニュアルで、露出1秒、ISO1600くらいにすると表示される）
その条件で、撮影した場合の画像にもその場所の画素が欠けていたので、
液晶のドット欠けではないから、ピクセルマッピング(?)の調整をしてくれれば直るだろうと、Canonの修理センターに持ち込んで見た。

そこで言われた事は、うろ覚えだけど

レンズキャップを付けた状態で撮影した結果、画素が欠けていても正常な撮影状態(?)では無いため、画素欠けとして判断はしていない。
夜景でもなんでも良いから、レンズキャップを外して、正常な撮影状態(?)で撮影した結果、画素欠けが見つかれば修理を受け付ける。
画素欠けが疑わしい箇所を点検する場合は、保証期間内であっても有料。
どうしてもと言うなら、画素欠けとして修理センターに送ってやらなくも無いけど、直る保証はない。

で、保証期間も僅かだったので、直ることを祈って画素欠けとして修理に出してもらった。
2013/10/05に。

で、修理結果が、10/12に送られてきた。(実際は、10/11に不在票が入っていた)

「お預かりの品につきまして、ご指摘の症状を確認いたしました。」
「関連箇所を点検、調整いたしました。※その他、各部点検・清掃をいたしました。」

実際に確認してみたところ、輝点が表示されなくなっていたので、ダメ元で修理に出してよかった。

カテゴリー: その他 | タグ: Canon, PowerShot SX50 HS, キャップ | コメントする

デジカメ（SX50 HS）を入れる用の小さいカバン購入

投稿日: 2013年10月5日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

HAKUBA ショルダーバッグカメラバッグ DVWF1 2.2L ブラック DVWF1-BK

Amazonにて、\891。

ギリギリ。

高さもギリギリ。

カテゴリー: その他 | タグ: Amazon, Canon, PowerShot SX50 HS, 散財 | コメントする

Canon PowerShot SX50 HS 購入

投稿日: 2013年9月30日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

Canon デジタルカメラ PowerShot SX50HS 約1210万画素光学50倍ズームブラック PSSX50HS

中古で￥31,800。
Amazonだと￥35,979。

試しに撮影してみてみる。

鳥

なんかザラついている。

リス

カテゴリー: その他 | タグ: Amazon, Canon, PowerShot SX50 HS, 散財 | コメントする

カードリーダ SD/USBポート搭載 GH-CRAD-SUAK購入

投稿日: 2013年9月25日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

GREEN HOUSE Android対応カードリーダ SD/USBポート搭載ブラック GH-CRAD-SUAK

Nexus7で、SDカードを読み込みたくて購入。
Amazonにて、\1,762。

実際にNexus7(旧型)に挿して見た

Nexus7(旧型)からSDカードを読み込む場合、有料アプリの「Nexus Media Importer」を使うのを想定しているらしい。

Nexus 7 （Nexus Media Importer（Homesoft社）を使用した場合に限る)
(http://www.green-house.co.jp/products/pc/cardreader/multi/gh-crad-sua/ より引用)

無料で出来ないか試した所、root化してれば、USB OTG Helper [root]が使えた。

インストールして、開く。

その後、マウントするだけ。

/storage/UsbOtgDrive にマウントされた。

後は任意のアプリでそのパスを見に行くだけ。
ここでは、Photo Editorを使用してみた。ファイル検索を選択し、任意の画像を選択し、編集。

使い終わったら、アンマウント。

カテゴリー: ソフトウェア, モバイル | タグ: Amazon, Android, 散財 | コメントする

インテル PRO/1000 PT デュアルポートサーバ・アダプタ EXPI9402PT 購入

投稿日: 2013年9月16日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

インテル PRO/1000 PT サーバ・アダプタ EXPI9400PT

Amazon.co.jpにて、￥7,100。（実際に購入したのは2013/07/26）
VMwar ESXiなサーバに挿して、冗長構成にしようと思って購入。デュアルポートである必要は全くなかったけど、なんとなく。

NEC Express5800 S70 に挿して、VMware ESXi4で何の問題もなく認識。

カテゴリー: サーバ管理, ハードウェア | タグ: Amazon, ESXi, Express5800, VMWare, 散財 | コメントする

NETGEAR GS108v3 8ポートギガビットスイッチングハブ GS108-300JPS 購入

投稿日: 2013年9月15日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

NETGEAR GS108v3 8ポートギガビットスイッチングハブ (省電力製品) GS108-300JPS (本体ライフタイム保証)

Amazon.co.jpで、￥3,880。

落雷の影響で、ADSLモデムのLANポートと、WR8700NのWAN側ポートが機能しなくなってしまった。
ADSLモデムはレンタル品だったので、交換してもらった。ADSLのLANポートと、WR8700NのLAN側ポートを接続すれば、インターネットには接続できるので暫くはそれで凌ごうと思ったけど、LANポートが不足してしまうので、８ポートのスイッチを購入。
中古のCiscoのCatalyst 3550-12T(ヤフオクで￥5,000くらい)を買っちゃおうかとも思ったけど、置く場所が無いので、コンパクトなこちらに決定。

カテゴリー: ハードウェア | タグ: Amazon, 散財 | コメントする

Twitterの1日分のタイムラインをKindleで読む

投稿日: 2013年5月19日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

時間かけて探せば良い感じのが有りそうだけど、すぐには見つからなかったのでperlで書いてみた。

仕様的なもの。

常駐せずに、１０分おきくらいにcronで動かす。
1日分のtweetは、$timeline_fileに溜め込む。
1日分の切り替えは、Log::Dispatch::FileRotateに任せる。
（微妙にずれる場合もあるけど、細かいことは(ﾟεﾟ)ｷﾆｼﾅｲ!!）
$timeline_fileへの出力は、Log::Log4perl の INFOで。
kindleへ送信するタイミングは、$timeline_fileのサイズが小さくなったら。
（FileRotateで切り替わったらファイルサイズが小さくなるので、それ契機）
kindleへの送信するデータは、htmlファイル。
送信先は、@kindle.com or @free.kindle.com。
（自動的に変換して、端末へ配信してくれる）

gettimeline.pl(gettimeline.zip)

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Encode;
use DateTime;
use DateTime::TimeZone;
use DateTime::Format::DateParse;
use Data::Dumper;
use HTML::Entities;
use MIME::Lite;

use Net::Twitter;
use Log::Log4perl qw(:easy);

# Twitter key and token
my $consumer_key = 'xxxxxxxxxxxxxxxxxxxxx';
my $consumer_secret = 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy';
my $token = 'nnnnnnnnnn-zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz';
my $token_secret = 'sssssssssssssssssssssssssssssssssssssssssss';

# log
my $logfile = '/home/user/tool/twitter.log';
my $timeline_file = '/home/user/tool/timeline.log';

# mail
my $mailfrom = 'xxxx@xxx.xxx';
my $mailto = 'yyyyy@free.kindle.com';

# title
my $title_fmt = 'Twitter_Timeline_%Y-%m-%d(%a)';

my $tid_prefix = '__TID__:';
my $tz = DateTime::TimeZone->new(name => 'local');

&loginit;

&main;

exit;

sub main{
my $filesize = -s $timeline_file;

&gettl;

if($filesize > -s $timeline_file){
say 'send to kindle';
&send2kindle;
}
}

sub send2kindle{
my $dt = DateTime->now(time_zone => $tz);
$dt->subtract(days => 1);
my $title = $dt->strftime($title_fmt);
my $fname = $title . '.html';

my $timeline_file1 = $timeline_file . '.1';
open my $fh, '<', "$timeline_file1"
or die "failed to open file: $!";
my $rawdata = do { local $/; <$fh> };

my @rawdata_array = grep(!/^$tid_prefix \d+$/, split(/\n/, $rawdata));

my $htmldata = <<_HEADER_;
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<h3>$title</h3>
<pre>
_HEADER_

$htmldata .= Encode::decode_utf8(join("\n", @rawdata_array));

$htmldata .= <<_FOOTER_;
</pre>
</body>
</html>
_FOOTER_

my $subject = $title;

my $msg = MIME::Lite->new(
From => "$mailfrom",
To => "$mailto",
Subject => "$subject",
Type => 'multipart/mixed'
);
$msg->attach(
Type => 'text/plain; charset="iso-2022-jp"',
Data => "no body"
);
$msg->attach(
Type => 'text/html',
Data => "$htmldata",
Filename => "$fname",
Disposition => 'attachment'
);
$msg->attr('content-type.charset' => 'UTF-8');

# WARN Dumper($msg);
# WARN $htmldata;

$msg->send();

}

sub gettl{
my $nt = Net::Twitter->new(
traits => [qw/OAuth API::REST/],
consumer_key => $consumer_key,
consumer_secret => $consumer_secret,
access_token => $token,
access_token_secret => $token_secret,
);

# WARN "TWEET: " . $tweet;

my @tl = $nt->home_timeline({count => 200});

my @rtl = reverse(@{$tl[0]});

my $tail_cmd = "tail -2 $timeline_file";
my $grep_cmd = "grep -e "$tid_prefix [0-9]\\+"";
my $sed_cmd = "sed -r "s/[^0-9]+([0-9]+)/\\1/"";
my $lastid = `$tail_cmd | $grep_cmd | $sed_cmd`;
chomp $lastid;

if($lastid){
for my $i (0 .. $#rtl) {
if($lastid eq $rtl[$i]->{id}){
#say "0 -> " . $i . " ($#rtl)";
splice(@rtl, 0, $i+1);
#say " -> " . $#rtl;
last;
}
}
}

my $id = '';
foreach my $t(@rtl){
WARN $t->{id};
$id = $t->{id};
my $s = &mklinktag($t->{text});
my $dt = DateTime::Format::DateParse->parse_datetime($t->{created_at});
$dt->set_time_zone($tz);

INFO encode_utf8($t->{user}{name}) .
' (<a href="https://twitter.com/' . $t->{user}{screen_name} . '">' .
'@' . $t->{user}{screen_name} . '</a>)' . "\n" .
encode_utf8($s) . "\n" .
$dt->strftime('(%Y/%m/%d %H:%M:%S)') . "\n";
# WARN Dumper($t);
WARN Dumper($s);
}
INFO "$tid_prefix " . $id . "\n" if $id;
}

sub mklinktag{
my ($s) = @_;

$s = encode_entities($s, q{&<>"'});

$s =~ s!(https?://)([0-9a-zA-Z/\.]+)!<a href="$1$2">$2</a>!go;

$s =~ s!@([a-zA-Z0-9_]+)!<a href="https://twitter.com/$1">\@$1</a>!go;

$s;
}

sub loginit{
my $logsize = 10*1024*1024;
Log::Log4perl->init(\ qq{
log4perl.logger = INFO, AppError, Tweet

# filter range
log4perl.filter.MatchRange = Log::Log4perl::Filter::LevelRange
log4perl.filter.MatchRange.LevelMin = WARN
log4perl.filter.MatchRange.LevelMax = ERROR
log4perl.filter.MatchRange.AcceptOnMatch = true

# Error appender
log4perl.appender.AppError = Log::Dispatch::FileRotate
log4perl.appender.AppError.filename = $logfile
log4perl.appender.AppError.max = 10
log4perl.appender.AppError.autoflush = 1
log4perl.appender.AppError.size = $logsize
log4perl.appender.AppError.mode = append
log4perl.appender.AppError.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.AppError.layout.ConversionPattern = %d %02X{client} %p %F{1} %L: %m %n
log4perl.appender.AppError.Filter = MatchRange

# Filter to match level WARN
log4perl.filter.MatchInfo = Log::Log4perl::Filter::LevelMatch
log4perl.filter.MatchInfo.LevelToMatch = INFO
log4perl.filter.MatchInfo.AcceptOnMatch = true

# Error appender
log4perl.appender.Tweet = Log::Dispatch::FileRotate
log4perl.appender.Tweet.filename = $timeline_file
log4perl.appender.Tweet.max = 10
log4perl.appender.Tweet.autoflush = 1
log4perl.appender.Tweet.DatePattern = yyyy-MM-dd
log4perl.appender.Tweet.TZ = JST
log4perl.appender.Tweet.mode = append
log4perl.appender.Tweet.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Tweet.layout.ConversionPattern = %m %n
log4perl.appender.Tweet.Filter = MatchInfo
});
}

↑のコードで送信されたファイルのスクリーンショットが↓。

アイコンとかも持って来たほうが見栄えが良いんだろうけど、とりあえずシンプルなこれで使ってみる。

カテゴリー: ソフトウェア, プログラム | タグ: FreeBSD, Kindle, Linux, Perl, Twitter | コメントする

Log4perlでスレッドIDを出力する

投稿日: 2013年5月5日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

Log4perlでスレッドIDを出力する方法が分からなかったのでググったところ、
以下の頁が参考になった。

・Log4perl log rotation in threadpool environment
・Log::Log4perl::MDC – search.cpan.org

#!/usr/bin/perl

use strict;
use warnings;

use threads;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init({level => $INFO, layout => "%d %02X{TID} %p %F{1} %L> %m %n"});

# 標準エラーのバッファリングを止める
use IO::Handle;
STDERR->autoflush;

# メインスレッドを0
Log::Log4perl::MDC->put("TID", '0');

my ($thr1, $thr2, $thr3) = (0) x 3;
$thr1 = threads->create(\&func);
INFO 'threads create: tid='.$thr1->tid();

$thr2 = threads->create(\&func);
INFO 'threads create: tid='.$thr2->tid();

$thr3 = threads->create(\&func);
INFO 'threads create: tid='.$thr3->tid();

$thr1->join();
$thr2->join();
$thr3->join();

sub func{
Log::Log4perl::MDC->put("TID", threads->tid());

INFO 'start';

my $w = int(rand 10);
INFO 'wait: ' . $w;
sleep $w;

INFO 'end';
Log::Log4perl::MDC->remove();
}

↑のスクリプトを実行した場合、↓のような出力が得られる。

% perl log_threads.pl
2013/05/05 00:20:02 01 INFO log_threads.pl 34> start
2013/05/05 00:20:02 00 INFO log_threads.pl 19> threads create: tid=1
2013/05/05 00:20:02 01 INFO log_threads.pl 37> wait: 6
2013/05/05 00:20:03 00 INFO log_threads.pl 22> threads create: tid=2
2013/05/05 00:20:03 02 INFO log_threads.pl 34> start
2013/05/05 00:20:03 02 INFO log_threads.pl 37> wait: 2
2013/05/05 00:20:03 00 INFO log_threads.pl 25> threads create: tid=3
2013/05/05 00:20:03 03 INFO log_threads.pl 34> start
2013/05/05 00:20:03 03 INFO log_threads.pl 37> wait: 3
2013/05/05 00:20:05 02 INFO log_threads.pl 40> end
2013/05/05 00:20:06 03 INFO log_threads.pl 40> end
2013/05/05 00:20:08 01 INFO log_threads.pl 40> end

カテゴリー: プログラム | タグ: Perl | コメントする

標準SIMをカットしてmicroSIMに・・・失敗

投稿日: 2013年3月11日作成者: webmaster

この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m

・IIJmioの標準SIM(ミニマムスタートプラン契約)
・SC-03E(SIMの形状はmicroSIM)
が手元にあったので、SC-03Eでも使えるか(テザリング等も含めて)試してみたくなった。

標準SIMをmicroSIMにカットするのは問題ないか調べた所、IIJmioさんが以下の発言をされていた。

@cl_flf_lc はい、Nexus 7はmicroSIMです。SIMのカット行為については、お客様のリスクで行っていただく分には弊社としては特に構いません。SIMの破損による再発行は有償（2,100円）となりますので、その点はご承知おきください。

— IIJmioさん (@iijmio) 2013年2月10日

とカットする事についてはご自由にどうぞと。カットしたSIMの契約を解除するとき、SIMカードの返却は？手数料掛かる？ってのも心配になったけど、IIJmioの公式HPのFAQに