emacs-lisp, gnats4, Input timeout

[doug . mildram]

We have gnatsweb and basic gnats4.0 working with just a couple problems
  left. Thanks!!!

GNATS emacs client PROBLEM:

 (i tend to describe "all that I know", at the risk of losing everyone)

I can't get the authentication working. I think I've got a good...

gnatsd.host_access (gnatsd works for "localhost" gnatsweb server, 
  and gnatsd works for commands via the usual gnats scripts from any host,
   so connections from emacs-lisp SHOULD?? be equally welcome )

gnatsd.access     ........every line for joeuser  looks like
joeuser:*:edit:    where "*" means match anything...THAT seems ok,
                     no one needs a password for anything else in gnats;

====================

Some relevant/customized portions of NEW  (gnats4) site-lisp/gnats.el  

(defgroup gnats nil
  "The GNU GNATS bug tracking system frontend.")

(defcustom gnats-server "lf1"       (this is the working gnatsd server host)

What happens:
emacs client CONNECTS, because gnatsd server xinetd logs it;
(defcustom gnats-database nil
(defcustom gnats-user nil
(defcustom gnats-password nil

 I know that "default" DB is selected, and emacs chooses my unix loginname,
     and gets to the right port, because the emacs PROMPT says:

Password for address@hidden:1529/default: 


I have emacs in "noisy" mode,
               my .emacs has   (setq-default debug-on-error t)

   so it says all this below after an meta-X query-pr
: (without debug, it waits 5-10 seconds, then
            just says "Input timeout from the server" )

Signaling: (error "Input timeout from the server")
  signal(error ("Input timeout from the server"))
  error("Input timeout from the server")
  (if no-timeout (let (...) (put gnats-server-conn ... nil) res) (error "Input 
timeout from the server"))
  (let ((no-timeout t)) (while (and no-timeout ...) (setq no-timeout ...)) (if 
no-timeout (let ... ... res) (error "Input timeout from the server")))
  gnats-get-response()
  (let ((cstr ...)) (gnats-init-response) (gnats-debug-string cstr) 
(process-send-string (get gnats-server-conn ...) cstr) (gnats-get-response))
  gnats-send-command("FTYP" "")
  (setq our-field-list (gnats-send-command "FTYP" (gnats-field-list-as-string)))
  (let ((our-field-list ...)) (mapcar (quote gnats-add-field-name) 
our-field-list) (setq our-field-list (gnats-send-command "FTYP" ...)) 
(gnats-iterate-info (get gnats-server-conn ...) our-field-list (quote ...)) 
(setq our-field-list (gnats-send-command "FIELDFLAGS" ...)) (gnats-iterate-info 
(get gnats-server-conn ...) our-field-list (quote ...)) (setq our-field-list 
(gnats-send-command "INPUTDEFAULT" ...)) (gnats-iterate-info (get 
gnats-server-conn ...) our-field-list (quote ...)) (setq our-field-list 
(gnats-send-command "LIST INITIALINPUTFIELDS")) (mapcar (quote ...) 
our-field-list) (mapcar (quote gnats-get-field-values) (get gnats-server-conn 
...)) (mapcar (quote gnats-add-changed-why) (get gnats-server-conn ...)))
  gnats-get-field-info()
  (save-excursion (set-buffer edit-buffer) (gnats-clear-edit-buffer) 
(gnats-delete-process) (gnats-edit-server) (gnats-server-login) 
(gnats-edit-chdb) (gnats-get-mail-alias) (gnats-get-field-info) (gnats-do-query 
query) (sort-lines gnats-query-reverse-listing (point-min) (point-max)) (put 
gnats-server-conn (quote mode) (quote query)) (gnats-query-mode) (setq success 
t))
  (unwind-protect (save-excursion (set-buffer edit-buffer) 
(gnats-clear-edit-buffer) (gnats-delete-process) (gnats-edit-server) 
(gnats-server-login) (gnats-edit-chdb) (gnats-get-mail-alias) 
(gnats-get-field-info) (gnats-do-query query) (sort-lines 
gnats-query-reverse-listing ... ...) (put gnats-server-conn ... ...) 
(gnats-query-mode) (setq success t)) (if (not success) (progn ... ...) 
(switch-to-buffer edit-buffer) (goto-char ...)))
  (let ((edit-buffer ...) (success nil)) (unwind-protect (save-excursion ... 
... ... ... ... ... ... ... ... ... ... ... ...) (if ... ... ... ...)))
  query-pr("123")
  call-interactively(query-pr)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)


>From the above, i'm guessing that
  the first CLIENT CMD is "LIST INITIALINPUTFIELDS",
  which works fine in a telnet session to 1529

i'm guessing the second CLIENT CMD is "INPUTDEFAULT" with an arg,
           but what arg, I can't see

i'm guessing the third CLIENT CMD is "FIELDFLAGS" with an arg,
           but what arg, I can't see


I couldnt find any way to run gnatds in noisy/interactive/debug mode .
   (sad or dumb of me, 
       because gnatsweb surely knows how to print server responses)


Don't know if i'm stuck with an "Auth." problem, or something else...
 "Input timeout" seems like something else.  Thanks for listening!
================================================================
Doug Mildram   Mindspeed Technologies  (a Conexant company)
Systems Admin.           Westborough, MA  01581