.net 1999 December/netCD65.iso/pc/Software/VirtualA/16bit/vaper16.exe/%MYDIR%/ADMIN.EBS

Text File | 1999-10-06 | 5.2 KB | 185 lines

'T:ADMIN.EBS for CIX
' VA 4.10 release

Declare Function AddFileToMessageBase(topic As String, subject As String, filename As String)

'T:GetAllTopics (subroutine) (CIX)
Sub GetAllTopics(id As String, ndays As String)
    Dim back As String

    If ndays = "" Or ndays = "0" Then
        back = "back 2"
    Else
        back = "to back " + ndays
    End If
    GotoArea "Main"
    Comms.Send "order first cixnews\r"
    WaitForMainPrompt
    Comms.Send "macro jklm hea skip " + back + " tnext jklm\r"
    WaitForMainPrompt
    'Set CIX to timeout after 5 mins - gives script time to process
    Comms.Send "opt timeout 5 quit\r"
    WaitForMainPrompt
    If Not JoinConference(id, "cixnews/information") Then Exit Sub
    Terminal.Status "CIX is processing all your topics, please wait"
    Comms.Send "file jklm\r"
    TimedWaitForMainPrompt 3000
    Comms.Send "killscratch\r"
    WaitForMainPrompt
    If Instr(back, "to") then
        ReportSuccess id & " : Pointers set back 1 messages in all joined topics on CIX"
    Else
        ReportSuccess id & " : Set pointers back " & ndays & " Days in all joined topics on CIX"
    End If
    EatExtraPrompts
    Terminal.Status ""
End Sub

'T:GetProfileForEdit (subroutine) (CIX)
Sub GetProfileForEdit(id As String, filename As String)
    GotoArea "Main"
    Comms.Send "scget profile\r"
    WaitForMainPrompt
    Comms.Send "download\r"
    Trackers("YES").active = True
    WaitFor "\*\*"
    DeleteFile Session.ServicePath + filename
    FileDownload PROT_ZMODEM, Session.ServicePath + filename
    WaitForMainPrompt
    Trackers("YES").active = False
    ReportSuccess id & " : Downloaded Profile to " & filename
    EatExtraPrompts
End Sub

'T:ReplaceProfile (subroutine) (CIX)
Sub ReplaceProfile(id As String, filename As String)
    GotoArea "Main"
    Comms.Send "upload\r"
    WaitFor "X)"
    FileUpload PROT_ZMODEM, filename
    WaitForMainPrompt
    Comms.Send "scput profile\r"
    WaitForMainPrompt
    ReportSuccess id & " : Uploaded " & filename & " as CIX Profile"
    EatExtraPrompts
End Sub

'T:SetAbsence (subroutine) (CIX)
Sub SetAbsence(id As String, startdate As String, enddate As String)
    GotoArea "Main"
    Comms.Send "absence "
    If startdate<>"" Then Comms.Send "first " + startdate
    If enddate<>"" Then Comms.Send " last " + enddate
    Comms.Send "\r"
    WaitForMainPrompt
    ReportSuccess id & " : Set Absence from " & startdate & " to " & enddate
    EatExtraPrompts
End Sub

'T:CIXoption (subroutine) (CIX)
Sub CIXoption(id As String, opt As String)
    GotoArea "Main"
    Comms.Send "opt " + opt + "\r"
    WaitForMainPrompt
    ReportSuccess id & " : Set CIX Option " & opt
    EatExtraPrompts
End Sub

Sub ChangePassword(id As String, oldpassword As String, newpassword As String)
    Dim capname As String

    GotoArea "Main"
    capname = Session.ServicePath + "password.tmp"
    Capture CAPTURE_ON, capname
    Comms.Send "password\r"
    WaitFor "ld password:"
    Comms.SendLiteral oldpassword
    Comms.Send "\r"
    WaitFor "ew password:"
    Comms.SendLiteral newpassword
    Comms.Send "\r"
    WaitFor "e-enter new password:"
    Comms.SendLiteral newpassword
    Comms.Send "\r"
    WaitForMainPrompt
    Capture CAPTURE_OFF
    If AddFileToMessageBase("actions/information", "Log of Password Change", capname) Then
        ReportSuccess id & " : Changed CIX Password.  Remember to update Comms Settings"
    Else
        ReportFailure id, Error$
    End If
End Sub

'T:ReconstructTopic (subroutine) (CIX)
Sub ReconstructTopic(id As String, topic As String, recent As String)
    GotoArea "Main"
    If Not JoinConference(id, topic) Then Exit Sub
    Comms.Send "hea skip to " + Str$(recent) + "\r"
    WaitForMainPrompt
    ReportSuccess id & " : Reconstructed " & topic
    EatExtraPrompts
End Sub

'T:Reconstruct (subroutine) (CIX)
Sub Reconstruct(id As String)
    GotoArea "Main"
    Comms.Send "killscratch\r"
    WaitForMainPrompt
    Comms.Send "upload\r"
    WaitFor "X)"
    FileUpload PROT_ZMODEM, _
        ReadIni$("Main", "Message Path", Session.inifilename)+"point.bsc"
    WaitForPrompt "Prompt"
    Comms.Send "scput script\r"
    WaitForPrompt "Prompt"
    Comms.Send "file time\r"
    WaitForPrompt "Prompt"
    Comms.Send "script\r"
    Terminal.Status "Processing script, please wait"
    TimedWaitForMainPrompt 600 ' 10 minutes
    DownloadMessage id
    EatExtraPrompts
    Terminal.Status ""
End Sub

'T:SetupWizard (subroutine) (CompuServe)
Sub SetupWizard(mailname As String, organisation As String)
    ReportSuccess ""
End Sub

'T:CreateAccount (subroutine) (CompuServe)
Sub CreateAccount
    ManualTerminal
End Sub

'T:ForwardToggle (subroutine) (CIX)
Sub ForwardToggle(id As String)
    GotoArea "Main"
    Comms.Send "go forward_toggle\r"
    WaitForMainPrompt
    ReportSuccess id & " : Toggled mail forwarding"
    EatExtraPrompts
End Sub

'T:ForwardCheck (subroutine) (CIX)
Sub ForwardCheck(id As String)
    Dim t1 As Tracker, t2 As Tracker

    GotoArea "Main"
    Set t1 = CreateTracker("ForwardConf", "CIX Conferencing", "")
    Set t2 = CreateTracker("ForwardInternet", "CIX Internet", "")
    Comms.Send "go forward_check\r"
    WaitForPrompt "Forward"
    If PromptMatches("ForwardInternet") Then
        ReportSuccess id & " : Mail forwarding is set to go to your CIXIP account"
    Else
        ReportSuccess id & " : Mail forwarding is set to go to your CIX account"
    End If
    t1.delete
    t2.delete
    WaitForMainPrompt
    EatExtraPrompts
End Sub