home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 20162 < prev    next >
Encoding:
Internet Message Format  |  1992-12-31  |  2.7 KB
  1. Path: sparky!uunet!comp.vuw.ac.nz!zl2tnm!toyunix!don
  2. Newsgroups: comp.os.vms
  3. Subject: Re: comp.os.vms.flame, never ending story...
  4. Message-ID: <8949365@zl2tnm.gen.nz>
  5. From: don@zl2tnm.gen.nz (Don Stokes)
  6. Date: 31 Dec 92 16:30:31 GMT
  7. Sender: news@zl2tnm.gen.nz (GNEWS Version 2.0 news poster.)
  8. References: <00965DB1.3FA57140.6066@tchden.org>
  9. Distribution: world
  10. Organization: The Wolery
  11. Lines: 60
  12.  
  13. lbmoore@tchden.org ("Louis B. Moore") writes:
  14. > Nobody pointed out that Carl had politely responded to requests for help
  15. > from Egypt before, again politely, suggesting an interpreter.  Carl's flames
  16. > have been much flamed, but Carl's patience has been ignored.
  17.  
  18. I can't help but notice that far more traffic has been generated lately
  19. on flames about flames than on stupid posts, flames to stupid posts,
  20. or actual useful postings.  <sigh>
  21.  
  22. > With thanks to Ehud for the concept, what follows is some actual
  23. > technical content:
  24.  
  25. I like this idea.  How about someone setting up an automatic (email!) 
  26. flame-launcher for anyone not adding an obtech to flames?  8-)
  27.  
  28. >            .Title        RANDOM_INT
  29.  
  30. Cute, but I do these things in DCL.... 8-)
  31.  
  32. $    ver = 'f$verify(0)'
  33. $!==============================================================================
  34. $!        COOKIE.COM - Fortune cookie
  35. $!==============================================================================
  36. $    cookiefile = f$parse(".DAT;", f$environment("PROCEDURE"))
  37. $    if p1 .eqs. "ADD" then goto add_a_cookie
  38. $    open/read/share in 'cookiefile'
  39. $    read in record
  40. $    howmuch = f$integer(f$extract(4, 4, record))
  41. $    rnd = f$integer(f$cvtime(,, "TIME") - ":"-":"-".")
  42. $    key = f$fao("!4UL", rnd - (rnd / howmuch * howmuch) + 1)
  43. $    read in record/key=&key
  44. $    write SYS$OUTPUT f$extract(4, 255, record)
  45. $    close in
  46. $    exit 1+0*f$verify(ver)
  47. $!
  48. $ add_a_cookie:
  49. $    text = p2
  50. $    if text .eqs. "" then read SYS$COMMAND text/error=abort/prompt="Texti: "
  51. $    if text .eqs. "" then exit
  52. $    open/read/write/share in 'cookiefile'
  53. $    read in record
  54. $    howmuch = f$integer(f$extract(4, 4, record))
  55. $    howmuch = howmuch + 1
  56. $    record = f$fao("!4UL!AS", howmuch, text)
  57. $    write in record
  58. $    read/key="   0" in record
  59. $    write/update in f$fao("   0!UL", howmuch)
  60. $    close in
  61. $ abort:
  62. $    exit 1+0*f$verify(ver)
  63. $!------------------------------------------------------------------------------
  64.  
  65. (COOKIE.DAT is an indexed file with a four character key, which is an right
  66. justified decimal number.  The "   0" record contains the highest record
  67. number.  The rest of the record is the "fortune cookie".)
  68.  
  69. --
  70. Don Stokes, ZL2TNM (DS555)                        don@zl2tnm.gen.nz (home)
  71. Network Manager, Computing Services Centre            don@vuw.ac.nz (work)
  72. Victoria University of Wellington, New Zealand              +64-4-495-5052
  73.