--- trunk/lib/WebPAC/Normalize.pm	2005/12/05 17:48:08	219
+++ trunk/lib/WebPAC/Normalize.pm	2005/12/19 15:34:47	295
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.04
+Version 0.07
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.07';
 
 =head1 SYNOPSIS
 
@@ -47,6 +47,10 @@
 code defined as code ref on format after field substitution to producing
 output
 
+There is one built-in filter called C<regex> which can be use like this:
+
+  filter{regex(s/foo/bar/)}
+
 =item *
 
 optional C<lookup{...}> will be then performed. See C<WebPAC::Lookups>.
@@ -117,6 +121,17 @@
 
 	$log->warn("no prefix defined. please check that!") unless ($self->{'prefix'});
 
+	$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);
+
+	if (! $self->{filter} || ! $self->{filter}->{regex}) {
+		$log->debug("adding built-in filter regex");
+		$self->{filter}->{regex} = sub {
+			my ($val, $regex) = @_;
+			eval "\$val =~ $regex";
+			return $val;
+		};
+	}
+
 	$self ? return $self : return undef;
 }
 
@@ -155,9 +170,6 @@
 		$log->debug("cache miss, creating");
 	}
 
-	undef $self->{'currnet_filename'};
-	undef $self->{'headline'};
-
 	my @sorted_tags;
 	if ($self->{tags_by_order}) {
 		@sorted_tags = @{$self->{tags_by_order}};
@@ -213,7 +225,7 @@
 
 			foreach my $type (@types) {
 				# append to previous line?
-				$log->debug("type: $type ",sub { join(" ",@v) }, $row->{'append'} || 'no append');
+				$log->debug("type: $type ",sub { join(" ",@v) }, " ", $row->{'append'} || 'no append');
 				if ($tag->{'append'}) {
 
 					# I will delimit appended part with
@@ -276,8 +288,18 @@
 
  my $text = $webpac->parse($rec,'eval{"v901^a" eq "Deskriptor"}descriptor: v250^a', $i);
 
+Filters are implemented here. While simple form of filters looks like this:
+
+  filter{name_of_filter}
+
+but, filters can also have variable number of parametars like this:
+
+  filter{name_of_filter(param,param,param)}
+
 =cut
 
+my $warn_once;
+
 sub parse {
 	my $self = shift;
 
@@ -347,11 +369,21 @@
 		return if (! $self->_eval($eval));
 	}
 	
-	if ($filter_name && $self->{'filter'}->{$filter_name}) {
-		$log->debug("about to filter{$filter_name} format: $out");
-		$out = $self->{'filter'}->{$filter_name}->($out);
-		return unless(defined($out));
-		$log->debug("filter result: $out");
+	if ($filter_name) {
+		my @filter_args;
+		if ($filter_name =~ s/(\w+)\((.*)\)/$1/) {
+			@filter_args = split(/,/, $2);
+		}
+		if ($self->{'filter'}->{$filter_name}) {
+			$log->debug("about to filter{$filter_name} format: $out with arguments: ", join(",", @filter_args));
+			unshift @filter_args, $out;
+			$out = $self->{'filter'}->{$filter_name}->(@filter_args);
+			return unless(defined($out));
+			$log->debug("filter result: $out");
+		} elsif (! $warn_once->{$filter_name}) {
+			$log->warn("trying to use undefined filter $filter_name");
+			$warn_once->{$filter_name}++;
+		}
 	}
 
 	return $out;
@@ -461,7 +493,9 @@
 		# do we have lookups?
 		if ($self->{'lookup'}) {
 			if ($self->{'lookup'}->can('lookup')) {
-				return $self->{'lookup'}->lookup($format);
+				my @lookup = $self->{lookup}->lookup($format);
+				$log->debug("lookup $format", join(", ", @lookup));
+				return @lookup;
 			} else {
 				$log->warn("Have lookup object but can't invoke lookup method");
 			}