From: Wolfgang P. <wol...@iv...> - 2005-09-20 03:31:20
|
here some unsolicited perl code from my z3950 spying prog $Z3950= { srv=> { # 1.2.84010003.1 unimarc # 1.2.84010003.5 usmarc/marc21 UBBS=> { a=> 'opac/opac', u=> 'tcp:ubsun02.biblio.etc.tu-bs.de:2020/bac', # opac bac # r=> 'MAB', r=> 'USMARC', c=> 'ISO-8859-1', n=> '30', }, HBZ=> { # a=> <mailto:bu...@hb...> u=> 'tcp:193.30.112.113:9909/HBZ01', # r=> 'MAB', r=> 'USMARC', n=> '50', }, BVB=> { # a=> <mailto:ja...@bi...> u=> 'tcp:193.174.96.24:31310/BVBSR011', # r=> 'MAB', r=> 'USMARC', n=> '50', }, KOBV=> { # a=> <mailto:ko...@zi...> u=> 'tcp:193.174.96.24:31310/BVBSR011', c=> 'ISO-646', r=> 'USMARC', }, GBV=> { a=> '999/abc', u=> 'tcp:z3950.gbv.de:20010/gvk', # gsogvk ## -L 30100:z3950.gbv.de:20010 # u=> 'tcp:localhost:30100/gvk', # c=> 'ISO-8859-1', r=> 'USMARC', # xf=>[801,900], # excluded in ztest.pl n=> '50', s=> [ prefetch=>1, ], # gbv problem bl=> [ 75864,72565,83224,81137,81140,85269,72578,72996,73551, 81133,81824,74115, 81228,84657,72715,80210,75680,80917, 78902,102064,101875,101908,101916,101957,101979, ], # prefetch problems ... }, HEBIS=> { a=> '3950/Z3950', u=> 'tcp:tolk.hebis.de:20212/hebis', ## -L 30101:tolk.hebis.de:20212 # u=> 'tcp:localhost:30101/hebis', # c=> 'ISO-8859-1', r=> 'USMARC', # xf=>[901,990], # excluded in ztest.pl n=> '50', }, DDB=> { a=> 'gast/gast', u=> 'tcp:z3950.dbf.ddb.de:210/ILTIS', ##c=> 'ISO-646', # ISO-5426 r=> 'SUTRS', # r=> 'USMARC', n=> '50', }, UNIZH=> { u=> 'tcp:biblio.unizh.ch:9909/uzh01', # c=> 'ISO-8859-1', r=>'USMARC', # xf=>[852,930,953,954,955,956,961,962,963,964], # excluded in ztest.pl n=> '50', }, NEBIS=> { u=> 'tcp:opac.nebis.ch:9909/NEBIS', # c=> 'ISO-8859-1', r=> 'USMARC', # xf=>[852,909], # excluded in ztest.pl n=> '50', }, }; |