#!/usr/bin/perl
#
# Parser for DAS information- returns
# parts list in AllParts.txt
#

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

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

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

$parser->parse($F_IN);

	# Handler
sub handle_start{
    my ($p, $elt, %attr) = @_;
	return unless $elt eq 'SEGMENT';
}

sub handle_char{
    my ($p, $string) = @_;
	$string =~ s/^\s+|\s+$//g ;
	print FILEOUT "$string";
}

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