[Midnightbsd-cvs] mports: magus.pl: Make the log messages a bit more useful

[ctriv at midnightbsd.org]

Log Message:
-----------
Make the log messages a bit more useful

Modified Files:
--------------
    mports/Tools/magus/slave:
        magus.pl (r1.5 -> r1.6)

-------------- next part --------------
Index: magus.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/slave/magus.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -LTools/magus/slave/magus.pl -LTools/magus/slave/magus.pl -u -r1.5 -r1.6
--- Tools/magus/slave/magus.pl
+++ Tools/magus/slave/magus.pl
@@ -171,6 +171,7 @@
       chdir($port->origin);
     
       my $test    = Magus::PortTest->new(port => $port, chroot => $chroot);
+      report('info', "Building $port");
       my $results = $test->run;
   
       insert_results($port, $results);
@@ -215,8 +216,6 @@
   my ($lock, $chroot) = @_;
   
   foreach my $depend ($lock->port->all_depends) {
-    report('debug', "coping $depend package to chroot dir.");
-    
     if ($depend->current_result && ($depend->current_result->summary eq 'pass' || $depend->current_result->summary eq 'warn')) {
       # There should be a package that we can use to install the port.
       copy_pkgfile($depend, $chroot);
@@ -244,7 +243,7 @@
   my $dest = join('/', $chroot->root, $chroot->packages, 'All');
   
   my $cmd = "/usr/bin/scp $Magus::Config{'PkgfilesRoot'}/$arch/$file $dest";
-  report('debug', "downloading: $cmd");
+  report('debug', "downloading: $file");
   
   my $out = `$cmd 2>&1`;
   
@@ -268,7 +267,7 @@
   my $from = join('/', $chroot->root, $chroot->packages, 'All', $file);
           
   my $cmd = "/usr/bin/scp $from $Magus::Config{'PkgfilesRoot'}/$arch/$file";
-  report('debug', "uploading: $cmd");
+  report('debug', "uploading: $arch/$file");
   
   my $out = `$cmd 2>&1`;