success msgs

diff --git a/dgit b/dgit
index b633c10a38e424287206192eec3ec6c01ce289db..a2f3eae095f8ec45881b55f08088e946ba7ad22f 100755 (executable)
--- 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 {