/[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 1 by dpavlin, Thu Apr 26 18:50:59 2007 UTC revision 6 by dpavlin, Thu Apr 26 20:57:14 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 ( 'tera', 'z3950.inquirion.com', 210, 'Marc' );
15    insert into servers values ( 'cosmo', 'rlw.savba.sk', 8888, 'test_un_cat' );
16    insert into servers values ( 'copac', 'z3950.copac.ac.uk', 2020, 'xxdefault' );
17    --insert into servers values ( 'wcat', 'tikal.dev.oclc.org', 210, 'WorldCat' );
18    --insert into servers values ( '', '', , '' );
19    
20  create type item as (  create type item as (
21          title text,          title text,
# Line 16  create type item as ( Line 24  create type item as (
24          date text          date text
25  );  );
26    
27  create or replace function search(text)  create or replace function search(text,text)
28  returns setof item  returns setof item
29  language plperlu  language plperlu
30  as $$  as $$
31    
32  my ( $query ) = @_;  my $debug = 0;
33    my $max_res = 100;
34    
35  my ( $host, $port, $database ) =  my ( $server, $query ) = @_;
36          ( '161.53.240.27', 8090, 'voyager' );  
37    my $rv = spi_exec_query(qq{
38            select host,port,database from servers where name ilike '$server'
39    },1);
40    
41    die "can't find database $database\n" unless ( $rv->{processed} == 1 );
42    
43    my ( $host, $port, $database ) = (
44            $rv->{rows}[0]->{host},
45            $rv->{rows}[0]->{port},
46            $rv->{rows}[0]->{database},
47    );
48    
49  use ZOOM;  use ZOOM;
50  use MARC::Record;  use MARC::Record;
51    use Encode qw/encode decode/;
52    
53  my $pqf = {  my $pqf = {
54          isbn => '@attr 1=7 @attr 4=1 "%s"',          isbn => '@attr 1=7 @attr 4=1 "%s"',
# Line 51  my $conn = new ZOOM::Connection($host, $ Line 72  my $conn = new ZOOM::Connection($host, $
72    
73  $conn->option(preferredRecordSyntax => "usmarc");  $conn->option(preferredRecordSyntax => "usmarc");
74    
75  my $rs = $conn->search_pqf( q2cqf( $query ) );  my $cqf = q2cqf( $query );
76    
77    my $rs = $conn->search_pqf( $cqf );
78    
79  my $n = $rs->size();  my $n = $rs->size();
80    if ( $n > $max_res ) {
81            warn "query returned $n results, fetching first $max_res\n";
82            $n = $max_res;
83    }
84  # fetch all results  # fetch all results
85  $rs->records(0, $n - 1, 0);  $rs->records(0, $n - 1, 0);
86    
87  warn "found $n results for $query";  warn "$n results for '$query' [$cqf]\n";
88    
89    sub strip_non_digit {
90            my $d = shift;
91            $d =~ s/^\D+//;
92            $d =~ s/\D+$//;
93            return $d;
94    }
95    
96    # fix encoding
97    sub e {
98            my $t = shift;
99            $t =~ s/éc/è/g;
100            $t =~ s/âc/æ/g;
101            $t =~ s/éz/¾/g;
102            $t =~ s/és/¹/g;
103            $t =~ s/³/ð/g;
104            $t =~ s/éC/È/g;
105            $t =~ s/âC/Æ/g;
106            $t =~ s/éZ/®/g;
107            $t =~ s/éS/©/g;
108            $t =~ s/£/Ð/g;
109            warn "## $t\n" if $debug;
110    #       $t = decode('iso-8859-2', $t);
111    #       return encode('utf-8',$t);
112            return $t;
113    }
114    
115  foreach my $i ( 1 .. $n ) {  foreach my $i ( 1 .. $n ) {
116          my $marc = new_from_usmarc MARC::Record( $rs->record( $i - 1 )->raw() );          my $marc = new_from_usmarc MARC::Record( $rs->record( $i - 1 )->raw() );
117    
118          return_next({          return_next({
119                  title => $marc->title,                  title => e( $marc->title ),
120                  author => $marc->author,                  author => e( $marc->author ),
121                  edition => $marc->edition,                  edition => e( $marc->edition ),
122                  date => $marc->publication_date,                  date => strip_non_digit( $marc->publication_date ),
123          });          });
124  }  }
125    
# Line 75  return undef; Line 128  return undef;
128  $$;  $$;
129    
130  -- if your terminal isn't iso-8859-2, change this!  -- if your terminal isn't iso-8859-2, change this!
131  set client_encoding  = 'iso-8859-2';  -- set client_encoding  = 'iso-8859-2';
132    
133    -- example
134    -- select * from search('title:djece');
135    -- select * from search('osman');
136    
137    select * from search('NSK','title:mor');
138    select * from search('NSK','grada');
139    select * from search('nsk-en','restrictions');
Legend:
Removed from v.1  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26