sub StartTag {
  my ($expat,$eltype)=@_;

  if ($eltype eq "log") {
  	$version	= $_{version};
  	$datestamp	= $_{date};
  } elsif ($eltype eq "node") {
  } elsif ($eltype eq "component") {
  } elsif ($eltype eq "?xml:stylesheet") {
  } elsif ($eltype eq "m") {
	$p[i] = $_{p};
	$component_type[$i] = $_{c};
	$datetime[$i] = $_{d};
	$u[$i] = $_{u};
	$sequential_id[$i] = $_{i};
	$node_id[$i] = $_{n};
	$severity[$i] = $_{s};
	$source[$i] = $_{t};
  } else { die "invalid element: $eltype"; }
}