/[pg-zoom]/zoom.sql
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /zoom.sql

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by dpavlin, Thu Apr 26 20:21:36 2007 UTC revision 8 by dpavlin, Thu Apr 26 21:45:09 2007 UTC
# Line 7  create table servers ( Line 7  create table servers (
7  );  );
8    
9  -- insert sample  -- insert sample
10  insert into servers values ( 'NSK', '161.53.240.27', 8090, 'voyager' );  insert into servers values ( 'nsk', '161.53.240.27', 8090, 'voyager' );
11    insert into servers values ( 'nsk-en', '161.53.240.27', 8190, 'voyager' );
12    insert into servers values ( 'loc', 'z3950.loc.gov', 7090, 'Voyager' );
13    insert into servers values ( 'ucs', 'library.usc.edu', 2200, 'unicorn' );
14    --insert into servers values ( '', '', , '' );
15    
16  create type item as (  create type item as (
17          title text,          title text,
# Line 16  create type item as ( Line 20  create type item as (
20          date text          date text
21  );  );
22    
23  create or replace function search(text)  create or replace function search(text,text)
24  returns setof item  returns setof item
25  language plperlu  language plperlu
26  as $$  as $$
27    
28  my ( $query ) = @_;  my $debug = 0;
29    my $max_res = 100;
30    
31  my ( $host, $port, $database ) =  my ( $server, $query ) = @_;
32          ( '161.53.240.27', 8090, 'voyager' );  
33    my $rv = spi_exec_query(qq{
34            select host,port,database from servers where name ilike '$server'
35    },1);
36    
37    die "can't find server $server in table servers\n" unless ( $rv->{processed} == 1 );
38    
39    my ( $host, $port, $database ) = (
40            $rv->{rows}[0]->{host},
41            $rv->{rows}[0]->{port},
42            $rv->{rows}[0]->{database},
43    );
44    
45  use ZOOM;  use ZOOM;
46  use MARC::Record;  use MARC::Record;
# Line 52  my $conn = new ZOOM::Connection($host, $ Line 68  my $conn = new ZOOM::Connection($host, $
68    
69  $conn->option(preferredRecordSyntax => "usmarc");  $conn->option(preferredRecordSyntax => "usmarc");
70    
71  my $cqf = q2cqf( $query );  my $rs;
72    
73  my $rs = $conn->search_pqf( $cqf );  my $notice;
74    
75    if ( $query =~ m/[\s="]|(and|or|not)/ ) {
76            $rs = $conn->search( new ZOOM::Query::CQL( $query ) );
77            $notice = 'CQL';
78    } else {
79            my $cqf = q2cqf( $query );
80            $notice = "CQF: $cqf";
81            $rs = $conn->search_pqf( $cqf );
82    }
83    
84  my $n = $rs->size();  my $n = $rs->size();
85    if ( $n > $max_res ) {
86            warn "query returned $n results, fetching first $max_res\n";
87            $n = $max_res;
88    }
89  # fetch all results  # fetch all results
90  $rs->records(0, $n - 1, 0);  $rs->records(0, $n - 1, 0);
91    
92  warn "$n results for '$query' [$cqf]\n";  warn "$n results for '$query' $notice\n";
93    
94  sub strip_non_digit {  sub strip_non_digit {
95          my $d = shift;          my $d = shift;
# Line 82  sub e { Line 111  sub e {
111          $t =~ s/éZ/®/g;          $t =~ s/éZ/®/g;
112          $t =~ s/éS/©/g;          $t =~ s/éS/©/g;
113          $t =~ s/£/Ð/g;          $t =~ s/£/Ð/g;
114          warn "## $t\n";          warn "## $t\n" if $debug;
115  #       $t = decode('iso-8859-2', $t);  #       $t = decode('iso-8859-2', $t);
116  #       return encode('utf-8',$t);  #       return encode('utf-8',$t);
117          return $t;          return $t;
# Line 110  $$; Line 139  $$;
139  -- select * from search('title:djece');  -- select * from search('title:djece');
140  -- select * from search('osman');  -- select * from search('osman');
141    
142  select * from search('title:mor');  --select * from search('nsk','title:mor');
143  select * from search('grada');  --select * from search('nsk','grada');
144    --select * from search('nsk-en','restrictions');
145    
146    --select * from search('ucs','human');
Legend:
Removed from v.3  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26