From owner-freebsd-ports  Thu Feb  1 12:29:24 1996
Return-Path: owner-ports
Received: (from root@localhost)
          by freefall.freebsd.org (8.7.3/8.7.3) id MAA26698
          for ports-outgoing; Thu, 1 Feb 1996 12:29:24 -0800 (PST)
Received: from cabri.obs-besancon.fr (cabri.obs-besancon.fr [193.52.184.3])
          by freefall.freebsd.org (8.7.3/8.7.3) with SMTP id MAA26673
          for <ports@freebsd.org>; Thu, 1 Feb 1996 12:28:47 -0800 (PST)
Received: by cabri.obs-besancon.fr (5.57/Ultrix3.0-C)
	id AA05879; Thu, 1 Feb 96 21:20:32 +0100
Date: Thu, 1 Feb 96 21:20:32 +0100
Message-Id: <9602012020.AA05879@cabri.obs-besancon.fr>
From: Jean-Marc Zucconi <jmz@cabri.obs-besancon.fr>
To: stesin@elvisti.kiev.ua
Cc: ports@freebsd.org
In-Reply-To: <199602011112.NAA09799@office.elvisti.kiev.ua>
	(stesin@elvisti.kiev.ua)
Subject: Re: How do you folks generate PLISTs?
X-Mailer: Emacs
Sender: owner-ports@freebsd.org
Precedence: bulk

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
 =============================================================================