#!/usr/bin/perl -w
use strict;
use File::Basename;
use Getopt::Std;
my $PROGRAM = basename $0;
my $USAGE=
"Usage: cat DIVIDE_SUMMARY | $PROGRAM -i CLUSTER -o SUB_DIR
";

use DomRefine::Read;

### Settings ###
my %OPT;
getopts('i:o:', \%OPT);

my $CLUSTER;
if ($OPT{i}) {
    $CLUSTER = "$OPT{i}";
} else {
    die;
}
my $SUB_DIR;
if ($OPT{o}) {
    $SUB_DIR = "$OPT{o}";
} else {
    die;
}

my $TMP_OUTPUT = define_tmp_file("$PROGRAM.output");
END {
    remove_tmp_file($TMP_OUTPUT);
}

system "cp $CLUSTER $TMP_OUTPUT";

### Main ###
-t and die $USAGE;
while (<STDIN>) {
    my ($cluster, $point) = split;
    if ($point =~ /^i(\d+)$/) {
	my $i = $1;
	my $dclst_unchanged = extract_dclst_compl($TMP_OUTPUT, $cluster);
	my $dclst_to_replace = `cat $SUB_DIR/$cluster.out`;
	my @clusters = `cat $SUB_DIR/$cluster.out | cut.sh 1 | sort | uniq`;
	chomp(@clusters);
	print STDERR "Executing divide $cluster $point\n";
	for my $c (@clusters) {
	    print STDERR "created $c\n";
	}
	save_contents($dclst_unchanged . $dclst_to_replace, $TMP_OUTPUT);
    } else {
	die $_;
    }
}
system "cat $TMP_OUTPUT";
