/[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 2 by dpavlin, Thu Apr 26 19:25:45 2007 UTC revision 5 by dpavlin, Thu Apr 26 20:43:00 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    
34  my ( $host, $port, $database ) =  my ( $server, $query ) = @_;
35          ( '161.53.240.27', 8090, 'voyager' );  
36    my $rv = spi_exec_query(qq{
37            select host,port,database from servers where name ilike '$server'
38    },1);
39    
40    die "can't find database $database\n" unless ( $rv->{processed} == 1 );
41    
42    my ( $host, $port, $database ) = (
43            $rv->{rows}[0]->{host},
44            $rv->{rows}[0]->{port},
45            $rv->{rows}[0]->{database},
46    );
47    
48  use ZOOM;  use ZOOM;
49  use MARC::Record;  use MARC::Record;
# Line 74  sub e { Line 93  sub e {
93          my $t = shift;          my $t = shift;
94          $t =~ s/éc/è/g;          $t =~ s/éc/è/g;
95          $t =~ s/âc/æ/g;          $t =~ s/âc/æ/g;
         $t =~ s/és/¹/g;  
96          $t =~ s/éz/¾/g;          $t =~ s/éz/¾/g;
97            $t =~ s/és/¹/g;
98            $t =~ s/³/ð/g;
99          $t =~ s/éC/È/g;          $t =~ s/éC/È/g;
100          $t =~ s/âC/Æ/g;          $t =~ s/âC/Æ/g;
         $t =~ s/éS/©/g;  
101          $t =~ s/éZ/®/g;          $t =~ s/éZ/®/g;
102            $t =~ s/éS/©/g;
103          $t =~ s/£/Ð/g;          $t =~ s/£/Ð/g;
104          warn "## $t\n";          warn "## $t\n" if $debug;
105  #       $t = decode('iso-8859-2', $t);  #       $t = decode('iso-8859-2', $t);
106  #       return encode('utf-8',$t);  #       return encode('utf-8',$t);
107          return $t;          return $t;
# Line 109  $$; Line 129  $$;
129  -- select * from search('title:djece');  -- select * from search('title:djece');
130  -- select * from search('osman');  -- select * from search('osman');
131    
132  select * from search('title:mor');  select * from search('NSK','title:mor');
133    select * from search('NSK','grada');
134    select * from search('nsk-en','restrictions');
Legend:
Removed from v.2  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26