home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / WCPOST.ZIP / WCPOST.WCX (.txt) < prev   
Wildcat! WCX  |  1994-10-11  |  3KB  |  228 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3480 bytes  12/30/122  04:12:34pm
  3. '! Code Segment Size  :2201 bytes
  4. '! Data Segment Size  :5503 bytes
  5. '! String Segment Size:1279 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type27
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 20) As Byte
  16.         w264 As Word
  17.       End Type
  18.  
  19.       Type Type26
  20.         Filler0(1 To 6) As Byte
  21.         s6 As String*70
  22.         Filler76(1 To 14) As Byte
  23.         s90 As String*70
  24.         Filler160(1 To 14) As Byte
  25.         s174 As String*70
  26.         Filler244(1 To 20) As Byte
  27.         w264 As Word
  28.       End Type
  29.  
  30.       Declare Function Func1709 As Integer
  31.       Declare Function Func1809(mh65534 As MessageHeader) As Integer
  32.       Declare Function Func2005(mh65534 As MessageHeader) As Integer
  33.  
  34.       Dim s4463 As String
  35.       Dim s4467 As String
  36.       Dim s4471 As String
  37.       Dim ur4475 As UserRecord
  38.       Dim mh5125 As MessageHeader
  39.       Dim s5445 As String
  40.       Dim s5449 As String
  41.       Dim s5453 As String
  42.       Dim s5457 As String
  43.       Dim s5461 As String
  44.       Dim s5465 As String
  45.       Dim s5469 As String
  46.       Dim s5473 As String
  47.       Dim s5477 As String
  48.       Dim s5481 As String
  49.       Dim s5485 As String
  50.       Dim s5489 As String
  51.       Dim s5493 As String
  52.       Dim dt5497 As DateTime
  53.  
  54.       CurrentDateTime dt5497
  55.       s4463 = "1.01"
  56.       Open "wcpost.log" For Append As 1
  57.       Open "wcpost.err" For Append As 2
  58.       s4467 = ProgPath + "wcpost.cfg"
  59.       If Exists(s4467) Then
  60.         Open s4467 For Input As 3
  61.   141   Do While Not EOF(3)
  62.           Input #3, s4471
  63.           s4471 = UCase(s4471)
  64.           If InStr(s4471, "MSGTOSYSOP1=") = 1 Then
  65.             s5445 = RTrim(Mid(s4471, 13, 80))
  66.           End If
  67.   212     If InStr(s4471, "MSGTOSYSOP2=") = 1 Then
  68.             s5449 = RTrim(Mid(s4471, 13, 80))
  69.           End If
  70.   252     If InStr(s4471, "MSGTOSYSOP3=") = 1 Then
  71.             s5453 = RTrim(Mid(s4471, 13, 80))
  72.           End If
  73.   292     If InStr(s4471, "MSGTOSYSOP4=") = 1 Then
  74.             s5457 = RTrim(Mid(s4471, 13, 80))
  75.           End If
  76.   332     If InStr(s4471, "MSGTOSYSOP5=") = 1 Then
  77.             s5461 = RTrim(Mid(s4471, 13, 80))
  78.           End If
  79.   372     If InStr(s4471, "MSGTOUSERSONLY=") = 1 Then
  80.             s5465 = RTrim(Mid(s4471, 16, 80))
  81.           End If
  82.   412     If InStr(s4471, "MSGTOUSERSONLYSEC=") = 1 Then
  83.             s5469 = RTrim(Mid(s4471, 19, 80))
  84.           End If
  85.   452     If InStr(s4471, "MSGTOUSERS1=") = 1 Then
  86.             s5473 = RTrim(Mid(s4471, 13, 80))
  87.           End If
  88.   492     If InStr(s4471, "MSGTOUSERSNOT1=") = 1 Then
  89.             s5477 = RTrim(Mid(s4471, 16, 80))
  90.           End If
  91.   532     If InStr(s4471, "MSGTOUSERS2=") = 1 Then
  92.             s5481 = RTrim(Mid(s4471, 13, 80))
  93.           End If
  94.   572     If InStr(s4471, "MSGTOUSERSNOT2=") = 1 Then
  95.             s5485 = RTrim(Mid(s4471, 16, 80))
  96.           End If
  97.   612     If InStr(s4471, "MSGTOALL=") = 1 Then
  98.             s5489 = RTrim(Mid(s4471, 10, 80))
  99.           End If
  100.   652   Loop
  101.   658   Close 3
  102.       Else
  103.   669   Print #2, "------------------------------------------------------------------------------"
  104.         Print #2, FormatDate(dt5497.D, "mm/dd/yy") + " ";
  105.         Print #2, FormatTime(dt5497.T, "hh:mm:ss") + " ";
  106.         Print #2, " wcPOST v" + s4463 + " Error Log File"
  107.         Print #2, "          ! You must create a WCPOST.CFG file to operate"
  108.         Print #2, "          ! Please See the WCPOST.DOC for More Information"
  109.         End 
  110.       End If
  111.   773 Join 0
  112.       Func1709
  113.       If Func1809(mh5125) Then
  114.         If s5445 <> "" Then
  115.           AddMessage(mh5125, s5445, "", 1213417543)
  116.           Print #1, "          ! MSGTOSYSOP1 sent successfully"
  117.         End If
  118.   847   If s5449 <> "" Then
  119.           AddMessage(mh5125, s5449, "", 1213417543)
  120.           Print #1, "          ! MSGTOSYSOP2 sent sucessfully"
  121.         End If
  122.   895   If s5453 <> "" Then
  123.           AddMessage(mh5125, s5453, "", 1213417543)
  124.           Print #1, "          ! MSGTOSYSOP3 sent successfully"
  125.         End If
  126.   943   If s5457 <> "" Then
  127.           AddMessage(mh5125, s5457, "", 1213417543)
  128.           Print #1, "          ! MSGTOSYSOP4 sent successfully"
  129.         End If
  130.   991   If s5461 <> "" Then
  131.           AddMessage(mh5125, s5461, "", 1213417543)
  132.           Print #1, "          ! MSGTOSYSOP5 send successfully"
  133.         End If
  134.       End If
  135.  1039 s5493 = ""
  136.       If s5473 <> "" And s5477 <> "" Then
  137.         If GetUser(ur4475, s5493) Then
  138.  1094     Do While GetNextUser(ur4475, 1213417543)
  139.             If ur4475.SecLevel <> s5477 Then
  140.               If Func2005(mh5125) Then
  141.                 AddMessage(mh5125, s5473, "", 1213417543)
  142.                 Print #1, "          ! MSGTOUSERS1 sent to : "; ur4475.Name; ", sucessfully"
  143.               End If
  144.             End If
  145.  1198     Loop
  146.         End If
  147.       End If
  148.  1204 If s5481 <> "" And s5485 <> "" Then
  149.         If GetUser(ur4475, s5493) Then
  150.  1250     Do While GetNextUser(ur4475, 1213417543)
  151.             If ur4475.SecLevel <> s5485 Then
  152.               If Func2005(mh5125) Then
  153.                 AddMessage(mh5125, s5481, "", 1213417543)
  154.                 Print #1, "          ! MSGTOUSERS2 sent to : "; ur4475.Name; ", successfully"
  155.               End If
  156.             End If
  157.  1354     Loop
  158.         End If
  159.       End If
  160.  1360 If s5465 <> "" And s5469 <> "" Then
  161.         If GetUser(ur4475, s5493) Then
  162.  1406     Do While GetNextUser(ur4475, 1213417543)
  163.             If ur4475.SecLevel = s5469 Then
  164.               If Func2005(mh5125) Then
  165.                 AddMessage(mh5125, s5465, "", 1213417543)
  166.                 Print #1, "          ! MSGTOUSERSONLY sent to : "; ur4475.Name; ", successfully"
  167.               End If
  168.             End If
  169.  1510     Loop
  170.         End If
  171.       End If
  172.  1516 If s5489 <> "" Then
  173.         If GetUser(ur4475, s5493) Then
  174.  1549     Do While GetNextUser(ur4475, 1213417543)
  175.             If Func2005(mh5125) Then
  176.               AddMessage(mh5125, s5489, "", 1213417543)
  177.               Print #1, "           ! MSGTOALL sent to : "; ur4475.Name; ", sucessfully"
  178.             End If
  179.  1631     Loop
  180.         End If
  181.       End If
  182.  1637 Reset 
  183.       End 
  184.  
  185. '! Called 1 time
  186.       Function Func1709 As Integer
  187.         Print #1, "------------------------------------------------------------------------------"
  188.         Print #1, FormatDate(dt5497.D, "mm/dd/yy") + " ";
  189.         Print #1, FormatTime(dt5497.T, "hh:mm:ss") + " ";
  190.         Print #1, " wcPost v" + s4463 + " Log File, the GREAT Message Poster!"
  191.       End Function
  192.  
  193. '! Called 1 time
  194.       Function Func1809(mh65534 As MessageHeader) As Integer
  195.         Dim i65530 As Integer
  196.  
  197.         Func1809 = 0
  198.         Do
  199.  1824     mh65534.From = "wcPOST v" + s4463
  200.           mh65534.To = MakeWild.SysopName
  201.           mh65534.Flags = 1
  202.           mh65534.Subject = "Auto-Posting from wcPOST"
  203.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  204.           If Not i65530 Then
  205.             Print #2, "There was an Error creating the Message to the SysOp!"
  206.           End If
  207.  1978   Loop Until i65530
  208.         Func1809 = -1
  209.       End Function
  210.  
  211. '! Called 4 times
  212.       Function Func2005(mh65534 As MessageHeader) As Integer
  213.         Dim i65530 As Integer
  214.  
  215.         Func2005 = 0
  216.         Do
  217.  2020     mh65534.From = "wcPOST v" + s4463
  218.           mh65534.To = ur4475.Name
  219.           mh65534.Flags = 1
  220.           mh65534.Subject = "Auto-Posting from wcPOST"
  221.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  222.           If Not i65530 Then
  223.             Print #2, "There wsa an Error creating the Message to the User!"
  224.           End If
  225.  2174   Loop Until i65530
  226.         Func2005 = -1
  227.       End Function
  228.