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}); |