'#Reference {A3B5C45B-F842-44fc-A5E5-50CED69BA86E}#2.0#0#C:\Program Files\Mindjet\MindManager 6\Mm5WebExport.dll#Mm5webexport 2.0 Type Library
'#Uses "ParameterNames.mmbas"
'#Uses "GlobalUtilities.mmbas"

Option Explicit

Sub Main

    Dim addin As Mm5WebExportAddIn
    Dim webex As WebExport

    Set addin = WebExportHelper.WebExportAddIn
    Set webex = addin.ActiveWebExport

    Dim template As String
    Dim topicString As String
    Dim bodyString As String

    On Error GoTo ReportError
    
    webex.Trace("Entering SnipSo.mmbas", 2 )

    template = webex.ReadFile("SnipSo.htm")

    If webex.ActivePage.Type <> wePageTypeCallout Then

        ' Read our template
        topicString = template

        ' Process all commands and parameters
        ProcessString webex, topicString
        bodyString = topicString

    End If

    ' Write out the result
    webex.PushString(bodyString)

    webex.Trace("Exiting SnipSo.mmbas",2)

    Exit Sub
 
ReportError:
    ProcessError(webex)
    Exit Sub
 
End Sub

