/[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 6 by dpavlin, Thu Apr 26 20:57:14 2007 UTC revision 7 by dpavlin, Thu Apr 26 21:33:46 2007 UTC
# Line 11  insert into servers values ( 'nsk', '161 Line 11  insert into servers values ( 'nsk', '161
11  insert into servers values ( 'nsk-en', '161.53.240.27', 8190, 'voyager' );  insert into servers values ( 'nsk-en', '161.53.240.27', 8190, 'voyager' );
12  insert into servers values ( 'loc', 'z3950.loc.gov', 7090, 'Voyager' );  insert into servers values ( 'loc', 'z3950.loc.gov', 7090, 'Voyager' );
13  insert into servers values ( 'ucs', 'library.usc.edu', 2200, 'unicorn' );  insert into servers values ( 'ucs', 'library.usc.edu', 2200, 'unicorn' );
 insert into servers values ( 'tera', 'z3950.inquirion.com', 210, 'Marc' );  
 insert into servers values ( 'cosmo', 'rlw.savba.sk', 8888, 'test_un_cat' );  
 insert into servers values ( 'copac', 'z3950.copac.ac.uk', 2020, 'xxdefault' );  
 --insert into servers values ( 'wcat', 'tikal.dev.oclc.org', 210, 'WorldCat' );  
14  --insert into servers values ( '', '', , '' );  --insert into servers values ( '', '', , '' );
15    
16  create type item as (  create type item as (
# Line 38  my $rv = spi_exec_query(qq{ Line 34  my $rv = spi_exec_query(qq{
34          select host,port,database from servers where name ilike '$server'          select host,port,database from servers where name ilike '$server'
35  },1);  },1);
36    
37  die "can't find database $database\n" unless ( $rv->{processed} == 1 );  die "can't find server $server in table servers\n" unless ( $rv->{processed} == 1 );
38    
39  my ( $host, $port, $database ) = (  my ( $host, $port, $database ) = (
40          $rv->{rows}[0]->{host},          $rv->{rows}[0]->{host},
# Line 134  $$; Line 130  $$;
130  -- select * from search('title:djece');  -- select * from search('title:djece');
131  -- select * from search('osman');  -- select * from search('osman');
132    
133  select * from search('NSK','title:mor');  --select * from search('nsk','title:mor');
134  select * from search('NSK','grada');  --select * from search('nsk','grada');
135  select * from search('nsk-en','restrictions');  --select * from search('nsk-en','restrictions');
136    
137    select * from search('ucs','human');
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26