make push to update MKWS docs on the main website

diff --git a/doc/Makefile b/doc/Makefile
index 2a6b99b..d87c1f8 100644 (file)
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -45,9 +45,16 @@ all: $(DOCS)
 
 clean:
        rm -f $(DOCS)
+       rm -f *.drupal.html
 
 distclean: clean uninstall
 
+push:
+       pandoc --toc README.markdown > README.drupal.html
+       pandoc --toc mkws-manual.markdown > mkws-manual.drupal.html
+       cat README.drupal.html | ./drupaljson.pl | curl --upload-file - http://www.indexdata.com/script/node/332?services_token=cda1e26e5733ce3f604773e94f0721df5c31a948 -v --header "Content-Type:application/json"
+       cat mkws-manual.drupal.html | ./drupaljson.pl | curl --upload-file - http://www.indexdata.com/script/node/323?services_token=cda1e26e5733ce3f604773e94f0721df5c31a948 -v --header "Content-Type:application/json"
+
 help:
-       @echo "make [ all | install | clean | distclean ]"
+       @echo "make [ all | install | clean | distclean | push ]"
 

diff --git a/doc/drupaljson.pl b/doc/drupaljson.pl
new file mode 100755 (executable)
index 0000000..0135867
--- /dev/null
+++ b/doc/drupaljson.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use JSON;
+
+local $/; # enable localized slurp mode
+my %rec_hash = ('body' => {'und' => [{'value' => <STDIN>}]});
+my $json = encode_json \%rec_hash;
+print $json;