LLRnet enhancements

[kar_bon]

i looked around the LLRnet sources (*.lua files) and wonder if there is a way to print the date/time in the lresults-file like on the LLRnet-server results.
and i found a way!
it's not the best way but it works fine!

insert the following lines (in red) in the "llrnet.lua" in the function Work() (little above the end of the function, around line 229):

(...)
      else
	 ClearWorkfile()
      end

   local file = openfile("lresults.txt", "a")
   write(file, format("[%s] ", date("%c")))
   closefile(file)

      if not asynchronous then
	 SendAllResults((sendRetries or 0) + 1)
      end

      SendStructureToAllGUIs("tosend", tosend, 1)
(...)

the output in the "lresults.txt" without these lines:

329*2^387216-1 is not prime.  Res64: 471878A4A7F58281  Time : 160.390 sec.
Result 329/387216 succesfully sent to the server.

and with these lines:

329*2^387216-1 is not prime.  Res64: 471878A4A7F58281  Time : 160.390 sec.
[03/09/08 20:37:46] Result 329/387216 succesfully sent to the server.

please make copies of "llrnet.lua" and "lresults.txt" before changes and stop the client.

the time in the result-file and on the client console differ by 2 seconds (result-file minus 2 seconds from console)!

if there're any issues please post them here!

karsten

[kar_bon]

here is another enhancement for LLRnet:

insert the following red lines into 'llrnet.lua' (around line# 187, function 'Work()') and all found primes will be written in a seperate file called 'primes.txt':

(...)
	 -- check user interruption
	 if stopCheck() then
	    return -- return with no error
	 end
      end

   if result == 0  then
     local file = openfile("primes.txt", "a")
     write(file, format("%s %s\n", k, n))
     closefile(file)
   end

      SemaWait(semaphore)

      -- add the result in tosend table and file
      local tbl = { t = t, k = k, n = n, 
(...)

the primes in this file are formatted as one prime per line with 'k n' values.

karsten

[IronBits]

I have used that and it works fine listing out just the primes.
I'd like it to report the user that found it and the date to.
Anyway to make it do all that?

[mdettweiler]

Originally Posted by IronBits

I have used that and it works fine listing out just the primes.
I'd like it to report the user that found it and the date to.
Anyway to make it do all that?

I think Karsten's modification is for the client, not the server, right?

[IronBits]

This is what I use on the Server.

function OnPrime(t, k, n, job)
   local fileprime = openfile("primes.txt", "a")
   if fileprime then
      write(fileprime, format("[%s]\n", job.resultdate))
      write(fileprime, format(displayFormat.." is prime!  Time : %d.0 sec.\n",
                  k, n,
                  Seconds() - job.seconds))
      closefile(fileprime)
   end
end

[mdettweiler]

Originally Posted by IronBits

This is what I use on the Server.

function OnPrime(t, k, n, job)
   local fileprime = openfile("primes.txt", "a")
   if fileprime then
      write(fileprime, format("[%s]\n", job.resultdate))
      write(fileprime, format(displayFormat.." is prime!  Time : %d.0 sec.\n",
                  k, n,
                  Seconds() - job.seconds))
      closefile(fileprime)
   end
end

Hmm. Though I don't know squat about the LUA programming language, it looks like the OnPrime function isn't even being fed the username--so it might be technically impossible to have it output the user for each prime without actually modifying the one of the .lua files (rather than just using the built in OnPrime function thing in the llr-serverconfig.txt file).

[AES]

Isn't "job" the array from the joblist file?

You could just add:

write(fileprime, format("user=%s\n", job.user))

Function OnPrime:

function OnPrime(t, k, n, job)
   local fileprime = openfile("primes.txt", "a")
   if fileprime then
      write(fileprime, format("user=%s\n", job.user))
      write(fileprime, format("[%s]\n", job.resultdate))
      write(fileprime, format(displayFormat.." is prime!  Time : %d.0 sec.\n",
                  k, n,
                  Seconds() - job.seconds))
      closefile(fileprime)
   end
end

[mdettweiler]

Originally Posted by AES

Isn't "job" the array from the joblist file?

You could just add:

write(fileprime, format("user=%s\n", job.user))

Function OnPrime:

function OnPrime(t, k, n, job)
   local fileprime = openfile("primes.txt", "a")
   if fileprime then
      write(fileprime, format("user=%s\n", job.user))
      write(fileprime, format("[%s]\n", job.resultdate))
      write(fileprime, format(displayFormat.." is prime!  Time : %d.0 sec.\n",
                  k, n,
                  Seconds() - job.seconds))
      closefile(fileprime)
   end
end

Ah, I see, I didn't notice that job was an array. Looked like a scalar to me. (since LUA, unlike most other programming languages, doesn't have an easy way to distinguish between scalars and arrays at a glance).

[kar_bon]

to print all found primes in a seperate file (like Adams version) you can edit 'llrserver.lua' too.
the function 'WriteResultToFile' does such a thing (line 108):

function WriteResultToFile(job, filename)
   -- write result into lresults file
   local file = openfile(filename, "a")
   if file then
      write(file, format("user=%s\n", job.user))
      write(file, format("[%s]\n", job.resultdate))
      if job.result ~= "0" then
	 write(file, format(displayFormat.." is not prime.  Res64: %s  Time : %d.0 sec.\n", 
			    job.k, job.n, job.result, 
			    Seconds() - job.seconds))
      else
	 write(file, format(displayFormat.." is prime!  Time : %d.0 sec.\n", 
			    job.k, job.n, 
			    Seconds() - job.seconds))

         local fileprime = openfile("primes.txt", "a")
         if fileprime then
            write(fileprime, format("%s %s %s\n", job.k, job.n, job.user))
            closefile(fileprime)
         end


      end
      closefile(file)
   end
end

i couldn't check this if it works. try it.

karsten

[IronBits]

Thanks, I'll give it a try.

[kar_bon]

in post #2 i gave the hint to create a seperate file for found primes (the client version).

for llrnet users like me with several folders of llrnet-ports/servers (i use a Quad so i got four folders for each of the two servers now) here is another hint:
my folders looks like this:

[LLRnet_A300_1]
[LLRnet_A300_2]
[LLRnet_A300_3]
[LLRnet_A300_4]
[LLRnet_I5000_1]
[LLRnet_I5000_2]
[LLRnet_I5000_3]
[LLRnet_I5000_4]
prim.bat
tests.bat

where [...] are the folders (A-> AES server, I->IronBits server) and the two batches to show me number of done tests and found primes.

now, edit one line from post #2:

  local file = openfile("..\\primes.txt", "a")

and the file 'primes.txt' will be generated not in the LLRnet-folder but in the folder above.
so every found prime from every server/port will be written there.
another point: if any prime is found the file exists. after checking you can delete this file and go on.

-> [PseudoCode on]

if exists(primes.txt)
      ALARM("prime found!")
endif

karsten