#!/usr/bin/perl
# dlg2pdb written by Marty Pagel, IUMVF, 10/23/96

$counter = 1;
$filename = shift @ARGV;

if (-d tlg2pdb_dir) {
        `rm -r tlg2pdb_dir`;
}
`mkdir tlg2pdb_dir`;

open (DLGFILE, "$filename.dlg");
while (<DLGFILE>) {
	($linetype,$remainder) = split(' ',$_,2);
	if ($linetype =~ /DOCKED:/) {
		if (-f "tlg2pdb_dir/$filename$counter.pdb") {
			open (PDBFILE, ">>tlg2pdb_dir/$filename$counter.pdb");
		}
		else {
			open (PDBFILE, ">tlg2pdb_dir/$filename$counter.pdb");
		}
		print PDBFILE "$remainder";	
		if ($remainder =~ /END/) {
			$counter++;
		}
	}
}