/[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 8 by dpavlin, Thu Apr 26 21:45:09 2007 UTC revision 9 by dpavlin, Thu Apr 26 22:19:40 2007 UTC
# Line 3  create table servers ( Line 3  create table servers (
3          host    text not null,          host    text not null,
4          port    int not null default 210,          port    int not null default 210,
5          database text default 'Default',          database text default 'Default',
6            maxres  int not null default 100,
7          primary key(name)          primary key(name)
8  );  );
9    
10  -- insert sample  -- insert sample
11  insert into servers values ( 'nsk', '161.53.240.27', 8090, 'voyager' );  insert into servers values ( 'nsk', '161.53.240.27', 8090, 'voyager', 0 );
12  insert into servers values ( 'nsk-en', '161.53.240.27', 8190, 'voyager' );  insert into servers values ( 'nsk-en', '161.53.240.27', 8190, 'voyager', 300 );
13  insert into servers values ( 'loc', 'z3950.loc.gov', 7090, 'Voyager' );  insert into servers values ( 'loc', 'z3950.loc.gov', 7090, 'Voyager', 300 );
14  insert into servers values ( 'ucs', 'library.usc.edu', 2200, 'unicorn' );  insert into servers values ( 'ucs', 'library.usc.edu', 2200, 'unicorn', 100 );
15  --insert into servers values ( '', '', , '' );  --insert into servers values ( '', '', , '' );
16    
17  create type item as (  create type item as (
# Line 25  returns setof item Line 26  returns setof item
26  language plperlu  language plperlu
27  as $$  as $$
28    
29    use strict;
30    
31  my $debug = 0;  my $debug = 0;
 my $max_res = 100;  
32    
33  my ( $server, $query ) = @_;  my ( $server, $query ) = @_;
34    
35  my $rv = spi_exec_query(qq{  my $rv = spi_exec_query(qq{
36          select host,port,database from servers where name ilike '$server'          select host,port,database,maxres from servers where name ilike '$server'
37  },1);  },1);
38    
39  die "can't find server $server in table servers\n" unless ( $rv->{processed} == 1 );  die "can't find server $server in table servers\n" unless ( $rv->{processed} == 1 );
40    
41  my ( $host, $port, $database ) = (  my ( $host, $port, $database, $max_res ) = (
42          $rv->{rows}[0]->{host},          $rv->{rows}[0]->{host},
43          $rv->{rows}[0]->{port},          $rv->{rows}[0]->{port},
44          $rv->{rows}[0]->{database},          $rv->{rows}[0]->{database},
45            $rv->{rows}[0]->{maxres},
46  );  );
47    
48  use ZOOM;  use ZOOM;
# Line 144  $$; Line 147  $$;
147  --select * from search('nsk-en','restrictions');  --select * from search('nsk-en','restrictions');
148    
149  --select * from search('ucs','human');  --select * from search('ucs','human');
150    
151    SELECT date,count(date)
152    FROM search('loc','human and computer and interaction')
153    GROUP BY date
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26