Has anybody seen this DNS problem before

[Valentin Mesaros]

Denys Duchier wrote:
> 
> valentin at info.ucl.ac.be (Valentin Mesaros) writes:
> 
> >> It seems that part of your code is missing.  Variable NR is not
> >> declared.
> >
> > Ok. I wanted to simplify the code for you and I misstyped it. It's the
> > same N.
> 
> Is it important? because neither ManageRemoteClient nor Rand are
> defined either.  If you can give us something as simplified a possible
> that still exhibits the problem, that would really help.  Thanks.

It is quite important, since other solaris users may encounter the same
promblem. For the moment, I don't have access to Linux machines to try
it.
Here is a working example:

Valentin

-----------------------
declare
Path = '/usr/valentin/testfunct.ozf'
proc {RunRmtPrc Host TimeToClose N}
   try
      Cont RM
   in
      {New Remote.manager init(host:Host) RM}	 
      thread 
	 try
	    {RM link(name:Path _)}
	    Cont = go      %% carry on with this process
	 catch _ then
	    {System.showInfo '!could not link foo on '#Host}
	    Cont = stop    %% give up this process
	    {RM close}
	 end
      end
      if Cont == go then
	 {Delay TimeToClose}
	 try 
	    {RM close}
	 catch _ then skip end
      end
   catch _ then
      {System.showInfo '!could not start foo on '#Host}
   end
   if N > 1 then
      {RunRmtPrc Host TimeToClose N-1} 
   end       
end
{RunRmtPrc rainbow 15000 1}

----------------------------
testfunct.ozf
----------------------------

functor
export
   res:Res
define
   Res
   proc {DoSomething}
      {Delay 3000}
      Res = unit
   end
in
   {DoSomething}
end
-
Please send submissions to hackers at mozart-oz.org
and administriva mail to hackers-request at mozart-oz.org.
The Mozart Oz web site is at http://www.mozart-oz.org/.