script/tool/ywinfo2meta.pl

#!/usr/bin/perl
use strict;
my $dir = './';
opendir INFOBASE, $dir;
my @key = grep {s/^([0-9A-Fa-f]+)\.txt$/$1/} readdir INFOBASE;
close INFOBASE;
use Time::Local;

my %meta;
for my $key (@key) {
  open INFO, $dir.$key.'.txt';
  local $/ = undef;
  $key =~ s/([0-9A-Fa-f]{2})/chr hex $1/ge;
  for (split /\x0D?\x0A/, <INFO>) {
    my ($name => $value) = split /=/, $_, 2;
    if ($name eq 'LastModified' && $value =~ /... (...) ([\d\s]{2}) (\d\d):(\d\d):(\d\d) (\d{4})/) {
      $value = timegm ($5,$4,$3,$2,{qw/Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9 Nov 10 Dec 11/}->{$1},$6-1900);
    } elsif ($name eq 'IsFrozen' && !$value) {
      $value = undef;
    }
    $meta{$name}->{$key} = $value if length $value;
  }
  close INFO;
}

for my $name (keys %meta) {
  my $ename = $name; $ename =~ s/(.)/sprintf '%02X', ord $1/ge;
  open META, "> ${dir}mt--${ename}.dat";
  binmode META;
  print META "#?SuikaWikiMetaInfo/0.9\n\x02".join "\x1E", map {$_."\x1F".$meta{$name}->{$_}} keys %{$meta{$name}};
  close META;
}

=head1 NAME

ywinfo2meta.pl --- SuikaWiki: InfoBase of YukiWiki2 to Meta-information database
of Yuki::YukiWikiDBMeta converter

=head1 DESCRIPTION

This script converts information database of YukiWiki2 (implemented with Yuki::YukiWikiDB)
to meta-information database of Yuki::YukiWikiDBMeta.

=head1 USAGE

 $ cd /peth/to/infobase
 $ perl ykwinfo2meta.pl
 (You can find files named as ./mt--[keyname].dat)

=head1 LICENSE

Copyright 2003 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut
1	w	1.1	#!/usr/bin/perl
2			use strict;
3			my $dir = './';
4			opendir INFOBASE, $dir;
5			my @key = grep {s/^([0-9A-Fa-f]+)\.txt$/$1/} readdir INFOBASE;
6			close INFOBASE;
7			use Time::Local;
8
9			my %meta;
10			for my $key (@key) {
11			open INFO, $dir.$key.'.txt';
12			local $/ = undef;
13			$key =~ s/([0-9A-Fa-f]{2})/chr hex $1/ge;
14			for (split /\x0D?\x0A/, <INFO>) {
15			my ($name => $value) = split /=/, $_, 2;
16			if ($name eq 'LastModified' && $value =~ /... (...) ([\d\s]{2}) (\d\d):(\d\d):(\d\d) (\d{4})/) {
17			$value = timegm ($5,$4,$3,$2,{qw/Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9 Nov 10 Dec 11/}->{$1},$6-1900);
18			} elsif ($name eq 'IsFrozen' && !$value) {
19			$value = undef;
20			}
21			$meta{$name}->{$key} = $value if length $value;
22			}
23			close INFO;
24			}
25
26			for my $name (keys %meta) {
27			my $ename = $name; $ename =~ s/(.)/sprintf '%02X', ord $1/ge;
28			open META, "> ${dir}mt--${ename}.dat";
29			binmode META;
30			print META "#?SuikaWikiMetaInfo/0.9\n\x02".join "\x1E", map {$_."\x1F".$meta{$name}->{$_}} keys %{$meta{$name}};
31			close META;
32			}
33
34			=head1 NAME
35
36			ywinfo2meta.pl --- SuikaWiki: InfoBase of YukiWiki2 to Meta-information database
37			of Yuki::YukiWikiDBMeta converter
38
39			=head1 DESCRIPTION
40
41			This script converts information database of YukiWiki2 (implemented with Yuki::YukiWikiDB)
42			to meta-information database of Yuki::YukiWikiDBMeta.
43
44			=head1 USAGE
45
46			$ cd /peth/to/infobase
47			$ perl ykwinfo2meta.pl
48			(You can find files named as ./mt--[keyname].dat)
49
50			=head1 LICENSE
51
52			Copyright 2003 Wakaba <w@suika.fam.cx>
53
54			This program is free software; you can redistribute it and/or
55			modify it under the same terms as Perl itself.
56
57			=cut