From: Benoit Person <benoit.per...@ensimag.fr>
The #7 issue on git-mediawiki's issue tracker [1] states that the ability to
preview content without pushing would be a nice thing to have.
This commit is a first attempt to achieve it. It adds a new git command,
named `git mw`. This command accepts the subcommands `help` and `preview`
for now.
The default behaviour for the `preview` subcommand is:
1- Find the remote name of the current branch's upstream and check if it's a
wiki one with its url (ie: mediawiki://)
2- Parse the content of the local file (given as argument) using the distant
wiki's API.
3- Retrieve the current page on the distant mediawiki.
4- Merge those those contents.
5- Convert relative links to absolute ones.
6- Save the result on disk.
The command also accepts argument for more controls:
--autoload | -a tries to launch the newly generated file in the user's
default browser
--remote | -r provides a way to select the distant mediawiki in which the
user wants to preview his file.
--output | -o enables the user to choose the output filename. Default output
filename is based on the input filename in which the extension
`.mw` is replaced with `.html`.
It works but a couple of points trouble me:
1- I had to copy two functions from `git-remote-mediawiki.perl`, I don't
really know how we could "factorize" those things ? I don't think it makes
much sense to create a package just for them ?
2- The current behavior is to crash if the current branch do not have an
upstream branch on a valid mediawiki remote. To find that specific remote,
it runs `git rev-parse --symbolic-full-name @{upstream}` which will return
something like `/refs/remotes/$remote_name/master`.
2a- maybe there is a better way to find that remote name ?
2b- would it be useful to add a fallback if that search fails ? searching
for a valid mediawiki remote url in all the remotes returned by
`git remote` for instance ?
3- The current idea of merging the content of the mediawiki's current page
with new content fails when the page is a local creation. (Hence the
error message when we get a bad result from the `get` call l.129). I
thought about two ways to overcome this:
3a- Use the wiki's homepage for the template.
3b- A two-step process:
- first we create a general template (based on the wiki's homepage)
with a specific flag at the content position. This step is done only
if that template do not exists locally.
- replace the specific flag with the newly parsed content.
The downfall of those two "solutions" is on links like 'talk',
'view source' etc ... those will need to be updated to. And evven then,
it will still fails for page created only locally.
4- In the Makefile, there is certainly a more "Makefily" way to do it but I
had no luck finding it and still preserving the factorization for the
`build`, `install` and `clean` target. I ended up with something like this:
build: $(BUILD_SCRIPTS)
$(BUILD_SCRIPTS):
$(MAKE) -C $(GIT_ROOT_DIR) SCRIPT_PERL=$@ \
build-perl-script
install: ...
clean: ...
but clearly, for only two scripts, it's more a refucktoring than a
refactoring :/ .
[1] https://github.com/moy/Git-Mediawiki/issues/7
Signed-off-by: Benoit Person <benoit.per...@ensimag.fr>
Signed-off-by: Matthieu Moy <matthieu....@grenoble-inp.fr>
---
contrib/mw-to-git/Makefile | 4 +
contrib/mw-to-git/git-mw.perl | 249 ++++++++++++++++++++++++++++++++++++++++++
2 files changed, 253 insertions(+)
create mode 100644 contrib/mw-to-git/git-mw.perl
diff --git a/contrib/mw-to-git/Makefile b/contrib/mw-to-git/Makefile
index f149719..0cba1e3 100644
--- a/contrib/mw-to-git/Makefile
+++ b/contrib/mw-to-git/Makefile
@@ -5,13 +5,17 @@
## Build git-remote-mediawiki
SCRIPT_PERL=git-remote-mediawiki.perl
+SCRIPT_PERL_MW=git-mw.perl
GIT_ROOT_DIR=../..
HERE=contrib/mw-to-git/
SCRIPT_PERL_FULL=$(patsubst %,$(HERE)/%,$(SCRIPT_PERL))
+SCRIPT_PERL_MW_FULL=$(patsubst %,$(HERE)/%,$(SCRIPT_PERL_MW))
all: build
build install clean:
$(MAKE) -C $(GIT_ROOT_DIR) SCRIPT_PERL=$(SCRIPT_PERL_FULL) \
$@-perl-script
+ $(MAKE) -C $(GIT_ROOT_DIR) SCRIPT_PERL=$(SCRIPT_PERL_MW_FULL) \
+ $@-perl-script
\ No newline at end of file
diff --git a/contrib/mw-to-git/git-mw.perl b/contrib/mw-to-git/git-mw.perl
new file mode 100644
index 0000000..a92c459
--- /dev/null
+++ b/contrib/mw-to-git/git-mw.perl
@@ -0,0 +1,249 @@
+#! /usr/bin/perl
+
+# Copyright (C) 2013
+# Benoit Person <benoit.per...@ensimag.imag.fr>
+# Celestin Matte <celestin.ma...@ensimag.imag.fr>
+# License: GPL v2 or later
+
+# Tools attached to git-remote-mediawiki (help, preview ...)
+# Documentation & bugtracker: https://github.com/moy/Git-Mediawiki/
+
+use strict;
+use warnings;
+
+use Git;
+use MediaWiki::API;
+
+use Getopt::Long;
+use HTML::TreeBuilder;
+use URI::URL qw(url);
+use IO::File;
+use LWP::Simple;
+use Carp;
+use Readonly;
+
+# Constants
+# Mediawiki filenames can contain forward slashes. This variable decides by
which pattern they should be replaced
+Readonly::scalar $SLASH_REPLACEMENT => "%2F";
+
+# Vars
+my $file_name;
+my $wiki;
+my $remote_url;
+
+my $remote_name = '';
+my $preview_file_name = '';
+my $autoload = 0;
+
+my %commands = (
+ 'help' =>
+ [\&help, {}, \&help_help],
+ 'preview' =>
+ [\&preview, {
+ '<>' => \&file,
+ 'output|o=s' => \$preview_file_name,
+ 'remote|r=s' => \$remote_name,
+ 'autoload|a' => \$autoload
+ }, \&preview_help]
+);
+
+sub file {
+ $file_name = shift;
+ return $file_name;
+}
+
+# Search for sub-command
+my $cmd = $commands{'help'};
+for (my $i = 0; $i < @ARGV; $i++) {
+ if (defined $commands{$ARGV[$i]}) {
+ $cmd = $commands{$ARGV[$i]};
+ splice @ARGV, $i, 1;
+ last;
+ }
+};
+GetOptions( %{$cmd->[1]},
+ 'help|h' => \&{$cmd->[2]});
+
+# Launch command
+&{$cmd->[0]};
+
+######################## Sub-Commands #############################
+sub preview {
+ my $wiki_page_name;
+ my ($content, $content_tree, $template, $html_tree, $mw_content_text);
+
+ # file_name argumeent is mandatory
+ if (! defined $file_name) {
+ croak "File not set, see `git mw help` \n";
+ }
+
+ if (! -e $file_name) {
+ croak "File $file_name does not exist \n";
+ }
+
+ # Default preview_file_name is file_name with .html ext
+ if ($preview_file_name eq '') {
+ $preview_file_name = $file_name;
+ $preview_file_name =~ s/\.[^.]+$/.html/;
+ }
+
+ # Transform file_name into a mediawiki page name
+ $wiki_page_name = mediawiki_smudge_filename($file_name);
+ $wiki_page_name =~ s/\.[^.]+$//;
+
+ # Find or verify remote name
+ if ($remote_name eq '') {
+ $remote_name = git_cmd_try {
+ Git::command_oneline('rev-parse',
'--symbolic-full-name', '@{upstream}') }
+ "%s failed w/ code %d";
+ $remote_name =~ s/refs\/remotes\/(.+)\/(.+)/$1/
+ or croak "Could not find remote name";
+ } else {
+ my @remotes = git_cmd_try {
+ Git::command('remote') }
+ "%s failed w/ code %d";
+ grep { $_ eq $remote_name } @remotes
+ or croak "$remote_name is not a remote";
+ }
+
+ # Find remote url
+ $remote_url = git_cmd_try {
+ Git::config("remote.$remote_name.url") }
+ "%s failed w/ code %d";
+ $remote_url =~ s/mediawiki::(.*)/$1/
+ or croak "Current remote is not a mediawiki";
+ $remote_url = url($remote_url)->canonical;
+
+ # Create and connect to the wiki if necessary
+ $wiki = MediaWiki::API->new;
+ $wiki->{config}->{api_url} = "$remote_url/api.php";
+ mw_connect_maybe();
+
+ # Read file content
+ open my $fh, "<", $file_name
+ or croak "could not open $file_name: $!";
+ my $document = do { local $/ = undef; <$fh> };
+ close $fh;
+
+ # Load template page
+ $template = get("$remote_url/index.php?title=$wiki_page_name")
+ or croak "You need to create $wiki_page_name before previewing
it";
+ $html_tree = HTML::TreeBuilder->new;
+ $html_tree->parse($template);
+
+ # Load new content
+ $content = $wiki->api({
+ action => 'parse',
+ text => $document,
+ title => $wiki_page_name
+ }) or croak 'No response from distant mediawiki';
+ $content = $content->{'parse'}->{'text'}->{'*'};
+ $content_tree = HTML::TreeBuilder->new;
+ $content_tree->parse($content);
+
+ # Replace old content with new one
+ $mw_content_text = $html_tree->look_down('id', 'mw-content-text');
+ $mw_content_text->delete_content();
+ $mw_content_text->push_content($content_tree);
+
+ # Transform relative links into absolute ones
+ for (@{ $html_tree->extract_links() }) {
+ my ($link, $element, $attr) = @$_;
+ my $url = url($link)->canonical;
+ $element->attr($attr, URI->new_abs($url, $remote_url));
+ }
+
+ # Save the preview file
+ $fh = IO::File->new($preview_file_name, O_WRONLY|O_CREAT)
+ or croak "Could not open: $!";
+ $fh->print($html_tree->as_HTML);
+
+ # Auto-loading in browser
+ if ($autoload) {
+ open(my $browser, "-|:encoding(UTF-8)", "xdg-open
".$preview_file_name);
+ my $res = do { local $/ = undef; <$browser> };
+ close($browser);
+ } else {
+ print "preview file saved as: $preview_file_name\n";
+ }
+
+ exit;
+}
+
+######################## Help Functions ###########################
+
+sub help {
+ print <<'END';
+usage: git mw <command> <args>
+
+git mw commands are:
+ Help Display help information about git mw
+ preview Render a local file into an HTML file
+END
+ exit;
+}
+
+sub help_help {
+ print <<'END';
+usage: git mw help
+END
+ exit;
+}
+
+sub preview_help {
+ print <<'END';
+usage: git mw preview [--remote|-r <remote name>] [--autoload|-a]
+ [--output|-o <output filename>] <filename>
+
+ -r, --remote Specify which mediawiki should be used
+ -o, --output Name of the output file
+ -a, --autoload Try to autoload the page in the default browser
+END
+ exit;
+}
+
+########################## Functions ##############################
+
+sub mediawiki_smudge_filename {
+ my $filename = shift;
+ $filename =~ s/\//@{[$SLASH_REPLACEMENT]}/gx;
+ $filename =~ s/ /_/g;
+ # Decode forbidden characters encoded in mediawiki_clean_filename
+ $filename =~ s/_%_([0-9a-fA-F][0-9a-fA-F])/sprintf("%c", hex($1))/gex;
+ return $filename;
+}
+
+sub mw_connect_maybe {
+ my ($wiki_login, $wiki_password, $wiki_domain);
+
+ git_cmd_try {
+ $wiki_login = Git::config("remote.$remote_name.mwLogin");
+ $wiki_password = Git::config("remote.$remote_name.mwPassword");
+ $wiki_domain = Git::config("remote.$remote_name.mwDomain");}
+ "%s failed w/ code %d";
+
+ if ($wiki_login) {
+ my %credential = (
+ 'url' => $remote_url,
+ 'username' => $wiki_login,
+ 'password' => $wiki_password);
+ Git::credential(\%credential);
+ my $request = {
+ lgname => $credential{username},
+ lgpassword => $credential{password},
+ lgdomain => $wiki_domain};
+ if ($wiki->login($request)) {
+ Git::credential(\%credential, 'approve');
+ print STDERR "Logged in mediawiki user
\"$credential{username}\".\n";
+ } else {
+ print STDERR "Failed to log in mediawiki user
\"$credential{username}\" on $remote_url\n";
+ print STDERR " (error " .
+ $wiki->{error}->{code} . ': ' .
+ $wiki->{error}->{details} . ")\n";
+ Git::credential(\%credential, 'reject');
+ exit 1;
+ }
+ }
+
+ return;
+}
\ No newline at end of file
--
1.8.3.rc3.7.gc2f33ed.dirty
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majord...@vger.kernel.org
More majordomo info at http://vger.kernel.org/majordomo-info.html
