#!/usr/bin/perl
# Passes a Package file to several files, one per package,
# with the information of each package
# (c) Javier Fernandez-Sanguino Pea 2000
# Distributed under the GNU GPL License
use Getopt::Std;
getopts ('d');
open (PACK,">/dev/null");
while (<STDIN>)
#  The package file (for example /var/lib/dpkb/available)
# must be given as input
{
	if (/^Package: (.*)$/)
	{
	  print "Found description of package $package\n" if $opt_d;
	  $package=$1; 
	  close PACK;
	  mkdir  $package,0700 || die ("Could not create the directory for $package: $!\n");
	  # Here we store the description of the control file but we could
	  # also (in the future) use it to link to /usr/share/doc/$package files
	  open (PACK,">$package/$package") || die "Could not open file $package for writing :$!\n"; 
	 }
	 print PACK;
}
exit 0;
	  
