home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / sendfile.zip / SENDFILE.WCC < prev    next >
Text File  |  1994-11-10  |  3KB  |  131 lines
  1. ' SendFile v1.02, Multi-Node aware, Auto-File sending Util
  2.  
  3. CarrierCheck ON
  4.  
  5. Dim ConfigFile As String
  6. Dim Exclude1 As String
  7. Dim Exclude2 As String
  8. Dim Exclude3 As String
  9. Dim Exclude4 As String
  10. Dim Exclude5 As String
  11. Dim fRec As FileRecord
  12. Dim FileToSend1 As String
  13. Dim FileToSend2 As String
  14. Dim Ok As Integer
  15. Dim SentUserTemp As String
  16. Dim SentFile As Integer
  17. Dim TodayNow As DateTime
  18. Dim Work As String
  19.  
  20. CurrentDateTime(TodayNow)
  21.  
  22. Function ChkConfig
  23.   ConfigFile = ProgPath + "sendfile.cfg"
  24.   If Exists(ConfigFile) Then
  25.      Open ConfigFile For Input As #1
  26.      While Not EOF(1)
  27.        Input #1, Work
  28.        Work = uCase(work)
  29.        If Instr(Work, "EXCLUDE1=") = 1 Then Exclude1 = Rtrim(mid(Work,10,20))
  30.        If Instr(Work, "EXCLUDE2=") = 1 Then Exclude2 = Rtrim(mid(Work,10,20))
  31.        If Instr(Work, "EXCLUDE3=") = 1 Then Exclude3 = Rtrim(mid(Work,10,20))
  32.        If Instr(Work, "EXCLUDE4=") = 1 Then Exclude4 = Rtrim(mid(Work,10,20))
  33.        If Instr(Work, "EXCLUDE5=") = 1 Then Exclude5 = Rtrim(mid(Work,10,20))
  34.        If Instr(Work, "FILETOSEND1=") = 1 Then FileToSend1 = Rtrim(mid(Work,13,80))
  35.        If Instr(Work, "FILETOSEND2=") = 1 Then FileToSend2 = Rtrim(mid(Work,13,80))
  36.      Wend
  37.      Close #1
  38.   Else
  39.      Open "sendfile.err" For Append As #2
  40.      CarrierCheck Off
  41.      LockFile(2,0,1)
  42.      Print #2, "-------------------------------------------------------------------------------"
  43.      Print #2, FormatDate(TodayNow.d,"mm/dd/yy  ") ;
  44.      Print #2, FormatTime(TodayNow.t,"hh:mm:ss  ") ;
  45.      Print #2, " SendFile Error Log File"
  46.      Print #2, "          * You Need to Create a SENDFILE.CFG File"
  47.      Print #2, "          * Please refer to SENDFILE.DOC for more Information"
  48.      UnLockFile(2,0,1)
  49.      CarrierCheck On
  50.      Close
  51.      End
  52. End If
  53. End Function
  54.  
  55. Function ChkUser
  56.   Ok = False
  57.   If User.SecLevel = Exclude1 Then
  58.     Close
  59.     End
  60.   ElseIf User.Seclevel = Exclude2 Then
  61.     Close
  62.     End
  63.   ElseIf User.Seclevel = Exclude3 Then
  64.     Close
  65.     End
  66.   ElseIf User.Seclevel = Exclude4 Then
  67.     Close
  68.     End
  69.   ElseIf User.Seclevel = Exclude5 Then
  70.     Close
  71.     End
  72.   Else
  73.   Ok = True
  74.   End If
  75. End Function
  76.  
  77. ChkConfig
  78. ChkUser
  79.  
  80. FileToSend1 = uCase(FileToSend1)
  81. FileToSend2 = uCase(FileToSend2)
  82.  
  83. If Ok = True Then
  84.   Open ProgPath + "sentuser.lst" For Input As #3
  85.   Do While Not EOF(3)
  86.     SentUserTemp = uCase(SentUserTemp)
  87.     Input #3, SentUserTemp
  88.     If SentUserTemp = User.Name Then
  89.       SentFile = True
  90.       Exit Do
  91.     Else
  92.       SentFile = False
  93.     End If
  94.   Loop
  95. End If
  96. Close #3
  97.  
  98. If SentFile = False Then
  99.   CLS
  100.   DisplayFile "senduse1"
  101.   WaitEnter
  102.   If FileToSend1 <> "" Then
  103.     SendFile FileToSend1
  104.     If GetFileInfo(fRec, FileToSend1) Then
  105.       fRec.Downloads = fRec.Downloads + 1
  106.       fRec.LastAccess = TodayNow
  107.       UpdateFile(fRec)
  108.     End If
  109.   End If
  110.   If FileToSend2 <> "" Then
  111.     SendFile FileToSend2
  112.     If GetFileInfo(fRec, FileToSend2) Then
  113.       fRec.Downloads = fRec.Downloads + 1
  114.       fRec.LastAccess = TodayNow
  115.       UpdateFile(fRec)
  116.     End If
  117.   End If
  118.   CLS
  119.   DisplayFile "senduse2"
  120.   WaitEnter
  121.   Open ProgPath + "sentuser.lst" For Append As #4
  122.   If User.Name <> "" Then
  123.     CarrierCheck Off
  124.     LockFile(4,0,1)
  125.     Print #4, User.Name
  126.     UnLockFile(4,0,1)
  127.     CarrierCheck On
  128.   End If
  129. End If
  130. Close
  131. End