2016-01-05

2016年の仕事始め

Philippines 仕事

明けましておめでとうございます。

2016年の仕事始めはフィリピンです。
空港を出た瞬間暑いです。日本で着ていたダウンジャケットが邪魔です。
そして、気温だけでなく、街自体も熱気があります。
タクシーの車窓から見える景色も、発展途上な感じでワクワクします。
f:id:yasuaki:20160105223404j:plain

昨夏から仕事で日本とフィリピンを行き来しております。購入済みの6ヶ月定期がもったいないと思う日々でした。
今回は1/13(水)までの滞在です。

今年はさらにビジネスを軌道に乗せるべく、昨年末に日本での仕事をそれなりに引き継いできました。もう後戻りできない、何が何でも成功するという強い意志を持って取り組んでいく所存です。
と、書きながら、戦略や戦術は結構曖昧だったりして(むしろあまり決まってないかも)、ともすると成功の定義も曖昧だったりして(完全にダメなパターンですね)、あるのは勢いだけという感も否めないですが、その辺は試行錯誤しながらやって行けばきっとうまくいくという超楽観的な将来を描いております。

とにかく、なるようになるでしょう！

本年も宜しくお願いします。

2015-11-21

フィリピンで開催のAPECの影響で飛行機が12時間40分遅延

仕事 Philippines

深夜発になったおかげか、離陸待ちなくスムーズに出発したのと、移動時間に眠れたので、時間を有効に使えたと思うべきかもしれません。

飛行機だけで無く、道路も至る所で封鎖されていました。
ここまで大がかりな規制は日本だと考えられない気がするのですごいです。

安倍総理大臣や岸田外務大臣が来られていたそうですが、残念ながら見ることはできませんでした。って、当たり前ですね！

ちなみに、遅延情報と変更後の時刻は数日前にメールで届いていたので大きな問題はありませんでした。さすがJALですね。

マニラ発定刻 11/20 14:50
出発予定 11/21 03:30
成田着定刻 11/20 20:00
到着予定 11/21 08:40
状況 12時間40分出発遅延
APEC首脳閣僚会議開催に伴いマニラ空港発着制限が予想されるため出発に遅延が生じています。マニラ空港の離発着制限が予想されており出発時間が変更となっております。搭乗手続きは00:30から02:30です。

2015-11-04

人生初の胃カメラを体験

ひとりごと

人生初の胃カメラを体験しました。
超絶苦しかったです。

飲み込むときは嘔吐感、いわゆる「オエェッ！」となる感じで、かなりつらい。
カメラを飲み込んでしまったら楽かと思いきや、定期的に同じ感覚が、、、
それとともに終始涙が止まらない。
ただ、胃の中は空っぽなので、吐くことはないです。

検査が原因で喉が腫れたと思われ、数日間痛かったです。
できれば二度とやりたくないですね。。。

ちなみに検査結果は良好でした。

2015-10-28

「-bash: warning: setlocale: LC_CTYPE: cannot change locale (UTF-8)」のエラーが出る

Linux

ログイン時に以下のエラーが出る。

-bash: warning: setlocale: LC_CTYPE: cannot change locale (UTF-8)

/etc/sysconfig/i18n に以下を記述で解決

LC_CTYPE="ja_JP.utf8"

参考
CentOS(6.0)でロケール関係の設定 | cloudpack技術情報サイト

2015-10-01

Perl で Gmail の SMTP からメールを送る、「安全性の低いアプリの許可」設定とFromヘッダの設定

Perl

Perl でメール送信プログラムを作る。
Gmail の SMTP を使います。

use Email::Simple;
use Email::Sender::Simple qw/sendmail/;
use Email::Sender::Transport::SMTP::TLS;
use Encode;

my $sender = Email::Sender::Transport::SMTP::TLS->new(
    host     => 'smtp.gmail.com',
    port     => 587,
    username => 'myaccount@mydomain.com',
    password => 'password',
);

my $email = Email::Simple->create(
    header => [
        From    => '"サポートデスク" <support@mydomain.com>',
        To      => $mailto,
        Subject => encode('MIME-Header-ISO_2022_JP', 'メールのタイトル'),
    ],
    attributes => {
        content_type => 'text/plain',
        charset      => 'ISO-2022-JP',
        encoding     => '7bit',
    },
    body => $body, # メール本文
);

sendmail($email, {transport => $sender});

ここまでは意外とあっさりできた。

以下、ハマったところ。

安全性の低いアプリの許可を有効にする

このやり方では、GoogleAppsアカウントのメールアドレスとパスワードをソースコードに書かねばならない。さすがに自分のアカウントを使用することはできないので、新規にアカウントを発行した。

しかし、新規アカウントでやってみると「Auth failed: 534 5.7.14」というエラーが出て全くうまくいかない。

調べてみたところ、Googleアカウントの設定が必要らしい。

新規で作成したアカウントでGoogleAppsにログイン → 右上のメールアドレス → アカウント → ログインとセキュリティ → 安全性の低いアプリの許可

で、安全性の低いアプリの許可を「有効」にする。

送信元メールアドレスをFromに設定できるようにする

安全性の低いアプリの許可を有効してメールは送れるようになった、めでたしめでたし、と思ったら、よく見るとFromのメールアドレスが新規作成アカウントのメールアドレスに書き換わっている。

Perl上で新規作成アカウントとは別のメールアドレス(今回はサポート用のメールアドレス)をFromに記載しているのに、メールを受信するとFromヘッダが勝手に書き換えられてしまう。
自分のアカウントを使ってテストしているときはできたのに。。。

Gmailで設定の差異を探すこと15分、Gmail上でFromに設定できるメールアドレスでないとダメなことが判明。

Gmail → 設定 → アカウント → 名前 → メールアドレスを追加

で、サポート用のメールアドレスをFromに設定できるようにする。
自分のアカウントではこの設定をしていたのでうまくいってたわけですね。

これでようやく、サポート用のメールアドレスをFromヘッダに設定して、メール送信できるようになりました。めでたしめでたし！

参考：
Perlでgmailからメール送る - XXXannex
email - how to fix "send-mail: Authorization failed 534 5.7.14 " - Server Fault

2015-09-28

Perl で Access-Control-Allow-Origin ヘッダを設定

Perl

Ajaxで外部URLにPOSTしようとしたらChromeで以下のエラー

No 'Access-Control-Allow-Origin' header is present on the requested resource. Origin 'https://domain' is therefore not allowed access.

サーバ側で以下のようにヘッダを追加する必要がある

$self->header_add(
    -access_control_allow_origin    => 'https://domain',
    -access_control_allow_headers   => 'Origin, X-Requested-With, Content-Type, Accept',
);

Access-Control-Allow-Origin ヘッダは「https://*.domain」のようなワイルドカードが使えないようで、複数必要な場合はすべて記述する。

参考:
ajax - Error in chrome: Content-Type is not allowed by Access-Control-Allow-Headers - Stack Overflow
cors - Access-Control-Allow-Origin wildcard subdomains, ports and protocols - Stack Overflow