Date: Fri, 21 Aug 2015 15:43:31 GMT From: roam@FreeBSD.org To: svn-soc-all@FreeBSD.org Subject: socsvn commit: r290019 - soc2015/roam/ports Message-ID: <201508211543.t7LFhVGM051028@socsvn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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"; }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201508211543.t7LFhVGM051028>