#!/usr/bin/perl
#
# Parser for DAS information-  Output to csv
#
# Should be arranged as id, size, start, stop, 
#                       orientation, subparts
# All we want is id, size.

use LWP::Simple; # For url access
use XML::Parser; # For parsing XML!

$F_OUT = open(FILEOUT, ">DASout.txt");
$F_IN  = get("http://partsregistry.org/das/parts/entry_points/");

my $parser = new XML::Parser(ErrorContext => 2);
$parser->setHandlers(Start => \&handle_start,
					 End => \&handle_end);

$parser->parse($F_IN);

	# Handler
sub handle_start{
    my ($p, $elt, %attr) = @_;
	return unless $elt eq 'SEGMENT';
    while (@_) {
	my $att = shift;
	my $val = shift;
	#print FILEOUT "$att"; 
	if($att=='id'){
		print FILEOUT " $val,";
    }
}

}
sub handle_end{
	my ($p, $elt) = @_;
	print FILEOUT "\n";
}