--- trunk/lib/WebPAC/Parser.pm	2007/11/03 12:29:16	975
+++ trunk/lib/WebPAC/Parser.pm	2007/11/03 12:30:43	976
@@ -49,6 +49,7 @@
   my $parser = new WebPAC::Parser(
   	config => new WebPAC::Config(),
 	base_path => '/optional/path/to/conf',
+	only_database => $only
   );
 
 =cut
@@ -240,9 +241,15 @@
 
 	my $lookup_src_cache;
 
+	my $only_database = $self->{only_database};
+	my $only_input = $self->{only_input};
+
 	$self->{config}->iterate_inputs( sub {
 		my ($input, $database) = @_;
 
+		return if ( $only_database && $database !~ m/$only_database/i );
+		return if ( $only_input && $input->{name} !~ m/$only_input/i );
+
 		$log->debug("database: $database input = ", dump($input));
 
 		foreach my $normalize (@{ $input->{normalize} }) {
@@ -305,7 +312,7 @@
 
 	my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
 
-	$Document->prune('PPI::Token::Whitespace');
+	#$Document->prune('PPI::Token::Whitespace');
 	$Document->prune('PPI::Token::Comment');
 	#$Document->prune('PPI::Token::Operator');