Open of client FIFO called with O_NDELAY when reconnecting to shell

[egate.git] / www / mquery.egw
diff --git a/www/mquery.egw b/www/mquery.egw

index db1f8eb..4fc8f45 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: mquery.egw,v 1.6 1995/12/21 15:49:51 adam Exp $
+# $Id: mquery.egw,v 1.10 1996/01/24 08:27:25 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -21,11 +21,11 @@
      }
  
      html {<form action="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
+    html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
  
      set phost {}
      set i 0
-    foreach t [lsort [wform target]] {
+    foreach t [lsort [egw_form target]] {
          set host [lindex $t 0]
          set base [lindex $t 1]
          if {$host != $phost} {
@@ -38,7 +38,7 @@
      }
      if {$i == 0} {
          html "<h2>No targets specified</h2></body></html>"
-        wabort 1
+        egw_abort 1
      }
      set hist($setNo,0,host) $i
  }
@@ -74,22 +74,19 @@
  {
      global useIcons
      if {$useIcons} {
-        html {<img src="/gif/button-egw.gif">}
+        html {<img src="/egwgif/button-egw.gif">}
      }    
      html {<a href="http:} $env(SCRIPT_NAME)
      html / $sessionId {/mtargets.egw}
      if {$useIcons} {
-        html {"><img src="/gif/button-new-target.gif" border=0></a>}
+        html {"><img src="/egwgif/button-new-target.gif" border=0></a>}
      } else {
          html {"> New target </a>}
      }
  }
-<hr>
-This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
-Last modified 29. september 1995. <br>
-<em> This and the following pages are under construction
-and will continue to be so until the end of December 1995.</em>
  {
+    catch maintenance
+    if {!$debug} return
      html "<hr>\n"
      html "<h3>Debug information</h3>\n"
      html "sessionId: $sessionId <br>\n"
@@ -102,7 +99,7 @@ and will continue to be so until the end of December 1995.</em>
          html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database) 
          html "<br>\n"
      }
-    html "form: " [wform] " <br>\n"
+    html "form: " [egw_form] " <br>\n"
      html "target: " $host " <br>\n"
      html "setNo: " $setNo " <br>\n"
      html "nextSetNo: " $nextSetNo " <br>\n"