ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/WCPOST.ZIP/WCPOST.WCC

Text File | 1994-10-11 | 6KB | 175 lines

Dim wcPv As String
Dim ConfigFile As String
Dim Work As String
Dim uRec As UserRecord
Dim Msg As MessageHeader
Dim MsgToSysOp1 As String
Dim MsgToSysOp2 As String
Dim MsgToSysOp3 As String
Dim MsgToSysOp4 As String
Dim MsgToSysOp5 As String
Dim MsgToUsersOnly As String
Dim MsgToUsersOnlySec As String
Dim MsgToUsers1 As String
Dim MsgToUsersNot1 As String
Dim MsgToUsers2 As String
Dim MsgToUsersNot2 As String
Dim MsgToAll As String
Dim First As String
Dim TodayNow As DateTime
CurrentDateTime(TodayNow)
wcPv="1.01"

Open "wcpost.log" For Append As #1
Open "wcpost.err" For Append As #2

Function StartLog
   Print #1, "------------------------------------------------------------------------------"
   Print #1, FormatDate(TodayNow.d, "mm/dd/yy") + " " ;
   Print #1, FormatTime(TodayNow.t, "hh:mm:ss") + " " ;
   Print #1, " wcPost v" + wcPv + " Log File, the GREAT Message Poster!"
End Function

Function SendSysOp(MsgHd As MessageHeader) As Integer
   Dim Ok As Integer
   SendSysOp = False
   Do
     MsgHd.From = "wcPOST v" + wcPv
     MsgHd.To = MakeWild.SysopName
     MsgHd.Flags = 1
     MsgHd.Subject = "Auto-Posting from wcPOST"
     Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
     If Not(OK) Then
         Print #2, "There was an Error creating the Message to the SysOp!"
     End If
   Loop Until Ok
   SendSysOp = True
End Function

Function SendUser(MsgHd As MessageHeader) As Integer
   SendUser = False
   Dim Ok As Integer
   Do
     MsgHd.From = "wcPOST v" + wcPv
     MsgHd.To = uRec.Name
     MsgHd.Flags = 1
     MsgHd.Subject = "Auto-Posting from wcPOST"
       Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
         If Not(Ok) Then
            Print #2, "There wsa an Error creating the Message to the User!"
         End If
   Loop Until Ok
   SendUser = True
End Function

ConfigFile = ProgPath + "wcpost.cfg"
If Exists(ConfigFile) Then
   Open ConfigFile For Input As #3
   While Not EOF(3)
   Input #3, Work
   Work = uCase(work)
      If Instr(Work, "MSGTOSYSOP1=") = 1 Then MsgToSysOp1 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOSYSOP2=") = 1 Then MsgToSysOp2 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOSYSOP3=") = 1 Then MsgToSysOp3 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOSYSOP4=") = 1 Then MsgToSysOp4 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOSYSOP5=") = 1 Then MsgToSysOp5 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOUSERSONLY=") = 1 Then MsgToUsersOnly = Rtrim(mid(Work,16,80))
      If Instr(Work, "MSGTOUSERSONLYSEC=") = 1 Then MsgToUsersOnlySec = Rtrim(mid(Work,19,80))
      If Instr(Work, "MSGTOUSERS1=") = 1 Then MsgToUsers1 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOUSERSNOT1=") = 1 Then MsgToUsersNot1 = Rtrim(mid(Work,16,80))
      If Instr(Work, "MSGTOUSERS2=") = 1 Then MsgToUsers2 = Rtrim(mid(Work,13,80))
      If Instr(Work, "MSGTOUSERSNOT2=") = 1 Then MsgToUsersNot2 = Rtrim(mid(Work,16,80))
      If Instr(Work, "MSGTOALL=") = 1 Then MsgToAll = Rtrim(mid(Work,10,80))
   Wend
   Close #3
Else
   Print #2, "------------------------------------------------------------------------------"
   Print #2, FormatDate(TodayNow.d, "mm/dd/yy") + " " ;
   Print #2, FormatTime(TodayNow.t, "hh:mm:ss") + " " ;
   Print #2, " wcPOST v" + wcPv + " Error Log File"
   Print #2, "          ! You must create a WCPOST.CFG file to operate"
   Print #2, "          ! Please See the WCPOST.DOC for More Information"
   End
End If

Join 0
StartLog

If SendSysOp(Msg) Then
   If MsgToSysOp1 <> "" Then
     AddMessage Msg, MsgToSysOp1
     Print #1, "          ! MSGTOSYSOP1 sent successfully"
   End If
   If MsgToSysOp2 <> "" Then
     AddMessage Msg, MsgToSysOp2
     Print #1, "          ! MSGTOSYSOP2 sent sucessfully"
   End If
   If MsgToSysOp3 <> "" Then
     AddMessage Msg, MsgToSysOp3
     Print #1, "          ! MSGTOSYSOP3 sent successfully"
   End If
   If MsgToSysOp4 <> "" Then
     AddMessage Msg, MsgToSysOp4
     Print #1, "          ! MSGTOSYSOP4 sent successfully"
   End If
   If MsgToSysOp5 <> "" Then
     AddMessage Msg, MsgToSysOp5
     Print #1, "          ! MSGTOSYSOP5 send successfully"
   End If
End If

First = ""
If MsgToUsers1 <> "" And MsgToUsersNot1 <> ""  Then
  If GetUser(uRec, First) Then
    Do While GetNextUser(uRec)
      If uRec.SecLevel <> MsgToUsersNot1 Then
        If SendUser(Msg) Then
          AddMessage Msg, MsgToUsers1
          Print #1, "          ! MSGTOUSERS1 sent to : " ; uRec.Name ; ", sucessfully"
        End If
      End If
    Loop
  End If
End If

If MsgToUsers2 <> "" And MsgToUsersNot2 <> "" Then
  If GetUser(uRec, First) Then
    Do While GetNextUser(uRec)
      If uRec.SecLevel <> MsgToUsersNot2 Then
        If SendUser(Msg) Then
          AddMessage Msg, MsgToUsers2
          Print #1, "          ! MSGTOUSERS2 sent to : " ; uRec.Name ; ", successfully"
        End If
      End If
    Loop
  End If
End If

If MsgToUsersOnly <> "" And MsgToUsersOnlySec <> "" Then
  If GetUser(uRec, First) Then
    Do While GetNextUser(uRec)
      If uRec.SecLevel = MsgToUsersOnlySec Then
        If SendUser(Msg) Then
          AddMessage Msg, MsgToUsersOnly
          Print #1, "          ! MSGTOUSERSONLY sent to : " ; uRec.Name ; ", successfully"
        End If
      End If
    Loop
  End If
End If

If MsgToAll <> "" Then
  If GetUser(uRec, First) Then
    Do While GetNextUser(uRec)
      If SendUser(Msg) Then
        AddMessage Msg, MsgToAll
        Print #1, "           ! MSGTOALL sent to : " ; uRec.Name ; ", sucessfully"
      End If
    Loop
  End If
End If
Close
End