home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PHONE266.ZIP / PHONE.ABT < prev    next >
Text File  |  1991-02-17  |  2KB  |  69 lines
  1. ; An example ONABORT file. Note the use of meta characters and environmental
  2. ; variables.
  3.  
  4. ; There are three conditions that can be tested for in the abort file:
  5. ;
  6. ; 1 - TIMEOUT - the caller paged, but the sysop did not answer during
  7. ;               normal hours.
  8. ; 2 - TIMELIMIT - the caller attempted to page outside the normal schedule
  9. ;                 hours.
  10. ; 3 - BLOCKED - the caller's page is blocked, either globally with the
  11. ;               BLOCK command or via the 'Q' during a normal page.
  12. ;
  13. ; Please note: All tests are now CASE INSENSITIVE. Some tests are in
  14. ;           UPPER CASE to help them stand out.
  15.  
  16. if test then        ; value passed from the command line with /dtest.
  17. include test.bbs    ; include and execute this file.
  18. exit            ; exit the phone abort file at this point.
  19. endif            ; end of if test.
  20.  
  21. cls
  22. print "n─O"
  23. ;
  24. ; For testing purposes. Invoke with /dtest2 and then force a block
  25. ; while it's paging.
  26. ;
  27. if test2 then
  28. print
  29. print "Test of bad environmental variable: |%foobar%|"
  30. print "4DOS test - CMDLINE: %cmdline%."
  31. print "The time is $T. The date is $D."
  32. print "The port is $P. The baud rate is $B."
  33. print "Your full name is $U."
  34. print "The nodelist path is %nodelist%."
  35. print "The temporary work area is %tmp%."
  36. print "Testing escaping the percent character, '%%'."
  37. print "Testing escaping the dollar sign, '$$'."
  38. print
  39. print "n─O"
  40. exit
  41. endif
  42. ;
  43. ;
  44. if BLOCKED then        ; if the chat request was blocked...
  45. cls            ; clear the screen and display the following text.
  46. "
  47. "n─O
  48. "I'm sorry, , but paging has been Oblocked, even during normal
  49. "paging hours. If you need to leave me a message, please do so
  50. "in the General area or at logoff. Thank you.
  51. "n─O
  52. exit
  53. endif
  54.  
  55. ;
  56. if TIMELIMIT then
  57. print "I'm sorry, $F, but the time is O $T ."
  58. print "Phone hours today are O $E ."
  59. print "n─O"
  60. endif
  61. ;
  62. if TIMEOUT then
  63. print "Even though the time is $T and within today's time limits,"
  64. print "I'm sorry I could not answer your page. "
  65. endif
  66. print "If you need to leave me a message please do so at the logoff"
  67. print "or in the General message area. Thank you."
  68. print "n─O"
  69.