#333 Show netdisco-do target device in log message at start

Changes

@@ -1,5 +1,9 @@
 2.036009 - 2017-07-31
 
+  [ENHANCEMENTS]
+
+  * #333 Show netdisco-do target device in log message at start
+
   [BUG FIXES]
 
   * #334 DB schema is not upgraded past v40

bin/netdisco-do

@@ -241,10 +241,17 @@ foreach my $host (@hostlist) {
       subaction => $extra,
     });
 
+    my $actiontext = (
+      ($job->device ? ('['.$job->device->ip.']') : '') .
+      ($job->action eq 'show' ? ('/'.$job->subaction) : '')
+    );
+
     # do job
     my ($status, $log);
     try {
-        info sprintf '%s: started at %s', $action, scalar localtime;
+
+        info sprintf '%s: %s started at %s',
+          $action, $actiontext, scalar localtime;
         ($status, $log) = $worker->$action($job);
     }
     catch {