/[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 4 by dpavlin, Thu Apr 26 20:34:48 2007 UTC
# Line 8  create table servers ( Line 8  create table servers (
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    
13  create type item as (  create type item as (
14          title text,          title text,
# Line 16  create type item as ( Line 17  create type item as (
17          date text          date text
18  );  );
19    
20  create or replace function search(text)  create or replace function search(text,text)
21  returns setof item  returns setof item
22  language plperlu  language plperlu
23  as $$  as $$
24    
25  my ( $query ) = @_;  my $debug = 0;
26    
27  my ( $host, $port, $database ) =  my ( $server, $query ) = @_;
28          ( '161.53.240.27', 8090, 'voyager' );  
29    my $rv = spi_exec_query(qq{
30            select host,port,database from servers where name ilike '$server'
31    },1);
32    
33    die "can't find database $database\n" unless ( $rv->{processed} == 1 );
34    
35    my ( $host, $port, $database ) = (
36            $rv->{rows}[0]->{host},
37            $rv->{rows}[0]->{port},
38            $rv->{rows}[0]->{database},
39    );
40    
41  use ZOOM;  use ZOOM;
42  use MARC::Record;  use MARC::Record;
# Line 82  sub e { Line 94  sub e {
94          $t =~ s/éZ/®/g;          $t =~ s/éZ/®/g;
95          $t =~ s/éS/©/g;          $t =~ s/éS/©/g;
96          $t =~ s/£/Ð/g;          $t =~ s/£/Ð/g;
97          warn "## $t\n";          warn "## $t\n" if $debug;
98  #       $t = decode('iso-8859-2', $t);  #       $t = decode('iso-8859-2', $t);
99  #       return encode('utf-8',$t);  #       return encode('utf-8',$t);
100          return $t;          return $t;
# Line 110  $$; Line 122  $$;
122  -- select * from search('title:djece');  -- select * from search('title:djece');
123  -- select * from search('osman');  -- select * from search('osman');
124    
125  select * from search('title:mor');  select * from search('NSK','title:mor');
126  select * from search('grada');  select * from search('NSK','grada');
127    select * from search('nsk-en','restrictions');
Legend:
Removed from v.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26