-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Data::Dumper;
-
-use IO::File;
-use File::Basename;
-use MediaWiki::API;
-
-my $config_fn = "/root/.pve-docs"; # format 'username:pw'
-
-my $fh = IO::File->new("$config_fn") ||
- die "Please configure the mediawiki user/passswd in '$config_fn'\n";
-
-my $api_url = "http://localhost/api.php";
-
-my $config = <$fh>;
-chomp $config;
-
-my ($username, $passwd) = split(':', $config, 2);
-
-my $mw = MediaWiki::API->new();
-$mw->{config}->{api_url} = $api_url;
-
-# log in to the wiki
-$mw->login({ lgname => $username, lgpassword => $passwd })
- || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
-
-sub update_page {
- my ($pagename, $include, $category) = @_;
-
- print "update mediawiki page: $pagename\n";
-
- my $ref = $mw->get_page( { title => $pagename } );
- my $page = $ref->{'*'} || '';
-
- if ($page !~ m/^\{\{#pvedocs:.*\}\}\s*$/m) {
- $page = "{{#pvedocs:$include}}\n$page";
- } else {
- $page =~ s/^\{\{#pvedocs:.*\}\}\s*$/\{\{#pvedocs:$include\}\}\n/m;
- }
-
- if ($category) {
- my $catstr = "Category:$category";
-
- if ($page !~ m/^\[\[$catstr\]\]\s*$/m) {
- $page .= "\n[[$catstr]]\n";
- }
- }
-
- my $timestamp = $ref->{timestamp};
- my $wcmd = {
- action => 'edit',
- title => $pagename,
- basetimestamp => $timestamp, # to avoid edit conflicts
- text => $page,
- };
-
- $mw->edit($wcmd) ||
- die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
-}
-
-my $cat_refdoc = "Reference Documentation";
-
-my $docs = {
- 'chapter-ha-manager-plain.html' => {
- title => "High Availability",
- category => $cat_refdoc,
- },
- 'chapter-sysadmin-plain.html' => {
- title => "Host System Administration",
- category => $cat_refdoc,
- },
- 'chapter-pct-plain.html' => {
- title => "Linux Container",
- category => $cat_refdoc,
- },
- 'chapter-pmxcfs-plain.html' => {
- title => "Proxmox Cluster File System (pmxcfs)",
- category => $cat_refdoc,
- },
- 'chapter-pve-bibliography-plain.html' => {
- title => "Bibliography",
- category => $cat_refdoc,
- },
- 'chapter-pvecm-plain.html' => {
- title => "Cluster Manager",
- category => $cat_refdoc,
- },
- 'chapter-pve-faq-plain.html' => {
- title => "FAQ",
- category => $cat_refdoc,
- },
- 'chapter-pve-firewall-plain.html' => {
- title => "Firewall",
- category => $cat_refdoc,
- },
- 'chapter-pvesm-plain.html' => {
- title => "Storage",
- category => $cat_refdoc,
- },
- 'chapter-pveum-plain.html' => {
- title => "User Management",
- category => $cat_refdoc,
- },
- 'chapter-qm-plain.html' => {
- title => "Qemu/KVM Virtual Machines",
- category => $cat_refdoc,
- },
- 'chapter-vzdump-plain.html' => {
- title => "Backup and Restore",
- category => $cat_refdoc,
- },
- 'qm.conf.5-plain.html' => {
- title => "Manual: vm.conf",
- category => $cat_refdoc,
- },
- 'pct.conf.5-plain.html' => {
- title => "Manual: pct.conf",
- category => $cat_refdoc,
- },
- 'datacenter.cfg.5-plain.html' => {
- title => "Manual: datacenter.cfg",
- category => $cat_refdoc,
- },
- # Storage Plugins
- 'pve-storage-dir-plain.html' => {
- title => "Storage: Directory",
- category => $cat_refdoc,
- },
- 'pve-storage-glusterfs-plain.html' => {
- title => "Storage: GlusterFS",
- category => $cat_refdoc,
- },
- 'pve-storage-iscsidirect-plain.html' => {
- title => "Storage: User Mode iSCSI",
- category => $cat_refdoc,
- },
- 'pve-storage-iscsi-plain.html' => {
- title => "Storage: iSCSI",
- category => $cat_refdoc,
- },
- 'pve-storage-lvm-plain.html' => {
- title => "Storage: LVM",
- category => $cat_refdoc,
- },q
- 'pve-storage-lvmthin-plain.html' => {
- title => "Storage: LVM Thin",
- category => $cat_refdoc,
- },
- 'pve-storage-nfs-plain.html' => {
- title => "Storage: NFS",
- category => $cat_refdoc,
- },
- 'pve-storage-rbd-plain.html' => {
- title => "Storage: RBD",
- category => $cat_refdoc,
- },
- 'pve-storage-zfspool-plain.html' => {
- title => "Storage: ZFS",
- category => $cat_refdoc,
- },
-};
-
-#update_page("testpage1", $filename, $d->{category});
-
-foreach my $filename (keys %$docs) {
- my $path = "/usr/share/pve-docs/$filename";
- die "no such file '$path'" if ! -f $path;
- my $d = $docs->{$filename};
- update_page($d->{title}, $filename, $d->{category});
-}