opac/opensearch

   1 #!/usr/bin/perl
   2 use CGI;
   3 use strict;
   4 use warnings;
   5 use C4::Context;
   6 use XML::Simple;
   7 use LWP::Simple;
   8
   9 use LWP::UserAgent;
  10 use HTTP::Request::Common;
  11
  12 my $cgi = new CGI;
  13 binmode(STDOUT, "utf8"); #output as utf8
  14 my $baseurl = C4::Context->preference('OPACBaseURL');
  15 my $libname = C4::Context->preference('LibraryName');
  16 my $opacimage = C4::Context->preference('opacsmallimage');
  17 my $indexname = C4::Context->preference('indexname');
  18
  19 my $q = $cgi->param('q');
  20 my $index = $cgi->param('searchindex');
  21 my $startpage = $cgi->param('startPage') | 1;
  22 my $count = $cgi->param('count') | 20;
  23
  24 if ($q) {
  25     # koha:isbn:0152018484
  26         my $url = "http://$baseurl:9998/biblios?version=1.1&operation=searchRetrieve&query=$q&startRecord=$startpage&maximumRecords=$count&recordSchema=rss2";
  27     my $content = get($url);
  28     print $cgi->header( -type =>'text/xml' );
  29     print $content;
  30 }
  31
  32 else {
  33
  34 print $cgi->header( -type =>'text/xml' );
  35 print "<?xml version='1.0' encoding='utf-8'  ?>";
  36 print "<OpenSearchDescription \n\txmlns=\"http://a9.com/-/spec/opensearchdescription/1.0/\"\n\txmlns:openIll=\"http://open-ils.org/xml/openIll/1.0\">";
  37 print "\n<Url>http://$baseurl/cgi-bin/koha/opensearch?q={searchTerms}&amp;searchindex=$indexname&amp;startPage={startPage}&amp;count={count}</Url>";
  38 print "\n<Url type=\"application/rss+xml\" template=\"http://$baseurl/cgi-bin/koha/opensearch?q={searchTerms}&amp;searchindex=$indexname&amp;startPage={startPage}&amp;count={count}\"/>";
  39 print "\n<Url type=\"text/html\" template=\"http://$baseurl/cgi-bin/koha/opensearch?q={searchTerms}\"/>";
  40 print "\n<Format>http://a9.com/-/spec/opensearchrss/1.0/</Format>";
  41 print "\n<ShortName>Koha</ShortName>";
  42 print "\n<LongName>$libname</LongName>";
  43 print "\n<Description>Search for items the in $libname catalog</Description>";
  44 print "\n<Tags>Koha ILS at $libname</Tags>";
  45 print "\n<Image>$opacimage</Image>";
  46 print "\n<SampleSearch>cryptonomicon</SampleSearch>";
  47 print "\n<Developer>Joshua Ferraro</Developer>";
  48 print "\n<Contact>jmf\@liblime.com</Contact>";
  49 print "\n<Attribution>Koha from LibLime: http://liblime.com/koha</Attribution>";
  50 print "\n<SyndicationRight>open</SyndicationRight>";
  51 print "\n<AdultContent>false</AdultContent>";
  52 print "\n</OpenSearchDescription>";
  53
  54 }