15 while (<main
::DATA
>) { $data_str .= $_; }
17 my $fileinfo = decode_json
($data_str);
19 my $config_fn = "/root/.pve-docs"; # format 'username:pw'
21 my $fh = IO
::File-
>new("$config_fn") ||
22 die "Please configure the mediawiki user/passswd in '$config_fn'\n";
24 my $api_url = "http://localhost/mediawiki/api.php";
29 my ($username, $passwd) = split(':', $config, 2);
31 my $mw = MediaWiki
::API-
>new();
32 $mw->{config
}->{api_url
} = $api_url;
35 $mw->login({ lgname
=> $username, lgpassword
=> $passwd })
36 || die $mw->{error
}->{code
} . ': ' . $mw->{error
}->{details
};
39 my ($pagename, $filename, $category) = @_;
41 print "update mediawiki page: $pagename\n";
43 my $ref = $mw->get_page( { title
=> $pagename } );
44 my $page = $ref->{'*'} || '';
46 my $pve_content = "<!-- Do not edit - this is autogenerated content -->\n";
48 $pve_content .= "{{#pvedocs:$filename}}\n";
49 $pve_content .= "[[Category:$category]]\n" if $category;
51 my $starttag = '<!--PVE_IMPORT_START_MARKER-->';
52 my $endtag = '<!--PVE_IMPORT_END_MARKER-->';
54 $pve_content .= "<pvehide>\n";
58 text_h
=> [ sub { $pve_content .= shift }, "dtext" ],
60 my $parser = HTML
::Parser-
>new(%$parser_opts);
62 my $fh = IO
::File-
>new("/usr/share/pve-docs/$filename", "r") or
63 die "unable to open file '$filename' - $!\n";
64 while (defined(my $line = <$fh>)) {
65 $parser->parse($line);
67 $pve_content .= "</pvehide>\n";
69 $pve_content =~ s/\s+$//gm;
73 if ($page =~ m/^(.*)$starttag\n.*\n$endtag\n?(.*)$/s) {
74 my ($top_content, $bottom_content) = ($1, $2);
76 $page .= "$starttag\n";
77 $page .= $pve_content;
78 $page .= "\n$endtag\n";
79 $page .= $bottom_content;
80 } elsif ($page =~ m/(.*)\{\{#pvedocs:.*?\}\}(.*)$/) {
82 my ($top_content, $bottom_content) = ($1, $2);
84 chomp $bottom_content;
86 $page .= "$starttag\n";
87 $page .= $pve_content;
88 $page .= "\n$endtag\n";
89 $page .= $bottom_content;
91 $page = "$starttag\n$pve_content\n$endtag\n$page";
94 my $timestamp = $ref->{timestamp
};
98 basetimestamp
=> $timestamp, # to avoid edit conflicts
103 die $mw->{error
}->{code
} . ': ' . $mw->{error
}->{details
};
106 my $cat_refdoc = "Reference Documentation";
110 foreach my $source (sort keys %{$fileinfo->{toplevel
}->{wiki
}}) {
111 my $title = $fileinfo->{titles
}->{wiki
}->{$source};
112 my $filename = $fileinfo->{outfile
}->{wiki
}->{$source} ||
113 die "found no file name mapping for '$source'";
115 my $path = "/usr/share/pve-docs/$filename";
116 die "no such file '$path'" if ! -f
$path;
118 update_page
($title, $filename, $cat_refdoc);
121 # also update 'Get support' page, because this is used since a long
122 # time and is referenced from outside
123 update_page
("Get support", 'getting-help-plain.html', 'HOWTO');