#use Params::Validate;
use Search::Estraier;
use Date::Manip;
-use Debbugs::Common qw(getbuglocation getbugcomponent);
+use Debbugs::Common qw(getbuglocation getbugcomponent make_list);
use Debbugs::Status qw(readbug);
use Debbugs::MIME qw(parse);
$doc = new Search::Estraier::Document if not defined $doc;
my $message = parse($bug_message);
- $doc->add_text(join('',values %{$message}));
+ $doc->add_text(join("\n",make_list(values %{$message})));
# * @id : the ID number determined automatically when the document is registered.
# * @uri : the location of a document which any document should have.
my @attr = qw(status subject date submitter package tags severity);
# parse the date
my ($date) = $bug_message =~ /^Date:\s+(.+?)\s*$/mi;
- $doc->add_attr('@cdate' => $date);
+ $doc->add_attr('@cdate' => $date) if defined $date;
# parse the title
my ($subject) = $bug_message =~ /^Subject:\s+(.+?)\s*$/mi;
- $doc->add_attr('@title' => $subject);
+ $doc->add_attr('@title' => $subject) if defined $subject;
# parse the author
my ($author) = $bug_message =~ /^From:\s+(.+?)\s*$/mi;
- $doc->add_attr('@author' => $author);
+ $doc->add_attr('@author' => $author) if defined $author;
# create the uri
$doc->add_attr('@uri' => $uri);
foreach my $attr (@attr) {
- $doc->add_attr($attr => $status->{$attr});
+ $doc->add_attr($attr => $status->{$attr}) if defined $status->{$attr};
}
print STDERR "adding $uri\n" if $DEBUG;
# Try a bit harder if estraier is returning timeouts