home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / sendfile.zip / SENDFILE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1994-11-10  |  2KB  |  161 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1704 bytes  12/17/122  09:08:48am
  3. '! Code Segment Size  :1293 bytes
  4. '! Data Segment Size  :5997 bytes
  5. '! String Segment Size:411 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Function Func581 As Integer
  9.       Declare Function Func1102 As Integer
  10.  
  11.       Dim s4463 As String
  12.       Dim s4467 As String
  13.       Dim s4471 As String
  14.       Dim s4475 As String
  15.       Dim s4479 As String
  16.       Dim s4483 As String
  17.       Dim fr4487 As FileRecord
  18.       Dim s5971 As String
  19.       Dim s5975 As String
  20.       Dim i5979 As Integer
  21.       Dim s5981 As String
  22.       Dim i5985 As Integer
  23.       Dim dt5987 As DateTime
  24.       Dim s5993 As String
  25.  
  26.       CarrierCheck(-1)
  27.       CurrentDateTime dt5987
  28.       Func581
  29.       Func1102
  30.       s5971 = UCase(s5971)
  31.       s5975 = UCase(s5975)
  32.       If i5979 = -1 Then
  33.         Open ProgPath + "sentuser.lst" For Input As 3
  34.   130   Do While Not EOF(3)
  35.           s5981 = UCase(s5981)
  36.           Input #3, s5981
  37.           If s5981 = User.Name Then
  38.             i5985 = -1
  39.             GoTo 215
  40.           Else
  41.   203       i5985 = 0
  42.           End If
  43.   209   Loop
  44.       End If
  45.   215 Close 3
  46.       If i5985 = 0 Then
  47.         Cls 
  48.         DisplayFile("senduse1")
  49.         WaitEnter 
  50.         If s5971 <> "" Then
  51.           SendFile(s5971, 1213417543)
  52.           If GetFileInfo(fr4487, s5971) Then
  53.             fr4487.Downloads = fr4487.Downloads + 1
  54.             fr4487.LastAccess = dt5987 '! 6 bytes
  55.             UpdateFile(fr4487)
  56.           End If
  57.         End If
  58.   337   If s5975 <> "" Then
  59.           SendFile(s5975, 1213417543)
  60.           If GetFileInfo(fr4487, s5975) Then
  61.             fr4487.Downloads = fr4487.Downloads + 1
  62.             fr4487.LastAccess = dt5987 '! 6 bytes
  63.             UpdateFile(fr4487)
  64.           End If
  65.         End If
  66.   425   Cls 
  67.         DisplayFile("senduse2")
  68.         WaitEnter 
  69.         Open ProgPath + "sentuser.lst" For Append As 4
  70.         If User.Name <> "" Then
  71.           CarrierCheck(0)
  72.           LockFile(4, 0, 1)
  73.           Print #4, User.Name
  74.           UnlockFile(4, 0, 1)
  75.           CarrierCheck(-1)
  76.         End If
  77.       End If
  78.   533 Reset 
  79.       End 
  80.  
  81. '! Called 1 time
  82.       Function Func581 As Integer
  83.         s4463 = ProgPath + "sendfile.cfg"
  84.         If Exists(s4463) Then
  85.           Open s4463 For Input As 1
  86.   636     Do While Not EOF(1)
  87.             Input #1, s5993
  88.             s5993 = UCase(s5993)
  89.             If InStr(s5993, "EXCLUDE1=") = 1 Then
  90.               s4467 = RTrim(Mid(s5993, 10, 20))
  91.             End If
  92.   707       If InStr(s5993, "EXCLUDE2=") = 1 Then
  93.               s4471 = RTrim(Mid(s5993, 10, 20))
  94.             End If
  95.   747       If InStr(s5993, "EXCLUDE3=") = 1 Then
  96.               s4475 = RTrim(Mid(s5993, 10, 20))
  97.             End If
  98.   787       If InStr(s5993, "EXCLUDE4=") = 1 Then
  99.               s4479 = RTrim(Mid(s5993, 10, 20))
  100.             End If
  101.   827       If InStr(s5993, "EXCLUDE5=") = 1 Then
  102.               s4483 = RTrim(Mid(s5993, 10, 20))
  103.             End If
  104.   867       If InStr(s5993, "FILETOSEND1=") = 1 Then
  105.               s5971 = RTrim(Mid(s5993, 13, 80))
  106.             End If
  107.   907       If InStr(s5993, "FILETOSEND2=") = 1 Then
  108.               s5975 = RTrim(Mid(s5993, 13, 80))
  109.             End If
  110.   947     Loop
  111.   953     Close 1
  112.         Else
  113.   964     Open "sendfile.err" For Append As 2
  114.           CarrierCheck(0)
  115.           LockFile(2, 0, 1)
  116.           Print #2, "-------------------------------------------------------------------------------"
  117.           Print #2, FormatDate(dt5987.D, "mm/dd/yy  ");
  118.           Print #2, FormatTime(dt5987.T, "hh:mm:ss  ");
  119.           Print #2, " SendFile Error Log File"
  120.           Print #2, "          * You Need to Create a SENDFILE.CFG File"
  121.           Print #2, "          * Please refer to SENDFILE.DOC for more Information"
  122.           UnlockFile(2, 0, 1)
  123.           CarrierCheck(-1)
  124.           Reset 
  125.           End 
  126.         End If
  127.  1094
  128.       End Function
  129.  
  130. '! Called 1 time
  131.       Function Func1102 As Integer
  132.         i5979 = 0
  133.         If User.SecLevel = s4467 Then
  134.           Reset 
  135.           End 
  136.         Else
  137.  1149     If User.SecLevel = s4471 Then
  138.             Reset 
  139.             End 
  140.           Else
  141.  1181       If User.SecLevel = s4475 Then
  142.               Reset 
  143.               End 
  144.             Else
  145.  1213         If User.SecLevel = s4479 Then
  146.                 Reset 
  147.                 End 
  148.               Else
  149.  1245           If User.SecLevel = s4483 Then
  150.                   Reset 
  151.                   End 
  152.                 Else
  153.  1277             i5979 = -1
  154.                 End If
  155.               End If
  156.             End If
  157.           End If
  158.         End If
  159.  1285
  160.       End Function
  161.