From d66a4b9debb168d9a03368429bcc933c57553c74 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Mon, 23 Oct 1995 17:04:16 +0000 Subject: [PATCH] Added some initial z39 gateway scripts. --- www/Makefile | 21 +++++++++++-- www/egwindex.html | 4 +-- www/query.egw | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++ www/search.egw | 17 ++++++++++ www/targets.egw | 38 ++++++++++++++++++++++ www/webgate.gif | Bin 0 -> 5511 bytes www/ztargets.conf | 45 +++++++++++++++++++++++++++ 7 files changed, 210 insertions(+), 5 deletions(-) create mode 100644 www/query.egw create mode 100644 www/search.egw create mode 100644 www/targets.egw create mode 100644 www/webgate.gif create mode 100644 www/ztargets.conf diff --git a/www/Makefile b/www/Makefile index 5f12e0f..8d73a0e 100644 --- a/www/Makefile +++ b/www/Makefile @@ -2,7 +2,10 @@ # Europagate, 1995 # # $Log: Makefile,v $ -# Revision 1.3 1995/10/23 16:55:33 adam +# Revision 1.4 1995/10/23 17:04:16 adam +# Added some initial z39 gateway scripts. +# +# Revision 1.3 1995/10/23 16:55:33 adam # A lot of changes - really. # # Revision 1.2 1995/10/20 14:02:40 adam @@ -15,9 +18,11 @@ SHELL=/bin/sh INCLUDE=-I../include #CFLAGS=-g -Wall -pedantic -ansi OLIB=../lib/libres+log.a -TCLLIB=/usr/local/lib/libtcl7.4.a -WSCRIPTS=egwscript +TCLLIB=/usr/local/lib/libtcl7.5.a +WSCRIPTS=egwscript targets.egw query.egw search.egw HSCRIPTS=egwindex.html +CONFFILES=ztargets.conf +GIFFILES=webgate.gif TPROG1=egwcgi TPROG2=egwsh TPROG3=wtest @@ -30,6 +35,8 @@ DEFS=$(INCLUDE) HTTPDDIR=/usr/local/etc/httpd CGIBIN=$(HTTPDDIR)/cgi-bin HTDOCS=$(HTTPDDIR)/htdocs +CONFDIR=$(HTTPDDIR)/conf +GIFDIR=$(HTDOCS)/gif all: $(TPROG1) $(TPROG2) @@ -58,6 +65,14 @@ install: $(TPROG1) $(TPROG2) echo Installing $$x; \ cp $$x $(HTDOCS); \ done + @for x in $(CONFFILES); do \ + echo Installing $$x; \ + cp $$x $(CONFDIR); \ + done + @for x in $(GIFFILES); do \ + echo Installing $$x; \ + cp $$x $(GIFDIR); \ + done .c.o: $(CC) -c $(DEFS) $(CFLAGS) $< diff --git a/www/egwindex.html b/www/egwindex.html index a0752d9..9f8535f 100644 --- a/www/egwindex.html +++ b/www/egwindex.html @@ -3,13 +3,13 @@ Europagate WWW index -

Europagate WWW index, $Id: egwindex.html,v 1.2 1995/10/23 16:55:35 adam Exp $

+

Europagate WWW index, $Id: egwindex.html,v 1.3 1995/10/23 17:04:16 adam Exp $

egwcgi ref: egwcgi

