From owner-FreeBSD-users-jp@jp.freebsd.org  Mon May 18 20:26:43 1998
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) id UAA03902
	Mon, 18 May 1998 20:26:43 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) with SMTP id UAA03897
	for <FreeBSD-users-jp@jp.freebsd.org>; Mon, 18 May 1998 20:26:42 +0900 (JST)
Received: by canongate.in.canon.co.jp (4.1/2.7W)
	id AA18824; Mon, 18 May 98 20:26:41 JST
Received: from canongw(150.61.8.7) by canongate via smap (V1.3)
	id sma018431; Mon May 18 20:25:04 1998
Received: from snsh1.cks.canon.co.jp (root@snsh1.cks.canon.co.jp [150.61.111.44]) by canongw.cecn.canon.co.jp (8.8.5/3.5W) with ESMTP id UAA18156 for <FreeBSD-users-jp@jp.freebsd.org>; Mon, 18 May 1998 20:24:31 +0900 (JST)
Received: from snsh1.cks.canon.co.jp by snsh1.cks.canon.co.jp (8.8.4/3.4W4-06/10/96)
	id UAA16037 for ; Mon, 18 May 1998 20:25:02 +0900 (JST)
Message-Id: <199805181125.UAA16037@snsh1.cks.canon.co.jp>
To: FreeBSD-users-jp@jp.freebsd.org
From: "K.[NAO-NAO].Kawai" <kawai@cks.canon.co.jp>
X-Mailer: Mew version 1.68 on Emacs 19.28.1 / Mule 2.3
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Mon, 18 May 1998 20:25:02 +0900
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=24]
X-Sequence: FreeBSD-users-jp 28423
Subject: [FreeBSD-users-jp 28423] des =?ISO-2022-JP?B?GyRCJHIkJCRsJGgkJiRIJDckRhsoQg==?=  kerberos 
	=?ISO-2022-JP?B?GyRCJGIkJCRsJEYkUiRJJCQkYSRLISIkIiRDJD8kUiRIGyhC?=
	=?ISO-2022-JP?B?GyRCJEshIxsoQg==?=
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B$+$o$$!w$-$d$N$s(B

des $B$r!"(Binstall $B$7$h$&$H$7$F!"(Bdes$B%G%#%l%/%H%j$G!"(Binstall.sh $B$7$?$i!"(B
kerberos $B$^$G!"F~$C$F$7$^$C$F!"Ha$7$/$J$C$F$7$^$C$??M$X!"(B
$B$3$s$J(B script $B=q$$$F$_$^$7$?!#(B
$BG[I[(B CDROM $B$N(B root $B%G%#%l%/%H%j$G<B9T$7$F2<$5$$!#(B
delete $B$7$F$h$$(B file
bin $B$K4^$^$l$F$$$k(B file
des $B$K4^$^$l$F$$$k(B file
proflibs  $B$K4^$^$l$F$$$k(B file
$B$rI=<($7$^$9!#(B

#! /usr/bin/perl
open(IN,"cat des/krb.??|tar tzf -|");
@krb=<IN>;
$krb=$.-1;
close IN;
open(IN,"cat des/des.??|tar tzf -|");
while(<IN>){chop;$des{$_}=1;}
$des=$.-1;
close IN;
open(IN,"cat bin/bin.??|tar tzf -|");
while(<IN>){chop;$bin{$_}=1;}
$bin=$.-1;
close IN;
open(IN,"cat proflibs/proflibs.??|tar tzf -|");
while(<IN>){chop;$proflibs{$_}=1;}
$proflibs=$.-1;
close IN;

#print "$krb $des $bin\n";
foreach $i (1..$krb)
{
	chop $krb[$i];
# print $krb[$i];
	if(defined $des{$krb[$i]}){
	    unless($krb[$i] =~ m%/$%){
		print "$krb[$i]\tdes\n" ;
	    }
	}
	elsif(defined $bin{$krb[$i]}){
	    unless($krb[$i] =~ m%/$%){
		print "$krb[$i]\tbin\n";
	    }
	}
	elsif(defined $proflibs{$krb[$i]}){
	    unless($krb[$i] =~ m%/$%){
		print "$krb[$i]\tproflibs\n";
	    }
	}
	else {
	    print "$krb[$i]\tdelete\n";
	}
}

