sub ospf2_split_database {

	my ($dl, $line) = "";
	my @ospf2database = @_;
	my (@router, @network, @external) = ();

	for $line (@ospf2database) {
		chomp($line);
		if ($line =~ /^Router/)  { $dl = 1; }
		if ($line =~ /^Network/) { $dl = 2; }
		if ($line =~ /^Extern/)  { $dl = 5; }
		switch ($dl) {
			case 1 { push(@router, "$line\n");   }
			case 2 { push(@network, "$line\n");  }
			case 5 { push(@external, "$line\n"); }		
		}
	}			
	return(\@router,\@network,\@external);
}