+sub GitTag($) {
+ my ($s) = @_;
+ my $tag = 'v' . $s->{'VERSION'};
+ my $force = ($s->{'force_git_tag'} ? '--force' : '');
+ print "Tagging Git repository with $tag\n";
+ `git tag $tag $force`; die if $?;
+ print "Pushing the tags upstream\n";
+ `git push --tags`; die if $?;
+}
+
+sub AddUcwNotifier($) {
+ my ($r) = @_;
+ push @{$r->{"notifiers"}}, sub {
+ my ($s) = @_;
+ print "Updating web pages\n";
+ my $pkg = $s->{'PACKAGE'};
+ my $ver = $s->{'VERSION'};
+ `ssh jw 'cd web && bin/release-prog $pkg $ver'`; die if $?;
+ };
+};
+