ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/WCVFY.ZIP/WCVFYUTL.WCC

Text File | 1994-10-11 | 5KB | 124 lines

Type TempRecord
   Name As String*25
   Phone As String*15
   Data As String*15
   Fax As String*15
   SecLevel As String*10
End Type

Dim wcVfyV As String
Dim uRec As UserRecord
Dim tRec As TempRecord
Dim Selection As String*1
Dim Exclude As String*10
Dim Today As DateTime
Dim GO As Integer
Dim FName As String
Dim FView As Integer
Dim First As String
CurrentDateTime(Today)
wcVfyV = "1.01"

Do
  CLS
  Locate 2,1
  Print "                          @0F@wcVFY Utility@0E@ v@0F@" + wcVfyV + "@0E@"
  Print "                       written by @0F@Stephen Barclay@0E@"
  Locate 6,1
  Print "          [A] Create WCVFY.DAT file, for Dupe Checking"
  Print "          [B] Export User List from WCVFY.DAT to a File"
  Print "          [C] View WCVFY.LOG File"
  Print " "
  Print "          [Q] Quit and Exit Program"
  Print " "
  Print "          Please select [@0F@A B C Q@0E@] ? " ;
  Input Selection
     Select Case uCase(Selection)
      Case "A"
        CLS
        Locate 2,1
        Print "                    Welcome to the wcVFY Data creator"
        Locate 4,1
        Print "   This Program will create a WCVFY.DAT file in your Wildcat Home Dir,"
        Print "this is usually only preformed ONCE!  It will export the Phone, Data,"
        Print "and Fax Numbers from your Current Users.  It will NOT export the Numbers"
        Print "for a specific Profile that you may specify in a moment."
        Locate 10,1
        Print "   This file (WCVFY.DAT) will be used by wcVFY Call-Back Verifier program "
        Print "that is distributed by Stephen Barclay.  This program will also update"
        Print "the phone numbers after a User has been validated.  Also included in the"
        Print "program is Log Creating ability.  It will capture the time, date, and "
        Print "other information which may be usefull to you.  You can also use it to"
        Print "post a message to yourself once someone is validated."
        WaitEnter
        CLS
        Locate 4,1
        Print "Please make sure if you EXCLUDE a Security Profile it is typed in"
        Print "UPPER CASE and also is a valid Security Profile in Makewild."
        Print "Pressing [ENTER] will include ALL Security Levels."
        Locate 8,1
        Print "Which Security Level would you like to exclude? " ;
        Input Exclude
         If Exclude <> "" Then
            Locate 10,1
               Print " The Security Profile of @0F@" ; Exclude ; "@0E@ will not be added to the database."
         End If

        Open "wcvfy.dat" For Random As #1 Len = Len(TempRecord)
        First = ""
        If GetUser(uRec, First) Then
          Do While GetNextUser(uRec)
           If uRec.SecLevel <> Exclude Then
             tRec.Name = Pad(uRec.Name, 25)
             tRec.Phone = uRec.PhoneNumber
             tRec.Data = uRec.DataNumber
             tRec.Fax = uRec.FaxNumber
             tRec.Seclevel = Pad(uRec.SecLevel, 10)
               If tRec.Phone <> "" Then
                 Put #1,, tRec
               End If
           End If
           Loop
           Close
         End If
         Locate 15,1
         Print "........All Done, the DATA file was created successfully!"
         WaitEnter
      Case "B"
        Print ""
        GO = InputYesNo("Would you like to export the Users to a text file? ")
        If GO = True Then
           FName = InputMask ("Please give me a vaild 8 character Dos file Name (No Numbers): ", "XXXXXXXX")
           Dim g As Integer
           Open "wcvfy.dat" For Random As #1 Len = Len(TempRecord)
           Open FName + ".lst" For Output As #2
           g = 1
           Print #2, "           wcVFY User Listing, at " ; FormatTime(Today.t, "hh:mm:ss") ; " on " ; FormatDate(Today.d, "mm/dd/yy")
           Print #2, ""
           Print #2, " User Name                 Home Phone     Data Phone    Fax Phone "
           Print #2, "---------------------------------------------------------------------"
             Do While Not (EOF(1))
               g = g + 1
               Get #1, g, tRec
               Print #2, Pad(tRec.Name,25) + " " ; tRec.Phone + "   " ; tRec.Data + "   " ; tRec.Fax
             Loop
             Close
        End If
        Print "All Done..."
        FView = InputYesNo ("Would you like to view the file? ")
        If FView = True Then
          DisplayTextFile FName + ".lst"
          WaitEnter
        End If
      Case "C"
         DisplayTextFile "wcvfy.log"
         WaitEnter
      Case "Q"
         Exit Do
      Case Else
         Print "Not a valid selection, please try again"
         Beep
         WaitEnter
     End Select
Loop