From owner-svn-soc-all@freebsd.org Fri Aug 21 15:43:32 2015 Return-Path: Delivered-To: svn-soc-all@mailman.ysv.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by mailman.ysv.freebsd.org (Postfix) with ESMTP id 2183E9BFE60 for ; Fri, 21 Aug 2015 15:43:32 +0000 (UTC) (envelope-from roam@FreeBSD.org) Received: from socsvn.freebsd.org (socsvn.freebsd.org [IPv6:2001:1900:2254:206a::50:2]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) by mx1.freebsd.org (Postfix) with ESMTPS id 12A5F375 for ; Fri, 21 Aug 2015 15:43:32 +0000 (UTC) (envelope-from roam@FreeBSD.org) Received: from socsvn.freebsd.org ([127.0.1.124]) by socsvn.freebsd.org (8.15.2/8.15.2) with ESMTP id t7LFhV4B051033 for ; Fri, 21 Aug 2015 15:43:31 GMT (envelope-from roam@FreeBSD.org) Received: (from www@localhost) by socsvn.freebsd.org (8.15.2/8.15.2/Submit) id t7LFhVGM051028 for svn-soc-all@FreeBSD.org; Fri, 21 Aug 2015 15:43:31 GMT (envelope-from roam@FreeBSD.org) Date: Fri, 21 Aug 2015 15:43:31 GMT Message-Id: <201508211543.t7LFhVGM051028@socsvn.freebsd.org> X-Authentication-Warning: socsvn.freebsd.org: www set sender to roam@FreeBSD.org using -f From: roam@FreeBSD.org To: svn-soc-all@FreeBSD.org Subject: socsvn commit: r290019 - soc2015/roam/ports MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-soc-all@freebsd.org X-Mailman-Version: 2.1.20 Precedence: list List-Id: SVN commit messages for the entire Summer of Code repository List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 21 Aug 2015 15:43:32 -0000 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"; }