SWE/DB/SuikaWiki3LastModified.pm

package SWE::DB::SuikaWiki3LastModified;
use strict;

require Encode::EUCJPSW;

sub new ($) {
  my $self = bless {
    file_name => 'lastmodified.dat',
  }, shift;
} # new

sub _load_data ($) {
  my $self = shift;

  open my $file, '<', $self->{file_name} or die "$0: $self->{file_name}: $!";
  local $/ = undef;
  my $val = <$file>;
  close $file;

  if ($val =~ s!^\#\?SuikaWikiMetaInfo/0.9[^\x02]*\x02!!s) {
    $self->{data} = {map {(Encode::decode ('euc-jp-sw', $_->[0]), $_->[1])}
                     map {[split /\x1F/, $_, 2]} split /\x1E/, $val};
  }

  $self->{data_loaded} = 1;
} # _load_data

sub get_data ($$) {
  my ($self, $page_name) = @_;
  $self->_load_data unless $self->{data_loaded};
  
#  $page_name =~ s/ /\x2F\x2F/g;
  return $self->{data}->{$page_name};
} # get_data

1;
1	package SWE::DB::SuikaWiki3LastModified;
2	use strict;
3
4	require Encode::EUCJPSW;
5
6	sub new ($) {
7	my $self = bless {
8	file_name => 'lastmodified.dat',
9	}, shift;
10	} # new
11
12	sub _load_data ($) {
13	my $self = shift;
14
15	open my $file, '<', $self->{file_name} or die "$0: $self->{file_name}: $!";
16	local $/ = undef;
17	my $val = <$file>;
18	close $file;
19
20	if ($val =~ s!^\#\?SuikaWikiMetaInfo/0.9[^\x02]*\x02!!s) {
21	$self->{data} = {map {(Encode::decode ('euc-jp-sw', $_->[0]), $_->[1])}
22	map {[split /\x1F/, $_, 2]} split /\x1E/, $val};
23	}
24
25	$self->{data_loaded} = 1;
26	} # _load_data
27
28	sub get_data ($$) {
29	my ($self, $page_name) = @_;
30	$self->_load_data unless $self->{data_loaded};
31
32	# $page_name =~ s/ /\x2F\x2F/g;
33	return $self->{data}->{$page_name};
34	} # get_data
35
36	1;