socsvn commit: r290019 - soc2015/roam/ports

[roam at FreeBSD.org]

Author: roam
Date: Fri Aug 21 15:43:31 2015
New Revision: 290019
URL: http://svnweb.FreeBSD.org/socsvn/?view=rev&rev=290019

Log:
  ports/update.pl: diagnostics cosmetics.
  
  ObQuote:	"Nothing to see here, move along"

Modified:
  soc2015/roam/ports/update.pl

Modified: soc2015/roam/ports/update.pl
==============================================================================
--- soc2015/roam/ports/update.pl	Fri Aug 21 15:43:01 2015	(r290018)
+++ soc2015/roam/ports/update.pl	Fri Aug 21 15:43:31 2015	(r290019)
@@ -15,6 +15,8 @@
 	my ($base, $tgt) = ('.', '/usr/ports');
 
 	my @ports = find_ports $base;
+	say '===> Processing '.scalar(@ports)." ports:".
+	    join '', map "\n  $_", sort @ports;
 	process_port $_, $base, $tgt for @ports;
 }
 
@@ -51,24 +53,26 @@
 	my ($basename, $tgtname) = ("$base/$port", "$tgt/$port");
 	my $baseabs = abs_path($basename);
 
+	say "\n===> $port: $basename -> $tgtname";
 	if (-l $tgtname) {
 		my $lname = readlink $tgtname or die "readlink($tgtname): $!\n";
 		if (abs_path($lname) ne $baseabs) {
 			die "FIXME: remove $tgtname to be replaced by a symlink to $baseabs";
 		}
-		else { say "RDBG just fine: $tgtname is a symlink to $baseabs"; }
+		else { say "just fine: $tgtname is a symlink to $baseabs"; }
 	} elsif (-d $tgtname) {
 		my @cmd = ('rsync', '-av', '--delete', '--', "$baseabs/", "$tgtname/");
 		my $res = system { $cmd[0] } @cmd;
 		if (!WIFEXITED($res) || WEXITSTATUS($res) != 0) {
 			die "@cmd failed\n";
 		}
-		say "RDBG just fine: rsynced $baseabs to $tgtname successfully";
+		say "just fine: rsynced $baseabs to $tgtname successfully";
 	} elsif (-e $tgtname) {
 		unlink $tgtname or die "unlink($tgtname): $!\n";
 	}
 
 	if (! -e $tgtname) {
+		say "creating a symlink: $baseabs -> $tgtname";
 		symlink $baseabs, $tgtname or
 		    die "symlink($baseabs, $tgtname): $!\n";
 	}