home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / WCVFY.ZIP / WCVFYUTL.WCX (.txt) < prev   
Wildcat! WCX  |  1994-10-11  |  3KB  |  139 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3192 bytes  12/30/122  04:15:50pm
  3. '! Code Segment Size  :1216 bytes
  4. '! Data Segment Size  :5228 bytes
  5. '! String Segment Size:1976 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type26
  9.         s0 As String*25
  10.         s25 As String*15
  11.         s40 As String*15
  12.         s55 As String*15
  13.         s70 As String*10
  14.       End Type
  15.  
  16.       Dim s4463 As String
  17.       Dim ur4467 As UserRecord
  18.       Dim t26_5117 As Type26
  19.       Dim s5197 As String*1
  20.       Dim s5198 As String*10
  21.       Dim dt5208 As DateTime
  22.       Dim i5214 As Integer
  23.       Dim s5216 As String
  24.       Dim i5220 As Integer
  25.       Dim s5222 As String
  26.       Dim i5226 As Integer
  27.  
  28.       Dim s65532_ As String
  29.  
  30.       CurrentDateTime dt5208
  31.       s4463 = "1.01"
  32.       Do
  33.    55   Cls 
  34.         Locate 2, 1
  35.         Print "                          @0F@wcVFY Utility@0E@ v@0F@" + s4463 + "@0E@"
  36.         Print "                       written by @0F@Stephen Barclay@0E@"
  37.         Locate 6, 1
  38.         Print "          [A] Create WCVFY.DAT file, for Dupe Checking"
  39.         Print "          [B] Export User List from WCVFY.DAT to a File"
  40.         Print "          [C] View WCVFY.LOG File"
  41.         Print " "
  42.         Print "          [Q] Quit and Exit Program"
  43.         Print " "
  44.         Print "          Please select [@0F@A B C Q@0E@] ? ";
  45.         Input s5197
  46.         s65532_ = UCase(s5197)
  47.         If s65532_ = "A" Then
  48.           Cls 
  49.           Locate 2, 1
  50.           Print "                    Welcome to the wcVFY Data creator"
  51.           Locate 4, 1
  52.           Print "   This Program will create a WCVFY.DAT file in your Wildcat Home Dir,"
  53.           Print "this is usually only preformed ONCE!  It will export the Phone, Data,"
  54.           Print "and Fax Numbers from your Current Users.  It will NOT export the Numbers"
  55.           Print "for a specific Profile that you may specify in a moment."
  56.           Locate 10, 1
  57.           Print "   This file (WCVFY.DAT) will be used by wcVFY Call-Back Verifier program "
  58.           Print "that is distributed by Stephen Barclay.  This program will also update"
  59.           Print "the phone numbers after a User has been validated.  Also included in the"
  60.           Print "program is Log Creating ability.  It will capture the time, date, and "
  61.           Print "other information which may be usefull to you.  You can also use it to"
  62.           Print "post a message to yourself once someone is validated."
  63.           WaitEnter 
  64.           Cls 
  65.           Locate 4, 1
  66.           Print "Please make sure if you EXCLUDE a Security Profile it is typed in"
  67.           Print "UPPER CASE and also is a valid Security Profile in Makewild."
  68.           Print "Pressing [ENTER] will include ALL Security Levels."
  69.           Locate 8, 1
  70.           Print "Which Security Level would you like to exclude? ";
  71.           Input s5198
  72.           If s5198 <> "" Then
  73.             Locate 10, 1
  74.             Print " The Security Profile of @0F@"; s5198; "@0E@ will not be added to the database."
  75.           End If
  76.   441     Open "wcvfy.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  77.           s5222 = ""
  78.           If GetUser(ur4467, s5222) Then
  79.   486       Do While GetNextUser(ur4467, 1213417543)
  80.               If ur4467.SecLevel <> s5198 Then
  81.                 t26_5117.s0 = Pad(ur4467.Name, 25)
  82.                 t26_5117.s25 = ur4467.PhoneNumber
  83.                 t26_5117.s40 = ur4467.DataNumber
  84.                 t26_5117.s55 = ur4467.FAXNumber
  85.                 t26_5117.s70 = Pad(ur4467.SecLevel, 10)
  86.                 If t26_5117.s25 <> "" Then
  87.                   Put 1, -1, t26_5117 '! 80 bytes
  88.                 End If
  89.               End If
  90.   669       Loop
  91.   675       Reset 
  92.           End If
  93.   678     Locate 15, 1
  94.           Print "........All Done, the DATA file was created successfully!"
  95.           WaitEnter 
  96.         Else
  97.   703     If s65532_ = "B" Then
  98.             Print ""
  99.             i5214 = InputYesNo("Would you like to export the Users to a text file? ", 1213417543)
  100.             If i5214 = -1 Then
  101.               s5216 = InputMask("Please give me a vaild 8 character Dos file Name (No Numbers): ", "XXXXXXXX", "", 1213417543)
  102.               Open "wcvfy.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  103.               Open s5216 + ".lst" For Output As 2
  104.               i5226 = 1
  105.               Print #2, "           wcVFY User Listing, at "; FormatTime(dt5208.T, "hh:mm:ss"); " on "; FormatDate(dt5208.D, "mm/dd/yy")
  106.               Print #2, ""
  107.               Print #2, " User Name                 Home Phone     Data Phone    Fax Phone "
  108.               Print #2, "---------------------------------------------------------------------"
  109.   920         Do While Not EOF(1)
  110.                 i5226 = i5226 + 1
  111.                 Get 1, i5226, t26_5117 '! 80 bytes
  112.                 Print #2, Pad(t26_5117.s0, 25) + " "; t26_5117.s25 + "   "; t26_5117.s40 + "   "; t26_5117.s55
  113.               Loop
  114.  1041         Reset 
  115.             End If
  116.  1044       Print "All Done..."
  117.             i5220 = InputYesNo("Would you like to view the file? ", 1213417543)
  118.             If i5220 = -1 Then
  119.               DisplayTextFile(s5216 + ".lst")
  120.               WaitEnter 
  121.             End If
  122.  1105     Else
  123.  1111       If s65532_ = "C" Then
  124.               DisplayTextFile("wcvfy.log")
  125.               WaitEnter 
  126.             Else
  127.  1146         If s65532_ = "Q" Then
  128.                 GoTo 1196
  129.               Else
  130.  1175           Print "Not a valid selection, please try again"
  131.                 Beep 
  132.                 WaitEnter 
  133.               End If
  134.             End If
  135.           End If
  136.         End If
  137.  1190 Loop
  138.  1196
  139.