過去のトラックバックのデータが壊れていたので修復
2008-04-10-3
[ThisSite][Programming]
先日のサーバ移転[2008-03-16-1]により、それ以前に頂いたトラックバックのデータが壊れていたので修復しました。
以下、修復に用いた使い捨てスクリプト。
tb-standalone のコードを削りに削って作りました。
ざっと見れば、分かる人には、何が問題だったのかが分かります。
ref.
- [を] Perl の Storable モジュールのメモ[2006-05-09-2]
- 技術文書:くっつきトラックバック
http://ta2o.net/doc/tech/kuttuki-trackback.html
以下、修復に用いた使い捨てスクリプト。
tb-standalone のコードを削りに削って作りました。
ざっと見れば、分かる人には、何が問題だったのかが分かります。
#!/usr/bin/perl use strict; use warnings; my $fn = shift @ARGV; my $data = load_data($fn); store_data($fn, $data); sub load_data { my ($fn) = @_; require Storable; scalar eval { Storable::retrieve($fn) } || []; } sub store_data { my($fn, $data) = @_; require Storable; Storable::nstore($data, $fn); }
ref.
- [を] Perl の Storable モジュールのメモ[2006-05-09-2]
- 技術文書:くっつきトラックバック
http://ta2o.net/doc/tech/kuttuki-trackback.html