From owner-FreeBSD-users-jp@jp.FreeBSD.org Tue Mar 16 06:23:35 2004
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id i2FLNZB62931;
	Tue, 16 Mar 2004 06:23:35 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from ns.crs.co.jp (ns.crs.co.jp [202.214.152.13])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id i2FLNZ762926
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Tue, 16 Mar 2004 06:23:35 +0900 (JST)
	(envelope-from 1yen@sh.rim.or.jp)
Received: from inns.ycc.crs.co.jp ([192.168.30.202])
	by ns.crs.co.jp (8.11.3/8.11.3) with ESMTP id i2FLO6s24062;
	Tue, 16 Mar 2004 06:24:06 +0900
Received: from [192.168.31.117] (localhost [127.0.0.1])
	by inns.ycc.crs.co.jp (8.11.3/8.11.3) with ESMTP id i2FLNFa16945;
	Tue, 16 Mar 2004 06:23:16 +0900
From: NAKAMURA Takeshi <1yen@sh.rim.or.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
X-Mailer-Plugin: AntiSpam for Becky!2 Ver.1.010
Message-Id: <20040316060126.A331.1YEN@sh.rim.or.jp>
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.07.04 [ja]
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Tue, 16 Mar 2004 06:23:16 +0900
X-Sequence: FreeBSD-users-jp 78539
Subject: [FreeBSD-users-jp 78539] portsclean -D
 =?ISO-2022-JP?B?GyRCJEc7RCRDJEYkJCRGTV8kNyQkJVUlISUkJWsbKEI=?=
 =?ISO-2022-JP?B?GyRCJCw+QyQ1JGwkaxsoQg==?=
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: 1yen@sh.rim.or.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+040307

$BCgB<$G$9(B

 portsclean -D $B$r;H$C$F(B ports $B$N(B distfiles $B$r:o=|$9$k$H(B
java $B$d!"(Brealplayer $B$J$I<h$C$F$/$k$N$,LLE]$JJ*$b7k9=(B
$B>C$5$l$F$7$^$$$^$9!#(B
 $B$3$l$O!"ITJX$@$H;W$&$N$G$9$,3'$5$s$O$I$&$J$N$G$7$g$&$+!#(B
$B?t$,B?$/$J$k$H(B -i $B$G3NG'$9$k$N$b7k9=LLE]$G$9!#(B

 portsclean -D $B$C$F!"2?$r4p=`$K(B $B;D$9(B/$B>C$9$r7h$a$F$$$k$N$G$7$g$&!#(B
 distinfo $B$r85$K:o=|$9$k$H!"4V0c$C$F>C$5$l$k%U%!%$%k$,8:$k$H(B
$B;W$&$N$G$9$,!#(B(NetBSD$B$d!"(BOpenBSD $B$X$NBP1~$N$?$a$G$7$g$&$+!)(B)
$B:rF|!"$3$s$J$N$r=q$$$FLdBj$J$5$=$&$J$N$O3NG'$7$^$7$?!#(B

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  if $running_under_some_shell;

use strict;
use vars qw/ $name /;
require "find.pl";

  my $PORTSDIR = ( "x$ENV{'PORTSDIR'}" eq "x" ? "/usr/ports"          : "$ENV{'PORTSDIR'}" );
  my $DISTDIR  = ( "x$ENV{'DISTDIR'}"  eq "x" ? "$PORTSDIR/distfiles" : "$ENV{'DISTDIR'}"  );
  if (! -d $PORTSDIR){die "PORTSDIR: $PORTSDIR is not dirctory";}
  if (! -d $DISTDIR ){die "DISTDIR: $DISTDIR is not directory"; }
  my %distinfoDB;

  $ENV{PATH} = '/bin:/usr/bin';
  open(DISTINFO, "echo $PORTSDIR/*/*/distinfo | xargs cat |");

  while(<DISTINFO>){
    if(/^(MD5|SIZE) /){
      chomp;
      s@^.* \((.*)\) .*$@$DISTDIR/$1@;
      $distinfoDB{$_} = 1;
      print STDERR "$_\r";
    }
  }
  close(DISTINFO);

  print STDERR "\n*** There are not found in distinfo files ***\n";
  \&find($DISTDIR);

exit;

sub wanted {
  if (-f $name && $distinfoDB{$name} != 1){ print "$name\n" }
}

STDERR $B$K=PNO$7$F$$$k$N$O(B `perl file | xargs rm' $B$H!"$G$-$k$h$&$K$G$9!#(B
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+
 $B4X@>2-Fl@DG/$N=8$$(B $B$,$8$^$k$N2q(B $B<jEA$$(B $B0l?M$@$1$N>!<j$K?@F`@n;YIt(B
 $BCgB<(B $BIp(B <1yen@sh.rim.or.jp>

