--- trunk/spider/filter.pm	2004/08/29 21:19:13	84
+++ trunk/spider/filter.pm	2004/08/30 11:14:24	85
@@ -48,6 +48,16 @@
 		}
 		$contents =~ s,(<title>)([^<]+)(</title>),$1$2: $title$3,gsi if ($title);
 
+	} elsif ($contents =~ m,<!--\s+METADATA(.*?)METADATA\s+-->,is) {
+		# LJ metadata
+		my $metadata = $1;
+		my $title = "LJ";
+
+		$title .= "$1: " if ($metadata =~ m,<issue>(.+?)</issue>,is);
+		$title .= "$1 - " if ($metadata =~ m,<category>(.+?)</category>,is);
+		$title .= $1 if ($metadata =~ m,<title>(.+?)</title>,is);
+		$title =~ s/\s+/ /gsi;
+		$contents =~ s,<title>[^<]+</title>,<title>$title</title>,is;
 	}
 
 	# is second argument collection?