From aa5df0954da097e8afc0fdf7346002cd0290a333 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Tue, 28 Jan 2014 23:14:52 +0100
Subject: [PATCH] Maint: Automatic uploads of documentation

---
 maint/release    | 16 +++++++++++-----
 maint/release.pm |  1 +
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/maint/release b/maint/release
index ffc28d01..d43cc7be 100755
--- a/maint/release
+++ b/maint/release
@@ -20,8 +20,14 @@ $r->Test;
 $r->MakeArchive;
 $r->Upload;
 
-# my $tdir = $r->{"TESTDIR"};
-# if (defined $tdir) {
-# } else {
-# 	print "WARNING: With --notest, no documentation is published!\n";
-# }
+if ($r->{"do_upload"}) {
+	my $tdir = $r->{"TESTDIR"};
+	if (defined $tdir) {
+		print "Upload of documentation\n";
+		$r->Confirm;
+		system qw(rsync -avz --delete), "$tdir/obj/ucw/doc/", qw(jw:/var/www/libucw/doc/ --exclude=*.deflist --exclude=*.txt);
+		die if $@;
+	} else {
+		print "WARNING: With --notest, no documentation is published!\n";
+	}
+}
diff --git a/maint/release.pm b/maint/release.pm
index 8b9d2ef9..97906710 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -322,6 +322,7 @@ sub MakePatch($) {
 
 sub Upload($) {
 	my ($s) = @_;
+	$s->{"do_upload"} or return;
 	foreach my $u (@{$s->{"uploads"}}) {
 		my $url = $u->{"url"};
 		print "Upload to $url :\n";
-- 
2.39.2