4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.04'; |
our $VERSION = '0.05'; |
8 |
|
|
9 |
use Carp; |
use Carp; |
10 |
use File::Temp qw/ tempdir /; |
use File::Temp qw/ tempdir /; |
316 |
$arg->{'body'} ||= ''; |
$arg->{'body'} ||= ''; |
317 |
|
|
318 |
if ($arg->{'meta'}) { |
if ($arg->{'meta'}) { |
319 |
confess "not yet implemented"; |
foreach my $name (keys %{$arg->{'meta'}}) { |
320 |
|
my $content = $arg->{'meta'}->{$name}; |
321 |
|
print TMP qq{<meta name="$name" content="$content">}; |
322 |
|
$arg->{'body'} .= " $content" if ($self->{'meta_in_body'}); |
323 |
|
} |
324 |
} |
} |
325 |
|
|
326 |
if (defined($arg->{'title'})) { |
if (defined($arg->{'title'})) { |
394 |
pages. To see my very relaxed sample configuration take a look at C<swish++> |
pages. To see my very relaxed sample configuration take a look at C<swish++> |
395 |
directory included in distribution. |
directory included in distribution. |
396 |
|
|
397 |
|
=head2 SWISH++ config |
398 |
|
|
399 |
|
C<config.h> located in C<swish++> directory of this distribution is relaxed |
400 |
|
SWISH++ configuration that will index all words passed to it. This |
401 |
|
configuration is needed for B<date test> because default configuration |
402 |
|
doesn't recognize 2004-12-05 as date. Have in mind that your index size |
403 |
|
might explode. |
404 |
|
|
405 |
=head1 SEE ALSO |
=head1 SEE ALSO |
406 |
|
|
407 |
C<swish++> web site L<http://homepage.mac.com/pauljlucas/software/swish/> |
C<swish++> web site L<http://homepage.mac.com/pauljlucas/software/swish/> |