File Coverage

blib/lib/AxKit/XSP/Swish.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package AxKit::XSP::Swish;

@ISA = ('Apache::AxKit::Language::XSP::TaglibHelper');

# Swish-e Taglib
$VERSION = '0.2';

$NS = 'http://nexus-is.ca/NS/xsp/swish/v1';

@EXPORT_TAGLIB = (
'send($index,$query;$title,$props,$sort,$context,$limit):as_xml=1',
);

use vars qw/@ISA $VERSION $NS @EXPORT_TAGLIB/;

# libs and prototypes
use strict;
use SWISHE;
use Apache::AxKit::Language::XSP::TaglibHelper;
sub parse_char { Apache::AxKit::Language::XSP::TaglibHelper::parse_char(@_); }
sub parse_start { Apache::AxKit::Language::XSP::TaglibHelper::parse_start(@_); }
sub parse_end { Apache::AxKit::Language::XSP::TaglibHelper::parse_end(@_); }


## Taglib subs
sub send ($$;$$$$$) {

    my ($index,$query,$title,$props,$sort,$context,$limit) = @_;

    die "No index file provided" unless $index;

    my $handle = SwishOpen( $index ) or die "Failed to open index: $index check path or permissions";

    # Use an array for a hash slice when reading results.
    my @labels = qw/
        rank
        file_name
        title
        content_length
    /;

    my $num_results = SwishSearch(
                        $handle,
                        $query,
                        $context,
                        $props,
                        $sort,
                        );

    unless ( $num_results ) {
        my $error = SwishError( $handle );
        SwishClose ($handle);
        return "No Results$error";
    }

    my %result;
    my %props;
    my @properties = split /\s+/, $props;
    my $return_list="";
    my $count=1;
    if ($limit == undef) { $limit = '1000000';} elsif ($limit < 0) { $limit = 0 } # max results hard coded to 1M

    while ( ( ( @result{ @labels }, @props{@properties} ) = SwishNext( $handle ) ) && ($count <= $limit) ) {
       $return_list .= "";
        for ( @labels ) {
          $return_list .= "<$_>" . $result{$_} . "";
	}
        for ( @properties ) {
          $return_list .= "<$_>" . $props{$_} . "";
        }
       $return_list .= "";
       $count ++;
    }

    # Free the memory.
    SwishClose( $handle );

    return ($title) ? ('' . $return_list . ''):($return_list);

}

1;

__END__