#!/usr/bin/perl

open(KEY, "/ongar/usr/mas622/inoutdoor/annot/annotations");
while(<KEY>){
    ($img, $or, $io, @rest) = split;
    $io{$img} = $io;
}
close(KEY);

open(DSM, "/tmp/oh.txt");
open(IND, "/ongar/usr/mas622/inoutdoor/within_feature/index");

open(IN, ">/tmp/in.txt");
open(OUT, ">/tmp/out.txt");
while(<IND>){
    next unless /4x4/;
    $ind = $_;
    $data = (<DSM>);
    ($fxf, $im, $sec) = split(/\//, $ind);
    if($sec == 1){
	print STDOUT "$im $io{$im}\n";
	if($io{$im} eq "o"){
	    print "Indoor\n";
	    print OUT $data;
	}
	else{
	    print "Outdoor\n";
	    print IN $data;
	}
    }
}

close(IN);
close(OUT);