add headerless .html and mediawiki importer plugin

[pve-docs.git] / doc-debian / pve-docs-mediawiki-import

diff --git a/doc-debian/pve-docs-mediawiki-import b/doc-debian/pve-docs-mediawiki-import
new file mode 100755 (executable)
index 0000000..a3c13f1
--- /dev/null
+++ b/doc-debian/pve-docs-mediawiki-import
@@ -0,0 +1,124 @@
+#!/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,
+    }
+};
+
+#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});
+}