home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / AUTOVAL4.ZIP / AUTOVAL.DOC next >
Text File  |  1992-02-29  |  10KB  |  239 lines
  1. Autoval Mod for VBBS. Install Instructions:     VERSION 4.0
  2. ------------------------------------------------------------------------------
  3. Legend:         + Add the Line  - Delete the Line       = Existing Line
  4. ------------------------------------------------------------------------------
  5. * Note to users who have already installed the autoval mod. Make sure these
  6.   lines match perfectly....
  7. ------------------------------------------------------------------------------
  8.  
  9.         First off MANY thanks to Zargon, 1@1 for the modem routines, without
  10. which this mod would not have been possible  and to Elminster 1@6992 who took
  11. the time to help check it out to make sure it worked. Now on to the install
  12. part. Be sure to read everything first before attempting this mod. It is not
  13. HARD but if you overlook something it will be difficult to find the problem.
  14.  
  15.  
  16. IN VBBS.BAS ---->
  17.  
  18.         +       At the top add these lines
  19.  
  20.                 DECLARE SUB AUTOVAL ()
  21.                 DECLARE SUB CHECKPHONE ()
  22.         *       DECLARE SUB AVBAD (T$)
  23.  
  24.                 IF YOU ALREADY HAVE AUTOVAL INSTALLED THEN YOU NEED TO
  25.                 DELETE THE SUB PROGRAMS, NOT THE DECLARE STATEMENTS JUST
  26.                 THE SUBS THEMSELVES..
  27.  
  28. IN VBBS5.BAS
  29.         +       At the top add the following declare statements
  30.  
  31.                 DECLARE SUB AUTOVAL ()
  32.                 DECLARE SUB AVBAD (T$)
  33.                 DECLARE SUB CHECKPHONE ()
  34.                 DECLARE SUB LONGRESULT (T$,L$,BB%)
  35.                 DECLARE SUB OUTLINE (P$)
  36.  
  37.         +       Block copy the file avbad.sub into this new sub program.
  38.  
  39.         +       Block copy the file checkph.sub info this new sub program.
  40.  
  41.  
  42.         +       Block Copy the Autoval.sub file into the autoval sub you
  43.                 just created.
  44.  
  45.         +       Go into the autoval sub and near the top you will see this
  46.  
  47.                         outline "ATV1H0X6"+ cr$
  48.  
  49.                 Change this X6 parameter to what ever your modem uses to
  50.                 detect VOICE, generally X5 or X6 or delete it if your
  51.                 modem can not determine voice status.
  52.  
  53.  
  54. UNDER VBBS.BAS NEAR THE 1ST QUARTER:
  55.  
  56. =       CLOSE 1
  57. =       break = 0: dbdef = 0: inusered = 0: lastwarn = 0: snoop = 1: sysopalert = 0
  58. =       group$ = "": numgroup = 0: wrap$ = "": sysopavail = 0
  59. +       aval=0:avlocal=0:chkphone=0
  60. =       z$ = UCASE$(COMMAND$)
  61. =       z = VAL(z$)
  62.  
  63.  
  64.  
  65. STILL IN VBBS (THIS IS FOR USERS WHO HAVE ALREADY PUT IN AUTOVAL)
  66. MAKE SURE YOU CHANGE THESE LINES BACK TO THE WAY THEY ARE HERE....
  67.  
  68.                 *       IF cdchk = 0 GOTO vxx
  69.                 *       DO
  70.                 *       writeln "             ###-###-####"
  71.                 *       serwrt "Voice Phone: "
  72.                 *       getline t$, ""
  73.                 *       LOOP WHILE t$ = "" AND LEN(t$) <> 12 AND cdchk = 1
  74.                 *       u1.ph1 = t$
  75.                 *       IF cdchk = 0 GOTO vxx
  76.                 *       writeln "             ###-###-####"
  77.                 *       serwrt "Data  Phone: "
  78.                 *       getline t$, "": u1.ph2 = t$
  79.                 *       IF t$ = "" THEN u1.ph2 = u1.ph1
  80.                 *       IF cdchk = 0 GOTO vxx
  81.                 *       docr
  82.  
  83.  
  84. STILL IN VBBS.BAS UNDER 'NEWUSER:'
  85.  
  86.                 =       serwrt "Verify PW: "
  87.                 =       getline t$, "X"
  88.                 =       if cdchk=0 goto vxx
  89.                 +       checkphone
  90.                 +       if chkphone=2 goto vxx          /'chk' NOT 'check'/
  91.                 +       if (aval=4) then autoval
  92.                 +       if (aval=2 or aval=3) goto vxx
  93.                 =       if msl.allowautosysop then
  94.                 =       writeln ""
  95.  
  96.  
  97. AND STILL FARTHER DOWN:
  98.  
  99.                 =       nu = opendbqs: PUT 3, user, g&: CLOSE 3
  100.                 =       NEXT
  101.                 =       CLOSE 8
  102.                 =       docr
  103.                 =       writeln "Done"
  104.                 +       IF aval = 1 THEN
  105.                 +       newuseremail
  106.                 +       f$ = systxtp$ + "avalmail.msg"
  107.                 +       buclr
  108.                 +       buload f$
  109.                 +       d1.fromn = node
  110.                 +       d1.from = CINT(user)
  111.                 +       d1.froms = RTRIM$(u1.handle)
  112.                 +       setemail
  113.                 +       savedb 1, node, "Autovalidated New User", 0, "", 0, 0
  114.                 +       buclr
  115.                 +       writeln cr$
  116.                 +       echofile systxtp$ + "avcall.msg"
  117.                 +       writeln cr$
  118.                 +       waits 5
  119.                 +       logoff
  120.                 +       IF cdchk = 0 GOTO vxx
  121.                 +       END IF
  122.                 =       pause ""
  123.  
  124.  
  125. STILL IN VBBS.BAS NOW UNDER 'VXX:'
  126.  
  127.                                 = u1.sec = 0
  128.                                 = u1.ph1 = ""
  129.                                 + u1.verb = CHR$(0)
  130.                                 = GOTO nextcall
  131.  
  132.  
  133. NOW IN VBBSTYPE.BAS
  134.  
  135.       Go to the end where all the COMMON SHARED statements are and add this:
  136.  
  137. +               COMMON SHARED aval as integer, chkphone as integer
  138. +               COMMON SHARED avlocal as integer, avld as integer
  139.  
  140.  
  141.  
  142. NOW CREATE THE FOLLOWING FILES WHERE INDICATED USING ANY TEXT WORD PROCESSOR
  143.  
  144.         PHONES.DAT ... Goes under the Main VBBS directory .... Use the Example
  145.                        File provided...
  146.  
  147.         AVAL.MSG   ... Goes under your Text File Dir (with the Menus) .... Use
  148.                        the sample provided or modify it...
  149.  
  150.         BADPHONE.MSG .. Goes with the AVAL.MSG file.... Use the Sample provided
  151.                         or modify it....
  152.  
  153.         AVCALL.MSG .... Goes with the Text files.... It prints out just before
  154.                         aval hangs up on the user if he successfully autovals
  155.                         Use the example or modify it.
  156.  
  157.         AVALMAIL.MSG .. Goes the same as above. Only put this file in if you
  158.                         Add the routine at the end to send Email to the
  159.                         Sysop when a user autovalidates. This file contains
  160.                         the text to be sent to you. Use the sample provided
  161.                         or modify it to suit your needs.
  162.  
  163.         AVBADPH.MSG .. This is the file sent to the sysop when a users phone
  164.                        is put in the bad phone section of Phones.dat. It goes
  165.                        under the text file sections with the others. Modify
  166.                        it to suit your preference...
  167.  
  168.  
  169. IF YOU HAVE OR PLAN ON USING THE AUTO SYSOP VALIDATION: Built into vbbs then
  170. you need to install ONE of the Options below.
  171.  
  172.         OPTION 1:       This option will only offer auto sysop validation to
  173.                         users who do not use the autoval program.
  174.  
  175.                     In VBBS.BAS under newuser:
  176.  
  177.                          =       If (aval=2 or aval=3) goto vxx
  178. Delete this line and     -       If msl.allowautosysop then
  179. replace with this one    +       If (msl.allowautosysop and aval <>1) then
  180.                          =       writeln " "
  181.  
  182.         OPTION 2:       Allows use of both autoval and auto sysop val.
  183.  
  184.                 (A)     If you are using the User Sex mod ;
  185.  
  186.                         Set the Autosysop Security and Maxtime in  vconfig
  187.                         to the same or higher than the settings for a Female
  188.                         in the autoval program. (Aval default = 75/120)
  189.  
  190.                 (B)     If you are not using the User Sex mod ;
  191.  
  192.                         Set the Autosysop Security and Maxtime in vconfig
  193.                         to the same or higher than the settings for Non-
  194.                         Females in the autoval program. (Aval = 50/60).
  195.  
  196.  
  197.         Right now the program will only add a users phone to the bad phone
  198. list if they fail a reconnect. If you want to add to this then install the
  199. changes as listed below: (I do not recommend these as some users are not
  200. familiar with autoval procedures/modems and once the number is in the bad
  201. phone list they will be dropped if they call back and try to log in as a
  202. new user with that phone number again, only fix is for sysop to remove the
  203. offending number from the bad phone list)
  204.  
  205.         To add a number to the bad phone list when a user successfully
  206. autovalidates do this: IN VBBS.BAS
  207.  
  208.                         =       docr
  209.                         =       writeln "Done"
  210.                         =       if aval = 1 then
  211.                         =       newuseremail
  212.                         +       avbad "AUTOVALIDATED"
  213.                         =       f$ = systxtp$ + "avalmail.msg"
  214.  
  215.         To add a number to the bad phone list when a user reenters the wrong
  216. password do this: IN VBBS5.BAS UNDER SUB AUTOVAL
  217.  
  218.                         =       End If
  219.                         =       if aval = 2 then
  220.                         +       avbad "RECON WRONG PW"
  221.                         =       syslog "!!!" + date$ + "     " + time$
  222.  
  223.  
  224.         To add a number to the bad phone list when a user aborts autoval do
  225. this. IN VBBS5.BAS UNDER SUB CHECKPHONE
  226.  
  227.                         =       qltt:
  228.                         =       if aval =  5 then
  229.                         +       avbad "ABORTED AVAL"
  230.                         =       syslog "!!!" + date$ + "     " + time$
  231.  
  232.         Thats all folks! Hope you enjoy. If you experience problems you can get
  233. help by calling Big Blue Connection 619-225-9720 or by leaving Email for
  234. 1 @ 6993 (Virtualnet or WWIVnet)
  235.         Be sure to read SYSOP.DOC for an explanation of how the program works..
  236.  
  237.  
  238.  
  239.