Maint: Automatic updating of version displayed at http://mj.ucw.cz/

diff --git a/maint/release b/maint/release
index 2d6fd86690d49fa277357d834789cf5635fb6496..437aa9e27c4fcedd7ba24a8c169a954c2075e558 100755 (executable)
--- a/maint/release
+++ b/maint/release
@@ -33,4 +33,10 @@ if ($r->{"do_upload"}) {
        } else {
                print "WARNING: With --notest, no documentation is published!\n";
        }
+
+       print "Updating version at MJ's web\n";
+       $r->Confirm;
+       my $wv = $r->{"VERSION"};
+       `ssh jw "cd web && bin/release-prog libucw $wv"`;
+       die if $?;
 }