#!/usr/bin/perl

# Makes a "master" file from existing profiles and tasks files

# use Packages;

my ($profiles) = "../new_root_home/profiles";
my ($tasks) = "../new_root_home/tasks";

print "\n\n--- Tasks:\n";
foreach $task (`ls $tasks`)  {
    chomp $task;
    open (TASK, "< $tasks/$task") or 
	die "Cannot open $task: $!";
    $title = <TASK>;
    $title =~ /^(.+)\[/;
    $title = $1;
    print "$task: $title\n";
    while (<TASK>) {
	chomp;
	($package, $todo) = split;
	$tasks_of_packages{$package} .= "$task, ";
    }
    close (TASK);
}

print "\n\n--- Profiles:\n";
foreach $profile (`ls $profiles`)  {
    chomp $profile;
    open (PROFILE, "< $profiles/$profile") or 
	die "Cannot open $profile: $!";
    $title = <PROFILE>;
    $title =~ /^(.+)\[/;
    $title = $1;
    print "$profile: $title\n";
    while (<PROFILE>) {
	chomp;
	($package, $todo) = split;
	$profiles_of_packages{$package} .= "$profile, ";
    }
    close (PROFILE);
}

print "\n\n--- Packages:\n";
undef %list;
@list{keys (%tasks_of_packages),keys (%profiles_of_packages)} = ();
foreach $package (sort keys %list) {
    print $package, ": Tasks: ", $tasks_of_packages{$package}, 
    " Profiles: ", $profiles_of_packages{$package}, "\n";
}

