fukaz55 :: blosxomのwritebackのデータファイルの日付を修正するスクリプト

2006/04/08

晴時々曇

[Diary] blosxomのwritebackのデータファイルの日付を修正するスクリプト

　必要があったので、blosxomのwritebackプラグインが作るデータファイルの更新時刻を、実際にそのデータファイルが書き込まれた時間に修正するスクリプトを書きました（いきなり）。

こんな時に使うために作りました：

writebackを更新時刻順に並べて表示するようなプラグイン(recentwritebacks_tree とか)を使っていて、

スパム書き込みや文字化けトラックバックを削除したりするとwritebackデータファイルの更新時刻が変わってしまうので、

更新時刻順の表示が壊れてしまうので困る、と思った時

ブログを別サーバに移転する時、FTPでアップロードするとwritebackデータファイルの更新日付が変わってしまうので、

更新時刻順の表示が壊れてしまうので困る、と思った時

#!/usr/local/bin/perl
use File::Find;
use File::Basename;
use FileHandle;
use CGI qw/:standard :no_xhtml/;

my $fh = new FileHandle;
my $writeback_dir = "(blosxomが置いてある絶対パス)/plugins/states/writebacks";

print header(-type => 'text/plain', -charset => 'Shift-JIS');

# 検索実行
  print "target directory: $writeback_dir\n";
  find(\&touchWriteBackFile, $writeback_dir);
  print "done.\n";

sub touchWriteBackFile {
# WriteBackのファイルを読み込み、一番最後に出てくる date の値を更新日とする
  $fh->open($File::Find::name);
  my @data = <$fh>;
  chomp(@data);
  $fh->close();

# ケツから読めば一番最初の date が最新だという理屈
  my @datelist = grep(/^date:/, reverse(@data));
  return if (!@datelist);
  my $update_date = $datelist[0];
  $update_date =~ s/date:(\d*)$/$1/;

# 時刻が date と違う場合、修正を実行
  if ($update_date != (stat $File::Find::name)[9]) {
    utime $update_date, $update_date, $File::Find::name;
    my @st = localtime($update_date);
    print $File::Find::name, " up to date ", sprintf("%04d/%02d/%02d %02d:%02d:%02d", $st[5] + 1900, $st[4] + 1, $st[3], $st[2], $st[1], $st[0]), ".\n";
  } else {
    print $File::Find::name, " is already updated.\n";
  }
}

Posted at 00:00 | WriteBacks (0) | permalink

WriteBacks

TrackBack ping me at

http://fukaz55.main.jp/diary/updatewb.trackback

- 本を持って席を立ったら、トイレに行ったと思って下さい（挨拶）

2006/04/08

晴時々曇

[Diary] blosxomのwritebackのデータファイルの日付を修正するスクリプト