z39 targets: - targets + targets.egw diff --git a/www/query.egw b/www/query.egw new file mode 100644 index 0000000..c1f3b4c --- /dev/null +++ b/www/query.egw @@ -0,0 +1,90 @@ + +{ +# $Id: query.egw,v 1.1 1995/10/23 17:04:16 adam Exp $ + source /usr/local/etc/httpd/conf/ztargets.conf + set tmp [expr 1 + [string first / $sessionParms]] + set t [string range $sessionParms $tmp end] + set databases [lindex $targets($t) 1] +} + + WWW/Z39.50 Gateway Query Form + + +sessionId: {html $sessionId}
+sessionParms: {html $sessionParms}
+form: {html [form]}
+target: {html $t}
+databases: {html $databases}
+

Search in databases

+

Not Functional Yet

+
+{ + set nodb [llength $databases] + if {$nodb > 1} { + if {$nodb > 2} { + htmlr {The chosen target supports searching in several databases.
} + htmlr {Choose the bases you want to search:
} + } + set i 0 + foreach d $databases { + html { } $d + } else { + htmlr {" checked> } $d + } + } + htmlr {
} + if {$nodb > 2} { + html { All
} + } + } +} +
+Input your search criteria:
+{ + set fields [lindex $targets($t) 2] + for {set no 1} {$no < 4} {incr no} { + htmlr { + htmlr {} + if {$no < 3} { + htmlr {} + } + htmlr
+ } +} +
+

+Alternatively you can enter your query in CCL here:
+
+

+ Various technical parameters:
+Max hits: +Records are shown in: + +
+

+ +

+
+This page is maintained by Peter Wad Hansen . +Last modified 29. september 1995.
+ This and the following pages are under construction and will continue to be so +until the end of December 1995. + + diff --git a/www/search.egw b/www/search.egw new file mode 100644 index 0000000..d521220 --- /dev/null +++ b/www/search.egw @@ -0,0 +1,17 @@ + +{ +# $Id: search.egw,v 1.1 1995/10/23 17:04:17 adam Exp $ +} + + WWW/Z39.50 Gateway Search Result + + +sessionId: {html $sessionId}
+sessionParms: {html $sessionParms}
+form: {html [form]}
+target: {html $t}
+databases: {html $databases}
+

Search in databases

+

Not Functional Yet

+ + diff --git a/www/targets.egw b/www/targets.egw new file mode 100644 index 0000000..2a64c20 --- /dev/null +++ b/www/targets.egw @@ -0,0 +1,38 @@ + +{ +# $Id: targets.egw,v 1.1 1995/10/23 17:04:17 adam Exp $ +} + + Europagate, WWW/Z39.50 Gateway + + +
+Welcome to EUROPAGATE +
+Part of Europagate is a World Wide Web to Z39.50 gateway. The gateway provides search and +retrieve facilities in the databases of various libraries.

+ Europagate is a +project in the +EU libraries Programme carried out by:
+ University College Dublin
+Technical University & Library of Denmark
+Library Council
+Consejo Superior de Investigaciones Científicas
+

+ Choose a Z39.50 target:
+
+{ + source /usr/local/etc/httpd/conf/ztargets.conf + foreach t [array names targets] { + htmlr "
$t " + htmlr "
" [lindex $targets($t) 0] + } +} +
+
+This page is maintained by Peter Wad Hansen . +Last modified 25. september 1995.
+ This and the following pages are under construction and will continue to be so +until the end of December 1995. + + diff --git a/www/webgate.gif b/www/webgate.gif new file mode 100644 index 0000000000000000000000000000000000000000..4de7a013abd9cda276a11314cbd7ce074ec33faf GIT binary patch literal 5511 zcmV;26?p1LNk%v~VORpq0OJ4vw6wGU002KuynLhoeWL&W|Nq|J-rwKfOM)j$~<`XsWJk>%MR- z&vb3yc&_h!@BhG{a7Zi~kI1BQ$!t2G(5Q4uty-_xtai)odY6IlcT6su&uCLv5Dui@ z@VI>5YzyveH+|3V`~M|&czA7qhKGoWX={Uxd3uVGl9QB2f{u=2m7AQMo-CJ`n1!FE zrl+W(qN19puCK6vs;jG{vA4Kf1G~JvzQ4f1!o$SH#>dFNjI_*yZOPEl($mz{*4NnC z+S}aS-rwNi;^Wh^&COxt>g(+7?(gvN^7Hidz2@iV&-VQN{{H|23LHrA7`}Y@(iL3D zu%W|;5F^q%h!EjEi2(^{B!ID_$B+IXB~q+N@?yw%8&h&T$+D%(m*GZ|oT(6|I+ZHl z<+RDOr%!ba~n>a?2e|CsI+O(r%<5<6-qTvRBcU>hReE>A=j)|!;0NCwJKGj zW08Gb%XaCmwp!Q49RRoP#i1Bt>n*AmpvZM%&+9msNwcfy85Wj)Ud&F>k9hgUecp$){f14@LSKWd1)Tr zySVRYh-+iKjhnP?#m1vcpH96x>)*+hJ7nG*x9PFg!;2qJ-Y$08+7~kJ&c0-1=;h7xlwei}4(TLqH?C7*dn)#5C5t~g7o$y2HpQ4qUxJzBT5UWz=95vflOruvUg@Tb zjZwL!OI;FKrkH1LlqXkr)@WpxX_7OgoNpG&VVrV4Rp(KC>iMUmZ8b`wq)rA3&YGne zs%eH<0vRMvi{ccfl9KMp=cAKSTB)VmV2aMBnaW4}s;Yym{$ewzg?H=-tD&;aO6yCu-kMU9efoN5x48ZZu93W!*<_L1itB5- zdwyB$gUwdsYC_Xe3#~JAK7?7eze3ursArDLZodR8%Wl8|Ls~Gv?LN9}fbmN6?7h*} z`(~#W=DQHTOnzH%!+Cz|@W{h@OY*?lF1&1`rLGHa#Kufaam5y2S?$dI)#DV$r*ez1 z&v>Gou#zbk&2qRuqs*|<3x^0ZG4l>pvyV5=Y!yH}8)ojnrXs0s(z}9Ow82JuZD+_P z9}D5rz{qShA<|BL=-Z=c+)mb7m;3I+LkF$&(P)EBCenV-$Tlx-(~Ym(1w?(8-Q?hX zSh0J%{ITW!EelTeCEwtqh2 z)1;T4NgLFr{#eeew>}uKnE$J?@|)+reBc3lDK6)$Hru=JtN?E_#@J_%lJUnADSfhl z>rJlnpqKx!vLyR#xro*a5AEq#c0bhWMu9Jw+MOeNFvzo`T$pl|EcSf`dFz8;psr^> z9r1{J4P+Dku%W*STCg_@gkS_0^uP^1E-4obp$HEXB?fx17F0VSO(s~45xVe&_nDB_ zW=O*t+VF-nv=R5EC#nvsPqeAx|+rM}V85Nb~h z8@f6c98eqzq-~#x#r}%gX*_Ooe!k zi0T|y|JEtE%mwZ`*u-Qv_sLJxt&xo*LSErSwUTVo3M~kQ9Xs0@Byn1@Z3*pM?EZSi zw6p;XpKRM@KR3$JLIE=wshZtD!L+n-BJg#2Y9~a$lTL_EQ>5cuimEzyIDK~XrZ`>E zH=z+wToFxodMfGIK&Ly}5tOA{f~NRpI#RI(RjJpEpEh$!)v7k`pA-}k%g*K{p+1j) zMja|e$$1ac{Pdy;Y?@d5_fV+@FNaqxQe1&oLpRA4OLbM_RH>FAyD~&MOYm;bo{yJLErq;B| zT`p&%yG!W;R-3Jb?OvYLs9Vx@un@cJl z7rCSTZj0#mT-7$Wj@IoiY@wT7>mEvn0zR;Q;Y47(F7cz6A@A1^%c!NrZhedGYEj?E zRG@k|WyLMwYA@E`#x*#<3m!0Z_uF3s3wTEc{_b{14C4~Jh`@29Zf8f#VyqZ;WE4Ix zh;=(Y`Br$t5`~?SKYY1U%J9Ajb}nkC%HQWEIL7`>v5GmRS}NO^Lptm-i)E}}F=NS} zvsDX(wrXCI7Ve~H^aryUDe3fWMsn#(x?Y5p;-_P*5&!si=jd6@+MGxA!Ehh7S zc}z7eUw5@vru8EE_@J5Ib60D%=X^7rt~U3!sR2|kTYZgDI-VNUto`$TXI<#XidQy4P|wUkAI@QLJihm)+@S2Rxyn?)H7}81O7lyyE3PZV21`@$ke?jpg?5 zzZ+cSwvI8} z7=%pNZA3VK3s`PP7(_i7JWY6oS~P@DScEP(g>6(qABTlv2x&LCh5y%uUg$?>+ZD@&$D2I}^iKy6hxO7=kLV1TMidLnF zm&k}Bn2NSo9PRLm3)4O+QC7evCX``Wd>KF&)oy^)Pm2l{I5R*-LIcj^UUXrDkZWbwFDNTg=X@vwkaOIur4N38GU&wp=p-6DVW0faJW;NX{A7?nQ+Oe zoXhDRWyF>?sgu!plC%EFg49`&0CJt}LQ$laaY9ov7Pf5p=~GCipYH~mK_#FSrz;p{ zmB(h90-)Le05f%>__?IL8KtFpn-5B3IGUq63L`w4lvabGKpLbV$e~o(Ys2EC*_oTzS*1@Z zJwF9xa4Mxvnx~+tq{f7wSE{G-Hm6WpnfZZhU;3qCItq70ruV`aXDXLvn1E`!rjypD z1R9Yc!ru<{C+&04MuYn>3GT=sge)tVdE`Zn3xuiMIx z03~72L$IF;qX(;%4N9(``mA5ImFXI+63epGArd)uu^5}NsEB zC1+2H{-ob&w8iORNUNnUnzZpnX-nIkBg(1~;d(avs$r_LcEzzB>$5i)w3DH$g1Vy4 z+MnckvPC;##B{a~8>+u1qe|tK4!Rs+aJ5*wo)wB$W%{E&>#tyI3_sSkHwS8i>pu*e zss-vU07RN-%b!&0oxBu!K0dv`ek3o4bu^yR6%~bD0so z`-QR;ytYBQw5y|T*<4(kyvpm4yqi_cOM>8VhbKX~!>gV+ySg=`IJ(QZ+v`f*>%B1k zBfjISnB@zX42iwUyT0t(zC8H8(mTEQx3= zj5|QTn^7I?!Sf4}{3^oB3lZZHZ|L=(En0J(in20{fvuOrSNp*@$-*rR#4p@tnxmzB z(wp$k3HB>#l9Ps%$)*C@Vs848C++$442)9t6c6yT{{Dq*;u%@`kQs+s6K7DNp4? zxL?^mT}imoama{lT#CHN70jHD+^>)v$$bo{xva^vuC_I&zM86bdRUi?L6kbm ziCoG^slv3H%C_pc{16`tiny@+KV?g@Q)z-ps(OJcut0$8j32;~BGqEX(JU&M=FjorbhB8%qdXPzt@! z+T76WF~($E#`iqYw49}*DafyE%jz1nf9cWc{BR*nLI_>b!2rLCjQ-M|V!zpI%vgiZ z&sxbZoj&W5O~PK1e0Dnq1dF2r%ipTK|&Ny1l6X>P!R>$ zW%UdULT=uAca~iadcD^;Q_uD+BjGV~g$v4U1=TI})|4^~3G&mV%`S)iPY1P9Y<&;6 zO}Bb2)CI!J-*8jk_AM6co!_e14aMEx)Lq?cve}%S7E~zFg5eFct>B0G z-zb70U>(*FK7QVP;1>RM7+$^(?!)}eya5P^b{*oTM&6lSttI}=pHadj&Ek>~-|}4+ z8ouEt*({)I-yZAdclMuH`69JZ-o#0(t5Pyy0KY>asrSmtNjr9qY56>+;YEwGQel4GFmr?7}|m zG|&cHZsNdB?8?6E%&rEmZjgH1?9x8%)ZPKT{^~_t?b^QW+kWkeneE&j?&7}e-cFPE zJMQS7?zv#>6s*3-;{K0AKJ14+ynB z@D6$K4Bzl{;OPAR?hZfk6h8)qUhfiL@fyGJSg_}zp79(X@*)ofaSrJqKk_J_@<_n$ z*dCoHuktV-^Fi?B_WSZOfAcu612~SoHlI=RKL7JF5Z}q$^FUwpMy~=u&ALQ?^i1FM zBEa&H*$PfS^;CZXl>3xRU-eqQ^%YRJ4Vm>^ANE_%7-C=cW}g94fA(s>_H5twZvXah JuLBVP06QasG0Ok| literal 0 HcmV?d00001 diff --git a/www/ztargets.conf b/www/ztargets.conf new file mode 100644 index 0000000..a2428e5 --- /dev/null +++ b/www/ztargets.conf @@ -0,0 +1,45 @@ +# $Id: ztargets.conf,v 1.1 1995/10/23 17:04:17 adam Exp $ +set commonFields { + { Title {@attr 1=4} } + { Author {@attr 1=1003} } + { Abstract {@attr 1=62} } + { Date {@attr 1=30} } + { {Doc ID} {@attr 1=1032} } + { All {@attr 1=1016} } +} + +set targets(myriad.middlebury.edu) { + {University somewhere, bla bla} + {Default} + { { Title {@attr 1=4} } + { Author {@attr 1=1003} } + { Abstract {@attr 1=62} } + { Date {@attr 1=30} } + { All {@attr 1=1016} } + } +} + +set targets(rlg.stanford.edu) [list \ + {The famous Stanford University} \ + {BKS AMC MAP MDF REC SCO SER VIM BIB} \ + $commonFields \ +] + +set targets(bibsys) [list \ + {BIBSYS - Norway} \ + BIBSYS \ + $commonFields \ +] + +set targets(dtbsun.dtv.dk:4500) [list \ + {Aleph, Z39.50 Server} \ + {DEM MAR} \ + $commonFields \ +] + +set targets(ir.dbc.bib.dk) [list \ + {SR-DANBIB} \ + DANBIB \ + $commonFields \ +] + -- 1.7.10.4