Date: Thu, 1 Feb 96 21:20:32 +0100 From: Jean-Marc Zucconi <jmz@cabri.obs-besancon.fr> To: stesin@elvisti.kiev.ua Cc: ports@freebsd.org Subject: Re: How do you folks generate PLISTs? Message-ID: <9602012020.AA05879@cabri.obs-besancon.fr> In-Reply-To: <199602011112.NAA09799@office.elvisti.kiev.ua> (stesin@elvisti.kiev.ua)
next in thread | previous in thread | raw e-mail | index | archive | help
I install the port in a empty directory (remove /usr/local or use
make PREFIX=/tmp/local) and then run the following script:
#!/usr/bin/perl
require "find.pl";
$prefix = $ARGV[0] ? $ARGV[0] : "/usr/local";
chdir $prefix || die "$!\n";
&find ("./");
foreach $key (keys %f) {
print "\@mode $key\n";
print $f{$key};
}
sub wanted {
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime, $mtime, $ctime, $blksize, $blocks) = stat($_);
$mode = sprintf ("%o", $mode & 0xfff);
$f{$mode} .= substr($name, 2) . "\n" if (! -d "$_");
}
Jean-Marc
_____________________________________________________________________________
Jean-Marc Zucconi Observatoire de Besancon F 25010 Besancon cedex
PGP Key: finger jmz@cabri.obs-besancon.fr
=============================================================================
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?9602012020.AA05879>