; An example ONABORT file. Note the use of meta characters and environmental
; variables.
; There are three conditions that can be tested for in the abort file:
;
; 1 - TIMEOUT - the caller paged, but the sysop did not answer during
; normal hours.
; 2 - TIMELIMIT - the caller attempted to page outside the normal schedule
; hours.
; 3 - BLOCKED - the caller's page is blocked, either globally with the
; BLOCK command or via the 'Q' during a normal page.
;
; Please note: All tests are now CASE INSENSITIVE. Some tests are in
; UPPER CASE to help them stand out.
if test then ; value passed from the command line with /dtest.
include test.bbs ; include and execute this file.
exit ; exit the phone abort file at this point.
endif ; end of if test.
cls
print "n─O"
;
; For testing purposes. Invoke with /dtest2 and then force a block
; while it's paging.
;
if test2 then
print
print "Test of bad environmental variable: |%foobar%|"
print "4DOS test - CMDLINE: %cmdline%."
print "The time is $T. The date is $D."
print "The port is $P. The baud rate is $B."
print "Your full name is $U."
print "The nodelist path is %nodelist%."
print "The temporary work area is %tmp%."
print "Testing escaping the percent character, '%%'."
print "Testing escaping the dollar sign, '$$'."
print
print "n─O"
exit
endif
;
;
if BLOCKED then ; if the chat request was blocked...
cls ; clear the screen and display the following text.
"
"n─O
"I'm sorry, , but paging has been Oblocked, even during normal
"paging hours. If you need to leave me a message, please do so
"in the General area or at logoff. Thank you.
"n─O
exit
endif
;
if TIMELIMIT then
print "I'm sorry, $F, but the time is O $T ."
print "Phone hours today are O $E ."
print "n─O"
endif
;
if TIMEOUT then
print "Even though the time is $T and within today's time limits,"
print "I'm sorry I could not answer your page. "
endif
print "If you need to leave me a message please do so at the logoff"
print "or in the General message area. Thank you."
print "n─O"