gate/2008/sw3listsplit.pl

#!/usr/bin/perl

use lib qw[/home/httpd/html/www/markup/html/whatpm
           /home/wakaba/work/manakai2/lib
           /home/httpd/html/swe/lib/];

use strict;

require SWE::DB::VersionControl;
my $vc = SWE::DB::VersionControl->new;

require SWE::DB::SuikaWiki3PageList;
my $sw3_pages = SWE::DB::SuikaWiki3PageList->new;
$sw3_pages->{file_name} = 'data/sw3pages.txt';

require SWE::DB::SuikaWiki3PageList2;
my $sw3_pages2 = SWE::DB::SuikaWiki3PageList2->new;
$sw3_pages2->{root_directory_name} = 'data/sw3pages/';
$sw3_pages2->{version_control} = $vc;

$sw3_pages->_load_data;

for (keys %{$sw3_pages->{data}}) {
  $sw3_pages2->set_data ($_ => $sw3_pages->{data}->{$_});
}

$sw3_pages2->save_data;

$vc->commit_changes ('generated from ' . $sw3_pages->{file_name});
1	#!/usr/bin/perl
2
3	use lib qw[/home/httpd/html/www/markup/html/whatpm
4	/home/wakaba/work/manakai2/lib
5	/home/httpd/html/swe/lib/];
6
7	use strict;
8
9	require SWE::DB::VersionControl;
10	my $vc = SWE::DB::VersionControl->new;
11
12	require SWE::DB::SuikaWiki3PageList;
13	my $sw3_pages = SWE::DB::SuikaWiki3PageList->new;
14	$sw3_pages->{file_name} = 'data/sw3pages.txt';
15
16	require SWE::DB::SuikaWiki3PageList2;
17	my $sw3_pages2 = SWE::DB::SuikaWiki3PageList2->new;
18	$sw3_pages2->{root_directory_name} = 'data/sw3pages/';
19	$sw3_pages2->{version_control} = $vc;
20
21	$sw3_pages->_load_data;
22
23	for (keys %{$sw3_pages->{data}}) {
24	$sw3_pages2->set_data ($_ => $sw3_pages->{data}->{$_});
25	}
26
27	$sw3_pages2->save_data;
28
29	$vc->commit_changes ('generated from ' . $sw3_pages->{file_name});