www/targets.egw

   1 <html>
   2 {
   3 # $Id: targets.egw,v 1.6 1995/11/08 12:42:17 adam Exp $
   4     source /usr/local/etc/httpd/conf/ztargets.conf
   5     if {[info commands saveState] == ""} {
   6         source z39util.tcl
   7     }
   8 }
   9 <head>
  10 <title> Europagate, WWW/Z39.50 Gateway </title>
  11 </head>
  12 <body>
  13 <center>
  14 <img src="/gif/webgate.gif" Alt="Welcome to EUROPAGATE">
  15 </center>
  16 Part of Europagate is a World Wide Web to Z39.50 gateway. The gateway provides search and
  17 retrieve facilities in the databases of various libraries. <p>
  18 <a href="http://www.dtu.dk/dtv/egate/egate.html"> Europagate </a> is a
  19 project in the <a href="http://www.echo.lu/programmes/en/LIBRARIES.html">
  20 EU libraries Programme </a> carried out by: <br>
  21 <a href="http://www.ucd.ie/"> University College Dublin </a> <br>
  22 <a href="http://www.dtv.dk/dtv/">Technical University & Library of Denmark </a> <br>
  23 Library Council <br>
  24 Consejo Superior de Investigaciones Cient&iacute;ficas <br>
  25 <hr>
  26 <h3> Choose a Z39.50 target: </h3>
  27 <dl>
  28 {
  29     foreach t [array names targets] {
  30         html {<dt><a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME) /
  31         html "$sessionId/query.egw/$t" {"> } [lindex $targets($t) 0] " </a>\n"
  32         set desc [lindex $targets($t) 4]
  33         if {$desc != ""} {
  34             html "<dd><em>$desc</em>\n"
  35         }
  36     }
  37 }
  38 </dl>
  39 {
  40     z39history
  41 }
  42 <hr>
  43 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
  44 Last modified 25. september 1995. <br>
  45 <em> This and the following pages are under construction and will continue to be so
  46 until the end of December 1995.</em>
  47 {
  48     html "<hr>\n"
  49     html "<h3>Debug information</h3>\n"
  50     html "sessionId: $sessionId <br>\n"
  51     html "sessionParms: $sessionParms <br>\n"
  52     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  53         html $e {: } $env($e) {<br>} \n
  54     }
  55 }
  56 </body>
  57 </html>