home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
WCPOST.ZIP
/
WCPOST_X.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1994-10-11
|
6KB
|
238 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 5559 bytes 12/30/122 04:12:34pm
'! Code Segment Size :2352 bytes
'! Data Segment Size :5490 bytes
'! String Segment Size:3207 bytes
'! Compiled with WCC version 4.01
Type Type26
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 14) As Byte
s90 As String*70
Filler160(1 To 14) As Byte
s174 As String*70
Filler244(1 To 20) As Byte
w264 As Word
End Type
Declare Function Func2056 As Integer
Declare Function Func2156(mh65534 As MessageHeader) As Integer
Dim s4463 As String
Dim ur4467 As UserRecord
Dim mh5117 As MessageHeader
Dim s5437 As String*1
Dim i5438 As Integer
Dim i5440 As Integer
Dim s5442 As String
Dim s5446 As String*10
Dim s5456 As String*10
Dim s5466 As String*10
Dim s5480 As String
Dim dt5484 As DateTime
Dim s65532_ As String
CurrentDateTime dt5484
s4463 = "1.01"
s5480 = ""
Open "wcpost.log" For Append As 1
Open "wcpost.err" For Append As 2
Join 0
Func2056
Do
115 Cls
Locate 4, 1
Print " @0F@wcPOST @0E@v@0F@" + s4463 + "@0E@, the Simple Message Poster"
Print " written by, @0F@Stephen Barclay@0E@"
Print ""
Print " @0E@[@0F@A@0E@] - Send a Message to All Excluding"
Print " Two Different Security Profiles"
Print " @0E@[@0F@B@0E@] - Send a Message to All Excluding"
Print " One Different Security Profile"
Print " @0E@[@0F@C@0E@] - Send a Message to ONE Security Level"
Print " @0E@[@0F@D@0E@] - Send a Message to ALL Users"
Print " @0E@[@0F@E@0E@] - Drop/Shell to DOS"
Print " @0E@[@0F@Q@0E@] - Quit to @0F@"; MakeWild.BBSName; "@0E@"
Print ""
Print " Please Select @0E@[@0F@A,B,C,D,Q@0E@] : ";
Input s5437
s65532_ = UCase(s5437)
If s65532_ = "A" Then
Cls
Locate 2, 1
Print " wcPOST v" + s4463 + ", Send a Message to All Except TWO Security Levels"
Locate 5, 1
Print " This Selection will allow you to send any specified text file"
Print "to a selected User Security Profile(s). You may either only send"
Print "the Message to one Security Level or you may exclude one Security"
Print "Level. Please make sure that the Text file you are sending dose"
Print "exist, and is in a text readable format."
Print ""
Locate 12, 1
s5442 = InputMask("Please enter the text file name : ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
s5456 = InputMask("Please enter the first Security Level to exclude : ", "XXXXXXXXXX", "", 1213417543)
s5466 = InputMask("@0F@Please enter the second Security Level to exclude : ", "XXXXXXXXXX", "", 1213417543)
i5438 = 0
i5438 = InputYesNo("Do you wish to continue ? ", 1213417543)
If i5438 = -1 Then
If s5442 <> "" And s5456 <> "" Then
If GetUser(ur4467, s5480) Then
i5440 = 0
591 Do While GetNextUser(ur4467, 1213417543)
If ur4467.SecLevel <> s5456 And ur4467.SecLevel <> s5466 Then
If Func2156(mh5117) Then
AddMessage(mh5117, s5442, "", 1213417543)
i5440 = i5440 + 1
Print #1, " ! MSGTOUSERS1 sent to : "; ur4467.Name; ", sucessfully"
End If
End If
731 Loop
737 Print ""
Print "A total of @0B@"; i5440; "@0E@ Message(s) were sent."
WaitEnter
End If
End If
End If
772 Else
778 If s65532_ = "B" Then
Cls
Locate 2, 1
Print " wcPOST v" + s4463 + ", Send a Message to All except One Security Level"
Locate 5, 1
Print " This selection will allow you to send a message to All Users except"
Print "ONE different Security Profile. This might be hand to send a message"
Print "to All of your normal Users exculding the NewUsers. "
Print ""
Locate 10, 1
s5442 = InputMask("Please enter the text file name : ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
s5456 = InputMask("Please enter the first Security Level to exclude : ", "XXXXXXXXXX", "", 1213417543)
i5438 = 0
i5438 = InputYesNo("Do you wish to continue ? ", 1213417543)
If i5438 = -1 Then
If s5442 <> "" And s5456 <> "" Then
If GetUser(ur4467, s5480) Then
i5440 = 0
1027 Do While GetNextUser(ur4467, 1213417543)
If ur4467.SecLevel <> s5456 Then
If Func2156(mh5117) Then
AddMessage(mh5117, s5442, "", 1213417543)
i5440 = i5440 + 1
Print #1, " ! MSGTOUSERS1 sent to : "; ur4467.Name; ", sucessfully"
End If
End If
1147 Loop
1153 Print ""
Print "A total of @0B@"; i5440; "@0E@ Message(s) were sent."
WaitEnter
End If
End If
End If
1188 Else
1194 If s65532_ = "C" Then
Cls
Locate 2, 1
Print " wcPOST v" + s4463 + ", Send a Message to ONE Security Level Option"
Locate 5, 1
Print " This selection will allow you to send a text file to any ONE"
Print "Security Level you wish. Pretty simple."
Print ""
Locate 10, 1
s5442 = Trim(InputMask("Please enter the text file name : ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543))
s5446 = Trim(InputMask("Please enter the Security Level to Send the Message to : ", "XXXXXXXXXX", "", 1213417543))
i5438 = 0
i5438 = InputYesNo("Do you wish to continue ?", 1213417543)
If i5438 = -1 Then
If s5442 <> "" And s5446 <> "" Then
If GetUser(ur4467, s5480) Then
i5440 = 0
1440 Do While GetNextUser(ur4467, 1213417543)
If ur4467.SecLevel = s5446 Then
If Func2156(mh5117) Then
AddMessage(mh5117, s5442, "", 1213417543)
i5440 = i5440 + 1
Print #1, " ! MSGTOALL sent to : "; ur4467.Name; ", sucessfully"
End If
End If
1560 Loop
1566 Print ""
Print "A total of @0B@"; i5440; "@0E@ Message(s) were sent."
WaitEnter
End If
End If
End If
1601 Else
1607 If s65532_ = "D" Then
Locate 2, 1
Print " wcPOST v" + s4463 + ", Send a Message to ALL Users at once"
Locate 5, 1
Print " This selection allows you to send a message to ALL of your Users"
Print "at one time. This is by far the easiest command to use to get more"
Print "information to ALL of your Users."
Locate 10, 1
s5442 = InputMask("Please enter the text file name : ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
i5438 = 0
i5438 = InputYesNo("Do you wish to continue ? ", 1213417543)
If i5438 = -1 Then
If s5442 <> "" Then
If GetUser(ur4467, s5480) Then
i5440 = 0
1800 Do While GetNextUser(ur4467, 1213417543)
If Func2156(mh5117) Then
AddMessage(mh5117, s5442, "", 1213417543)
i5440 = i5440 + 1
Print #1, " ! MSGTOUSERS1 sent to : "; ur4467.Name; ", sucessfully"
End If
1896 Loop
1902 Print ""
Print "A total of @0B@"; i5440; "@0E@ Message(s) were sent."
WaitEnter
End If
End If
End If
1937 Else
1943 If s65532_ = "E" Then
Shell "", ""
Else
1979 If s65532_ = "Q" Then
GoTo 2029
Else
2008 Print "Not a valid Selection, please try again."
Beep
WaitEnter
End If
End If
End If
End If
End If
End If
2023 Loop
2029 Reset
'! Called 1 time
Function Func2056 As Integer
Print #1, "------------------------------------------------------------------------------"
Print #1, FormatDate(dt5484.D, "mm/dd/yy") + " ";
Print #1, FormatTime(dt5484.T, "hh:mm:ss") + " ";
Print #1, " wcPost v" + s4463 + " Log File, the GREAT Message Poster!"
End Function
'! Called 4 times
Function Func2156(mh65534 As MessageHeader) As Integer
Dim i65530 As Integer
Func2156 = 0
Do
2171 mh65534.From = "wcPOST v" + s4463
mh65534.To = ur4467.Name
mh65534.Flags = 1
mh65534.Subject = "Auto-Posting from wcPOST"
i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
If Not i65530 Then
Print #2, "There wsa an Error creating the Message to the User!"
End If
2325 Loop Until i65530
Func2156 = -1
End Function