From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 17 Aug 2013 14:07:08 +0000 (+0100)
Subject: success msgs
X-Git-Tag: debian/0.3~18
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=f6adbeeb7dd31aed580439d23ce551dd4fc4023c;hp=2db9f64513a8d834d3c8ebbda397dab7b98fdb84

success msgs
---

diff --git a/dgit b/dgit
index b633c10a..a2f3eae0 100755
--- a/dgit
+++ b/dgit
@@ -524,7 +524,7 @@ sub clone ($) {
     }
     fetch_from_archive() or die;
     runcmd @git, qw(reset --hard), lrref();
-    print "ready for work in $dstdir\n";
+    print "dgit ok: ready for work in $dstdir\n";
 }
 
 sub fetch () {
@@ -532,12 +532,14 @@ sub fetch () {
 	git_fetch_us();
     }
     fetch_from_archive() or die;
+    print "dgit ok: fetched into ".lrref()."\n";
 }
 
 sub pull () {
     fetch();
     runcmd_ordryrun @git, qw(merge -m),"Merge from $suite [dgit]",
         lrref();
+    print "dgit ok: fetched to ".lrref()." and merged into HEAD\n";
 }
 
 sub dopush () {
@@ -593,6 +595,7 @@ sub dopush () {
     my $host = access_cfg('upload-host');
     my @hostarg = defined($host) ? ($host,) : ();
     runcmd_ordryrun @dput, @hostarg, $changesfile;
+    print "dgit ok: pushed and uploaded $dsc->{Version}\n";
 }
 
 sub cmd_clone {