home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / VirtualA / 16bit / vaper16.exe / %MYDIR% / JOIN.EBS < prev    next >
Encoding:
Text File  |  1999-10-06  |  1.4 KB  |  46 lines
  1. 'T:JOIN.EBS for CIX
  2. ' VA 4.10 release
  3.  
  4. Declare Function UniqueFileName$
  5. Declare Function DownloadScratchpad(id As String, fname As String)
  6.  
  7. 'T:FailedToJoinCC (subroutine) (CIX)
  8. 'Routine to get the names of moderators when attempting
  9. 'to join a Closed Conference and put them into a
  10. 'MailTo line in actions/information
  11. Sub FailedToJoinCC(topic as String)
  12.     Dim fname as String, fnum as Integer
  13.     Dim LineRead as String
  14.     Dim Mods as String
  15.     Dim MailToMods as String
  16.     fname = UniqueFileName$()
  17.     Capture CAPTURE_ON, fname
  18.     Comms.Send "Show " & topic & "\r"
  19.     WaitForPrompt "Prompt"
  20.     Capture CAPTURE_OFF
  21.     fnum = FreeFile
  22.     Open fname for Input as #fnum
  23.     Do While Not EOF(fnum)
  24.         Line Input #fnum, LineRead
  25.         If Left(LineRead, Len("Moderator (s)")) = "Moderator (s)" Then
  26.             Mods = Right(LineRead,Len(LineRead)-15)
  27.             MailToMods = ""
  28.             Do While Instr(Mods," ") > 0
  29.                 MailToMods = MailToMods & ParseString(Mods," ")
  30.             Loop
  31.             MailToMods = MailToMods & Left(Mods, Len(Mods)-1)
  32.             LogResult "You tried to join " & topic & " which is a closed conference,"
  33.             LogResult "You should mail the moderators for admitance to this conference."
  34.             LogResult "The moderators of this conference are as follows:"
  35.             LogResult "mailto:" & MailToMods
  36.             Terminal.Status "Joining Closed Conference " & topic & " failed."
  37.             Goto GotMods
  38.         End If
  39.     Loop
  40. GotMods:
  41.     Close fnum
  42.     DeleteFile fname
  43. End Sub
  44.  
  45.  
  46.