'This module contains the macros for the main control sheet
 
Option Base 1
Option Explicit
 
Dim CurWrkBook As String
Dim CurrentSheet As String
Dim CurrentHdrSheet As String
Dim Title As String
Dim Message As String
Dim Successful As Boolean
Dim LogFileName As String
Dim Skipsheets As Integer
Dim SkipDlgs As Integer
Dim FirstJLine As Integer
Public Lang As String
 
 
Public Sub Init()
    Application.ScreenUpdating = False
    Lang = Options("Language")
    CurWrkBook = ActiveWorkbook.Name
    GotoControlPage
End Sub
 
 
 
Public Function Options(EdBox As String, Optional Text As String) As String
    'Returns the option setting
    Options = ActiveWorkbook.DialogSheets("Options").EditBoxes(EdBox).Text
End Function
 
 
 
Public Sub Save_Option(EdBox, NewText As String)
    'Sets the options
    If ActiveWorkbook.DialogSheets("Options").EditBoxes(EdBox).Text <> NewText Then
        ActiveWorkbook.DialogSheets("Options").Unprotect
        ActiveWorkbook.DialogSheets("Options").EditBoxes(EdBox).Text = NewText
        ActiveWorkbook.DialogSheets("Options").Protect
    End If
End Sub
 
 
 
Public Function Encode_XMLchar(tmp As String) As String
    tmp = Replace(tmp, "&", "&amp;")
    tmp = Replace(tmp, "<", "&lt;")
    tmp = Replace(tmp, ">", "&gt;")
    tmp = Replace(tmp, "'", "&apos;")
    Encode_XMLchar = Replace(tmp, """", "&quot;")
End Function
 
 
 
Public Function Decode_XMLchar(tmp As String) As String
    tmp = Replace(tmp, "&amp;", "&")
    tmp = Replace(tmp, "&lt;", "<")
    tmp = Replace(tmp, "&gt;", ">")
    tmp = Replace(tmp, "&apos;", "'")
    Decode_XMLchar = Replace(tmp, "&quot;", """")
End Function
 
 
 
Private Sub Set_Homepage_Labels()
    With ActiveWorkbook.Sheets(1)
        .SetDefaults.Caption = GetMsg(Lang, 41, 1)
        .UserNotes.Caption = GetMsg(Lang, 41, 2)
        .NewSheet.Caption = GetMsg(Lang, 41, 3)
        .EditSheet.Caption = GetMsg(Lang, 41, 4)
        .ClearSheet.Caption = GetMsg(Lang, 41, 5)
        .CopySheet.Caption = GetMsg(Lang, 41, 6)
        .ImportSelected.Caption = GetMsg(Lang, 41, 7)
        .WriteSelected.Caption = GetMsg(Lang, 41, 8)
        .GroupBoxes("GroupBox1").Text = GetMsg(Lang, 41, 12)
        .GroupBoxes("GroupBox2").Text = GetMsg(Lang, 41, 13)
        .GroupBoxes("GroupBox3").Text = GetMsg(Lang, 41, 14)
    End With
    ActiveWorkbook.Sheets(2).GoControlPage.Caption = GetMsg(Lang, 41, 9)
End Sub
 
 
 
'This macro sets information about the workbook and sheet.
Sub GetSheet()
    CurWrkBook = ActiveWorkbook.Name
    CurrentSheet = ActiveSheet.Name
    CurrentHdrSheet = CurrentSheet & "_H"
    Lang = Options("Language")
    'Get the user's preferred Lang
    'Set Settings = UserForms("Form_Options")
 
 
    'On Error Resume Next  ' turn off error checking
    'Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)
    'LastError = Err.Number
    'On Error GoTo 0       ' restore error checking
 
    'If LastError = 0 Then
        'Jrnlmcro.xla is already loaded.
    '    Run ("GoToControlPage")
    'Else
    '    'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.Path
    '    SavedPath = CurDir() & "\"
    '    WorkbookPath = ActiveWorkbook.Path & "\"
    '    ChDir (WorkbookPath)
    '    ChDrive (WorkbookPath)
    '    Run ("JRNLMCRO.XLA!GotoControlPage")
    '    ChDrive (SavedPath)
    '    ChDir (SavedPath)
    'End If
 
 
 
    'The logfile name is stored in the message catalog
    LogFileName = GetMsg(Lang, 9, 2)
    If LogFileName = "" Then
        LogFileName = "jrnllog.xls"
    End If
 
    'Skipsheets = number of non-journal worksheets in workbook.  In the sample shipped, _
    '   Skipsheets is 4 because 1 Control sheet + 1 notes sheet + 1 journal template sheet _
    '   + 1 journal header template sheet = 4.  The Options dialogsheet doesn't count _
    '   because it's a dialogsheet, not a worksheet.  If you add additional sheets to _
    '   the workbook, add that number to Skipsheets.
    Skipsheets = 4
 
    'SkipDlgs = number of dialogsheets in jrnl workbook.  In the sample shipped, _
    '   SkipDlgs is 1 because the only dialogsheet is the Options dialogsheet.  If you add _
    '   additional dialogsheets to the jrnl workbook, add that number to SkipDlgs.
    SkipDlgs = 1
 
End Sub
 
 
 
 
Function StringBetween(SourceString As String, BeforeString As String, AfterString As String, Compare As Integer) As String
Dim BeforeStringPos As Integer
Dim AfterStringPos As Integer
Dim StringBetweenPos As Integer
 
    StringBetween = ""
 
    BeforeStringPos = InStr(1, SourceString, BeforeString, Compare)
    If BeforeStringPos > 0 Then
        StringBetweenPos = BeforeStringPos + Len(BeforeString)
        AfterStringPos = InStr(StringBetweenPos, SourceString, AfterString, Compare)
        If AfterStringPos > StringBetweenPos Then
            StringBetween = Mid(SourceString, StringBetweenPos, AfterStringPos - StringBetweenPos)
        End If
    End If
End Function
 
 
 
'This macro will add a new journal entry sheet and header
Sub JrnlSheet_New()
Dim NewSheet, Title, Mesg As String
Dim WK As Variant
Dim iMsg As Integer
 
    GetSheet
    Workbooks(CurWrkBook).Unprotect
 
    Title = GetMsg(Lang, 41, 21)
    Mesg = GetMsg(Lang, 41, 29)
    NewSheet = Trim(InputBox(Mesg, Title))
    Application.ScreenUpdating = False
 
    If NewSheet <> "" Then
        '1/13/05: AH ICE 733561000 Need to make sure NewSheet is less then 29 characters since the name has _H appended to it and the max characters for a worksheet name is 31
        If Len(NewSheet) > 29 Then
           'show error
           iMsg = MsgBox(GetMsg(Lang, 91, 13), vbExclamation)
           'exit
           Exit Sub
        End If
 
        Workbooks(CurWrkBook).Worksheets("Template").Copy after:=Sheets("Template_H")
        ActiveSheet.Name = NewSheet
        Workbooks(CurWrkBook).Worksheets("Template_H").Copy after:=Sheets(NewSheet)
        ActiveSheet.Name = NewSheet & "_H"
        Worksheets(NewSheet).Activate
    Else
        GotoControlPage
    End If
 
    Workbooks(CurWrkBook).Protect
End Sub
 
 
 
'========================================
' Select a Journal Sheet and activate it
'========================================
Public Sub JrnlSheet_Select()
Dim SheetName As String
Dim SheetList() As Variant
Dim i As Integer
 
    'Get the number of sheets
    GetSheet
    SheetName = ""
    If ListArray(SheetList) Then
        With Form_SelectSheet
            .Caption = GetMsg(Lang, 41, 22)
            .ButtonOK.Caption = GetMsg(Lang, 12, 1)
            .ListBox1.Clear
            .ListBox1.List = SheetList
            .Height = .Height - .Target.Height - .OnlineFrame.Height - 15
 
            Form_SelectSheet.Show
 
            If .ListBox1.ListIndex >= 0 Then
                SheetName = .ListBox1.List(.ListBox1.ListIndex)
            End If
        End With
 
        Unload Form_SelectSheet
    Else
        'Msg: "No journal entry sheets exist.  Press New to insert a new sheet."
        Title = GetMsg(Lang, 90, 1)
        Message = GetMsg(Lang, 94, 6)
        i = MsgBox(Message, 64, Title)
    End If
 
    If SheetName = "" Then
        GotoControlPage
    Else
        Workbooks(CurWrkBook).Worksheets(SheetName).Activate
    End If
End Sub
 
 
 
 
'=======================
' Delete Journal Sheets
'=======================
Sub JrnlSheet_Delete()
Dim List1 As Variant
Dim SelSheet, SelHdrSheet As String
Dim SheetList() As Variant
Dim i As Integer
 
    GetSheet
    'Application.ScreenUpdating = False
    Workbooks(CurWrkBook).Unprotect
 
    If ListArray(SheetList) Then
        With Form_SelectSheet
            .Caption = GetMsg(Lang, 41, 23)
            .ButtonOK.Caption = GetMsg(Lang, 41, 5)
            .ButtonAll.Visible = True
            .ButtonNone.Visible = True
            .ListBox1.Clear
            .ListBox1.List = SheetList
            .Height = .Height - .Target.Height - .OnlineFrame.Height - 15
        End With
 
        Form_SelectSheet.Show
 
        Set List1 = Form_SelectSheet.ListBox1
        For i = 1 To List1.ListCount
            If List1.Selected(i - 1) Then
                SelSheet = List1.List(i - 1)
                SelHdrSheet = SelSheet & "_H"
                Application.DisplayAlerts = False
                Workbooks(CurWrkBook).Worksheets(SelSheet).Delete
                Workbooks(CurWrkBook).Worksheets(SelHdrSheet).Delete
                Application.DisplayAlerts = True
            End If
        Next
        Unload Form_SelectSheet
    Else
        'Msg: "No journal entry sheets exist for deletion."
        Title = GetMsg(Lang, 90, 1)
        Message = GetMsg(Lang, 94, 7)
        i = MsgBox(Message, 48, Title)
    End If
 
    GotoControlPage
End Sub
 
 
Sub JrnlSheet_Copy()
Dim SelSheet, SelHdrSheet, NameError As String
Dim NewSheet, NewHdrSheet As String
Dim SheetList(), WrkSheet As Variant
Dim i, SeqNum, NewSeq, NewSeq1, tSeq, jid, BeginRow, EndRow As Integer
Dim R As Range
Dim Firstseq As Boolean
 
 
    'Get the number of sheets
    GetSheet
    NewSheet = ""
    If ListArray(SheetList) Then
        With Form_SelectSheet
            .Caption = GetMsg(Lang, 41, 24)
            .ButtonOK.Caption = GetMsg(Lang, 41, 6)
            .Label2.Visible = True
            .Target.Visible = True
            .Label2.Caption = GetMsg(Lang, 41, 29)
            .ListBox1.Clear
            .ListBox1.List = SheetList
            .Height = .Height - .OnlineFrame.Height - 5
        End With
 
        Form_SelectSheet.Show
 
        If Form_SelectSheet.ListBox1.ListIndex >= 0 Then
            SelSheet = Form_SelectSheet.ListBox1.List(Form_SelectSheet.ListBox1.ListIndex)
            SelHdrSheet = SelSheet & "_H"
            NewSheet = Form_SelectSheet.Target
 
            NameError = "N"
            For Each WrkSheet In Workbooks(CurWrkBook).Worksheets
                If StrComp(NewSheet, WrkSheet.Name, 1) = 0 Then
                    'name already exists
                    NameError = "Y"
                End If
            Next
            If NameError = "N" Then
                Application.ScreenUpdating = False
                Application.DisplayAlerts = False
                NewHdrSheet = NewSheet & "_H"
                Workbooks(CurWrkBook).Unprotect
                Workbooks(CurWrkBook).Worksheets(SelSheet).Copy after:=Workbooks(CurWrkBook).Sheets("Template_H")
                ActiveSheet.Name = NewSheet
                Workbooks(CurWrkBook).Worksheets(SelHdrSheet).Copy after:=Workbooks(CurWrkBook).Sheets(NewSheet)
                ActiveSheet.Name = NewHdrSheet
                Worksheets(NewHdrSheet).Unprotect
                Worksheets(NewSheet).Unprotect
 
                'Change System IDs
                Worksheets(NewHdrSheet).Activate
                i = 3
                SeqNum = Val(Cells(i, HdrCtrlCOL + 1).Value)
                While SeqNum > 0
                    NewSeq = Val(Options("NextSystemID"))
                    If NewSeq = 9999 Then
                        Call Save_Option("NextSystemID", 1001)
                    Else
                        Call Save_Option("NextSystemID", NewSeq + 1)
                    End If
                    Cells(i, HdrCtrlCOL + 1).Value = NewSeq
                    If Firstseq = False Then
                    NewSeq1 = NewSeq
                    Firstseq = True
                    End If
                    Cells(i, LastHdrCOL - 3).Value = ""      'DocSeqNum
                    Cells(i, HdrCtrlCOL + 3).Value = "NEXT"
                    Worksheets(NewSheet).Activate
 
                    With Cells(2, 2).EntireColumn
                        Set R = .Find(SeqNum, , , xlWhole, xlByRows)
                        If Not R Is Nothing Then
                            'lines exist for the header
                            BeginRow = R.Row
                            Do
                                tSeq = Cells(R.Row, 2).Value
                                If tSeq = SeqNum Then
                                    EndRow = R.Row
                                    Set R = .FindNext(R)
                                End If
                                jid = Cells(R.Row, 5).Value
 
                                 If jid <> "" Then
                                   Cells(R.Row, 5) = "NEXT"
                                End If
 
                            Loop While Not R Is Nothing And tSeq = SeqNum And R.Row <> BeginRow
 
                            Range(Cells(BeginRow, 2), Cells(EndRow, 2)).Value = NewSeq
                        End If
                    End With
 
                    Worksheets(NewHdrSheet).Activate
                    i = i + 1
                    SeqNum = Val(Cells(i, HdrCtrlCOL + 1).Value)
                Wend
 
                Worksheets(NewSheet).Activate
                'Range(Cells(4, 8), Cells(4, 12)).Value = Null
                Cells(4, 8).Value = NewSeq1
                Cells(4, 10).Value = "NEXT"
                Cells(4, 2).Select
                Worksheets(NewSheet).Protect
                Workbooks(CurWrkBook).Protect
                Application.ScreenUpdating = True
            Else
                'Msg: "Sheet name already exists."
                Title = GetMsg(Lang, 90, 1)
                Message = GetMsg(Lang, 94, 4)
                i = MsgBox(Message, 48, Title)
                Workbooks(CurWrkBook).Worksheets("Control").Activate
            End If
            Application.DisplayAlerts = True
        End If
        Unload Form_SelectSheet
    Else
        'Msg: "No journal entry sheets exist.  Press New to insert a new sheet."
        Title = GetMsg(Lang, 90, 1)
        Message = GetMsg(Lang, 94, 6)
        i = MsgBox(Message, 64, Title)
    End If
 
    Workbooks(CurWrkBook).Protect
    'Change the Import Status automatically
    Auto_Change_ImportStatus
End Sub
 
 
 
 
 
Sub FormatJournal(ByVal SelSheet)
Dim BotLine As Long
Dim Cel As Variant
Dim LastCol As Integer
Dim SkipCol As Integer
Dim iRow As Integer
 
    Workbooks(CurWrkBook).Worksheets(SelSheet).Unprotect
    Workbooks(CurWrkBook).Worksheets(SelSheet).Activate
    BotLine = Range("BottomLine").Row
    BotLine = BotLine - 1
    FirstJLine = ActiveSheet.Range("InsertLine").Row
    FirstJLine = FirstJLine + 1
    LastCol = ActiveSheet.Range("LastLineCol").Column
    SkipCol = ActiveSheet.Range("DescrCol").Column
 
    ActiveSheet.Range(Cells(FirstJLine, 9), Cells(BotLine, LastCol)).Select
    For Each Cel In Selection.Cells
        If Cel.Column <> SkipCol Then
            ' BUG 14150575
            If Cel.Value <> "" Then
               Cel.Value = UCase(Cel.Value)
            End If
        End If
        If Not IsNumeric(Cel.Value) Then
            Cel.Value = Trim(Cel.Value)
            If Cel.Value = "" Then
                Cel.Value = Empty
            End If
        End If
    Next
 
    'For iRow = 12 To BotLine
    '    ActiveSheet.Cells(iRow, 9).Value = UCase(ActiveSheet.Cells(iRow, 9).Value)
    '    ActiveSheet.Cells(iRow, 10).Value = UCase(ActiveSheet.Cells(iRow, 10).Value)
    '    ActiveSheet.Cells(iRow, 14).Value = UCase(ActiveSheet.Cells(iRow, 14).Value)
    'Next
 
    ActiveSheet.Range(Cells(12, 25), Cells(BotLine, 46)).Select
    For Each Cel In Selection.Cells
        If Cel.Column <> SkipCol Then
            If Cel.Value <> "" Then
               Cel.Value = UCase(Cel.Value)
            End If
        End If
    Next
 
End Sub
 
 
 
Function ListArray(SheetList() As Variant) As Boolean
Dim SheetCount As Integer
Dim ArraySize As Integer
Dim Counter As Integer
Dim CurCount As Integer
 
    'Get the number of sheets
    SheetCount = ActiveWorkbook.Worksheets.Count
    If SheetCount > Skipsheets Then
        'Now set the array size.  The number we're interested in is the total less Skipsheets (set in GetSheet).
        'Then divide this number by 2 because we don't want to include the header sheets in the listbox.
        ArraySize = (SheetCount - Skipsheets) / 2
        ReDim SheetList(ArraySize) As Variant
        'Counter = number of worksheets to skip + number of dialogsheets to skip.
        Counter = Skipsheets + SkipDlgs
        CurCount = 1
        Do
            SheetList(CurCount) = Workbooks(CurWrkBook).Worksheets(Counter).Name
            'skip the next sheet because it's the associated header sheet
            Counter = Counter + 2
            CurCount = CurCount + 1
        Loop Until Counter >= SheetCount
        ListArray = True
    Else
        ListArray = False
    End If
End Function
 
 
Public Sub Set_Options()
Dim LangArray() As Variant
Dim i As Integer
Dim tmp As String
 
    Application.ScreenUpdating = False
    GetSheet
 
    'Set LstBox = Dlgsheet.ListBoxes("LangPrefList")
    'With Dlgsheet.ListBoxes("LangPrefList")
    '    .List = Array("English")
    '    .MultiSelect = 1
    'End With
 
    'Build_LangArray (haha)
    ReDim LangArray(1)
    LangArray(1) = "English"
 
    With Form_Options
        .Caption = GetMsg(Lang, 42, 1)
        .HeaderDefaults_Box.Caption = GetMsg(Lang, 42, 2)
        .General_Box.Caption = GetMsg(Lang, 42, 3)
        .MessageLog_Box.Caption = GetMsg(Lang, 42, 4)
        .DocSeq_Box.Caption = GetMsg(Lang, 42, 5)
        .ImportControl_Box.Caption = GetMsg(Lang, 42, 6)
        .ImportStatus_Box.Caption = GetMsg(Lang, 42, 7)
        .ButtonOK.Caption = GetMsg(Lang, 12, 1)
        .ButtonCancel.Caption = GetMsg(Lang, 12, 2)
 
        .Label11.Caption = GetMsg(Lang, 42, 11)
        .Label12.Caption = GetMsg(Lang, 42, 12)
        .Label13.Caption = GetMsg(Lang, 42, 13)
        .Label14.Caption = GetMsg(Lang, 42, 14)
        .Label15.Caption = GetMsg(Lang, 42, 15)
        .MultiBook_Enable.Caption = GetMsg(Lang, 42, 16)
        .Def_AutoGen.Caption = GetMsg(Lang, 42, 17)
        .Label21.Caption = GetMsg(Lang, 42, 18)
        .Log_ErrorsOnly.Caption = GetMsg(Lang, 42, 19)
        .Log_AllMessage.Caption = GetMsg(Lang, 42, 20)
        .Display_Mesg.Caption = GetMsg(Lang, 42, 21)
        .DocSeq_Enable.Caption = GetMsg(Lang, 42, 22)
        .Label31.Caption = GetMsg(Lang, 42, 23)
        .Label41.Caption = GetMsg(Lang, 42, 24)
        .Label42.Caption = GetMsg(Lang, 42, 15)
        .ChangeStatus_YES.Caption = GetMsg(Lang, 42, 25)
        .ChangeStatus_NO.Caption = GetMsg(Lang, 42, 26)
        .Unicode.Caption = GetMsg(Lang, 42, 27)
 
        .Def_BusUnit.Value = Options("Def_BusUnit")
        .Def_Date.Value = Options("Def_Date")
        .Def_LedGrp.Value = Options("Def_LedGrp")
        .Def_Source.Value = Options("Def_Source")
        .Def_UserID.Value = Options("Def_UserID")
        .MultiBook_Enable = IIf(Options("Multibook") = "Y", True, False)
        .Def_AutoGen = IIf(Options("Def_AutoGen") = "Y", True, False)
        .Unicode = IIf(Options("Unicode") = "Y", True, False)
        .Display_Mesg = IIf(Options("DisplayMessage") = "Y", True, False)
        .DocSeq_Enable = IIf(Options("DocSeq") = "Y", True, False)
        .Def_DocType = Options("Def_DocType")
        .Import_URL = Options("Import_URL")
        .Import_UserID = Options("Import_UserID")
        .DuplicateOption = IIf(Options("DuplicateOption") = "S", True, False)
        .ErrorOption = IIf(Options("ErrorOption") = "S", True, False)
        .DecPosition = IIf(Options("DecPosition") = "Y", True, False)
 
        If Options("LogMessage") = "E" Then
            .Log_ErrorsOnly = True
        Else
            .Log_AllMessage = True
        End If
        If Options("ChangeStatus") = "C" Then
            .ChangeStatus_YES = True
        Else
            .ChangeStatus_NO = True
        End If
 
        .LangList.List = LangArray
        .LangList.MultiSelect = fmMultiSelectSingle
        For i = 1 To .LangList.ListCount
            If .LangList.List(i - 1) = Options("Language") Then
                .LangList.Selected(i - 1) = True
            End If
        Next
 
        Application.ScreenUpdating = True
        .Show
        Application.ScreenUpdating = False
 
        If Right(.Import_URL, 1) <> "/" Then
            .Import_URL.Value = .Import_URL.Value & "/"
        End If
 
        Call Save_Option("Def_BusUnit", .Def_BusUnit.Value)
        Call Save_Option("Def_Date", .Def_Date.Value)
        Call Save_Option("Def_LedGrp", .Def_LedGrp.Value)
        Call Save_Option("Def_Source", .Def_Source.Value)
        Call Save_Option("Def_UserID", .Def_UserID.Value)
        Call Save_Option("Multibook", IIf(.MultiBook_Enable, "Y", "N"))
        Call Save_Option("Def_AutoGen", IIf(.Def_AutoGen, "Y", "N"))
        Call Save_Option("Unicode", IIf(.Unicode, "Y", "N"))
        Call Save_Option("LogMessage", IIf(.Log_ErrorsOnly, "E", "B"))
        Call Save_Option("DisplayMessage", IIf(.Display_Mesg, "Y", "N"))
        Call Save_Option("DocSeq", IIf(.DocSeq_Enable, "Y", "N"))
        Call Save_Option("Def_DocType", .Def_DocType)
        Call Save_Option("Import_URL", .Import_URL)
        Call Save_Option("Import_UserID", .Import_UserID)
        Call Save_Option("ChangeStatus", IIf(.ChangeStatus_YES, "C", "N"))
        Call Save_Option("DuplicateOption", IIf(.DuplicateOption, "S", "U"))
        Call Save_Option("ErrorOption", IIf(.ErrorOption, "S", "A"))
        Call Save_Option("DecPosition", IIf(.DecPosition, "Y", "N"))
 
        If .LangList.ListIndex >= 0 Then
            If Options("Language") <> .LangList.List(.LangList.ListIndex) Then
                Set_Homepage_Labels
                Call Save_Option("Language", .LangList.List(.LangList.ListIndex))
            End If
        End If
    End With
 
    Unload Form_Options
    'If LstBox.ListIndex <> 0 Then
    '    With Dlgsheet.EditBoxes("OprLangPref")
    '        .Text = LstBox.List(LstBox.Value)
    '        .Enabled = False
    '    End With
    'End If
End Sub
 
 
 
 
'===============================================================================
'  Entry Function for Online and Batch Journal Import
'     HowMany :  Indicates how many journals sheets to be processed
'                (SELECTED, THIS ONE)
'     Mode    :  Indicates Onine import (XML link) or Batch import (flat file)
'                (IMPORT, FILE)
'===============================================================================
Public Sub Import_Journals(HowMany, mode As String)
Dim SelSheet, SelList As Variant
Dim List1 As Variant
Dim StatusBarOptn As Boolean
Dim StatusBarText As String
Dim Counter2 As Integer
Dim Outfile As Integer
Dim IndexFile As Integer
Dim SheetList() As Variant
Dim i As Integer
Dim UsrID, Pwd As String
Dim Byte1 As Byte
Dim tmpStr, BaseFile, FileExt As String
Dim posDot, posSlash As Integer
 
    GetSheet
    StatusBarOptn = Application.DisplayStatusBar
    StatusBarText = Application.StatusBar
 
    Select Case HowMany
    Case "THIS ONE"
        Set SelSheet = ActiveSheet
        With Form_ImportNow
            .Caption = GetMsg(Lang, 41, 25)
            .ButtonOK.Caption = GetMsg(Lang, 12, 1)
            .ButtonCancel.Caption = GetMsg(Lang, 12, 2)
            .Import_URL.Caption = Options("Import_URL")
            .Import_UserID.Value = Options("Import_UserID")
            .Label3.Caption = GetMsg(Lang, 12, 30)       'UserID
            .Label4.Caption = GetMsg(Lang, 12, 31)       'Password
        End With
 
        Form_ImportNow.Show
        Application.ScreenUpdating = False
 
        If Form_ImportNow.Import_UserID <> "" Then
            Call Import_Sheet(SelSheet.Name, mode, Outfile, Form_ImportNow.Import_UserID, Form_ImportNow.Import_Pwd)
        End If
        Unload Form_ImportNow
        SelSheet.Activate
        Cells(11, 8).Select
 
    Case "SELECTED"
        If ListArray(SheetList) Then
            With Form_SelectSheet
                If mode = "IMPORT" Then
                    .Caption = GetMsg(Lang, 41, 25)
                    .ButtonAll.Caption = GetMsg(Lang, 41, 7)
                    .ButtonAll.Visible = True
                    .ButtonNone.Visible = True
                    .OnlineFrame.Visible = True
                    .Height = .Height - .Target.Height - 10
                    .OnlineFrame.Top = .OnlineFrame.Top - .Target.Height - 10
                    .OnlineFrame.Caption = GetMsg(Lang, 12, 29)
                    .Import_URL.Caption = Options("Import_URL")
                    .Import_UserID.Value = Options("Import_UserID")
                    .Label3.Caption = GetMsg(Lang, 12, 30)       'UserID
                    .Label4.Caption = GetMsg(Lang, 12, 31)       'Password
                Else
                    .Caption = GetMsg(Lang, 41, 26)
                    .ButtonAll.Caption = GetMsg(Lang, 41, 8)
                    .ButtonAll.Visible = True
                    .ButtonNone.Visible = True
                    .Label2.Visible = True
                    .Target.Visible = True
                    .WriteIndex.Visible = True
                    .Label2.Caption = GetMsg(Lang, 41, 28)
                    .Target = Application.DefaultFilePath & "\" & Mid(CurWrkBook, 1, InStr(1, CurWrkBook, ".", 1)) & "txt"
                    .Height = .Height - .OnlineFrame.Height - 5
                End If
                .ListBox1.Clear
                .ListBox1.List = SheetList
            End With
 
            Form_SelectSheet.Show
            Set List1 = Form_SelectSheet.ListBox1
            Application.ScreenUpdating = False
 
            For i = 1 To List1.ListCount
                If List1.Selected(i - 1) Then
                    If mode <> "IMPORT" Then
                        If Form_SelectSheet.WriteIndex = True Then
                            If IndexFile = 0 Then
                                posDot = InStrRev(Form_SelectSheet.Target, ".")
                                posSlash = InStrRev(Form_SelectSheet.Target, "\")
                                If posDot > 0 And posSlash > 0 And posSlash > posDot Then
                                    posDot = 0
                                End If
                                If posDot = 0 Then
                                    BaseFile = Form_SelectSheet.Target & "_"
                                    FileExt = ".txt"
                                Else
                                    BaseFile = Left(Form_SelectSheet.Target, posDot - 1) & "_"
                                    FileExt = Mid(Form_SelectSheet.Target, posDot)
                                End If
 
                                IndexFile = FreeFile()
                                Open (BaseFile & "index" & FileExt) For Output As IndexFile
                            Else
                                Close #Outfile
 
                            End If
                            tmpStr = BaseFile & List1.List(i - 1) & FileExt
                            Print #IndexFile, tmpStr
                            Outfile = FreeFile()
 
                            Open tmpStr For Output As Outfile
                        Else
                            If Outfile = 0 Then
                                Outfile = FreeFile()
 
 
                                Open Form_SelectSheet.Target For Output As Outfile
                            End If
                        End If
                    End If
                    Call Import_Sheet(List1.List(i - 1), mode, Outfile, Form_SelectSheet.Import_UserID, Form_SelectSheet.Import_Pwd)
                End If
            Next
            Unload Form_SelectSheet
 
            If mode <> "IMPORT" And Outfile <> 0 Then
                If IndexFile <> 0 Then
                    Close #IndexFile
                End If
                Close #Outfile
 
            End If
        Else
            'Msg: "No journal sheet for import"
            Title = GetMsg(Lang, 95, 1)
            Message = GetMsg(Lang, 95, 2)
            i = MsgBox(Message, 64, Title)
        End If
    End Select
 
    Application.StatusBar = StatusBarText
    Application.StatusBar = GetMsg(Lang, 1, 3)
    Application.DisplayStatusBar = StatusBarOptn
    If HowMany <> "THIS ONE" Then
        Call GotoControlPage
    End If
End Sub
 
 
 
'=========================================
'  Online import the given journal sheet
'=========================================
'Private Sub Import_Sheet(LineSheet As String, mode As String, OutFile As Integer, UsrID, Pwd As String)
Private Sub Import_Sheet(LineSheet As String, mode As String, Outfile As Integer, UsrID As String, Pwd As String)
 
Dim HdrSheet As String
Dim strXML As String
Dim strURL As String
Dim strResponse As String
Dim FirstRowNum As Integer
Dim LastRowNum As Integer
Dim ReturnCD As Long
Dim i As Long
' ICE: 688200002: AH
Dim iGenerateXML As Integer
 
    HdrSheet = LineSheet & "_H"
    ActiveWorkbook.Worksheets(LineSheet).Activate
 
    Application.DisplayStatusBar = True
    Application.StatusBar = GetMsg(Lang, 1, 1)
    FormatJournal (LineSheet)
 
    'CheckHdrs
 
    'Import the Journal sheet
    'NvsError = ImportSheet(ActiveSheet)
 
 
    If mode <> "IMPORT" Then
    ' ICE: 688200002: AH: Adds a parameter to store status code
        Call Generate_XML(strXML, LineSheet, 0, iGenerateXML)
        ' ICE: 688200002: AH if iGenerateXML is 0, i.e. no error
        If iGenerateXML = 0 Then
           Print #Outfile, strXML
        End If
    Else
        strXML = "<?xml version=""1.0""?>" & vbCrLf
        strXML = strXML & "<Postreq>" & vbCrLf
 
        strXML = strXML & "<PROCESS_OPTION>" & vbCrLf
        strXML = strXML & "  <DUPLICATE_OPTION>" & Options("DuplicateOption") & "</DUPLICATE_OPTION>" & vbCrLf
        strXML = strXML & "  <ERROR_OPTION>" & Options("ErrorOption") & "</ERROR_OPTION>" & vbCrLf
        strXML = strXML & "  <DECIMAL_POSITION>" & Options("DecPosition") & "</DECIMAL_POSITION>" & vbCrLf
        strXML = strXML & "  <DEFAULT_USERID>" & UsrID & "</DEFAULT_USERID>" & vbCrLf
        strXML = strXML & "</PROCESS_OPTION>" & vbCrLf
 
        ' ICE: 688200002: AH: Adds a parameter to store status code
        Call Generate_XML(strXML, LineSheet, 2, iGenerateXML)
        ' ICE: 688200002: AH if iGenerateXML is 0, i.e. no error
 
        If iGenerateXML = 0 Then
 
            strXML = strXML & "</Postreq>" & vbCrLf
 
 
            'http://<server>/xmllink/ps/Excel_Journal_Import?userid=<user-id>&pwd=<password>
            Rem AG 3323966 Posting directly so do not append service name
            Rem and append a & instead of ? before userid and pwd
 
            'strURL = Options("Import_URL") & "Excel_Journal_Import"
            strURL = Options("Import_URL")
            strURL = Replace(strURL, "xmllink", "psc")
            strURL = strURL & "EMPLOYEE/ERP/s/WEBLIB_GL.JOURNAL_ID.FieldFormula.Iscript_Excel_Journal/?postDataBin=y&disconnect=y"
            'strURL = strURL & "&userid=" & UsrID & "&pwd=" & Pwd
 
 
 
            ReturnCD = sendXML(strXML, strResponse, strURL, LineSheet, UsrID, Pwd)
 
            Select Case ReturnCD
 
            Case 0
                ' Import was successful
                Select Case Options("ChangeStatus")
                Case "N"
                    'do nothing
                    ActiveSheet.Protect
                Case "C"
                    'Change Header status to IMPORTED
                    ActiveWorkbook.Worksheets(HdrSheet).Activate
                    ActiveSheet.Unprotect
                    LastRowNum = ActiveSheet.Columns(2).Find("", , xlFormulas, xlWhole, xlByRows).Row - 1
                    ActiveSheet.Range(Cells(3, 2), Cells(LastRowNum, 2)).Select
                    Selection.Value = "U"
                    ActiveSheet.Protect
 
                    'Change Line status to IMPORTED
                    ActiveWorkbook.Worksheets(LineSheet).Activate
                    ActiveSheet.Unprotect
                    FirstRowNum = ActiveSheet.Range("InsertLine").Row + 1
                    LastRowNum = ActiveSheet.Range("BottomLine").Row - 1
                    ActiveSheet.Range(Cells(FirstRowNum, 3), Cells(LastRowNum, 3)).Select
                    Selection.Value = "U"
                    ActiveSheet.Protect
                End Select
            Case -101
                'Unknow generic error
 
            Case -102
                'Error loading the source XML document
            Case -103
                'Error loading response XML document
            Case -104
                'Application Error message found
 
            Case Else
                'Import error:  unable to import journal headers associated with sheet
                Title = GetMsg(Lang, 95, 1)
                Message = GetMsg(Lang, 95, 4)
                Message = Message & " '" & LineSheet
                If Options("DisplayMessage") = "E" Then
                    i = MsgBox(Message, 16, Title)
                End If
            End Select
 
            If ReturnCD = 0 Then
                If Options("LogMessage") = "B" Then
                    Call AddLogEntry(LogFileName, LineSheet, "Success", strResponse)
                End If
                If Options("DisplayMessage") = "Y" Then
                    i = MsgBox(strResponse, vbOKOnly, "Import OK - Sheet " & LineSheet)
                End If
            Else
                Call AddLogEntry(LogFileName, LineSheet, "Import failed", strResponse)
                If Options("DisplayMessage") = "Y" Then
                    i = MsgBox(strResponse, vbExclamation + vbOKOnly, "Import Failed - Sheet " & LineSheet)
                End If
            End If
        ' ICE: 688200002: AH
        End If
    End If
 
End Sub
 
 
 
'===============================================
'  Create XML elements from given rage of data
' ICE: 688200002: Add checking on OPEN_ITEM_KEY to make sure there is no space in the middle of the value
'===============================================
Private Function Row2XML(Sel As Range, indent As Integer, Optional HdrSheet As String) As String
Dim Cel As Range
Dim FldValue As String
Dim DecChar As String
Dim i As Integer
Dim XML As String
Dim sColName As String
Dim iMsg As Integer
 
 
 
    DecChar = Application.International(xlDecimalSeparator)
    XML = ""
    For Each Cel In Sel
        If IsNumeric(Cel.Value) And Cel.NumberFormat <> "@" Then
            If Cel.Value = 0 Then
                FldValue = ""
            Else
                Rem Bug13784334-UNEXPECTED WARNING MESSAGE WHEN CHECKING THE DECIMALS IN JRNL1-XLS-WINDOW
                FldValue = Cel.Value
                Rem FldValue = CDec(Cel.Value)
                Rem If DecChar <> "." And InStr(FldValue, DecChar) > 0 Then
                    Rem Mid(FldValue, InStr(FldValue, DecChar), 1) = "."
                Rem End If
            End If
        Else
            If IsDate(Cel.Value) And Cel.NumberFormat <> "@" Then
                FldValue = Format$(Cel.Value, "yyyymmdd")
            Else
                FldValue = Encode_XMLchar(Trim$(Cel.Value))
            End If
        End If
 
    ' ICE: 688200002: ah BEGIN
    sColName = UCase$(Cells(1, Cel.Column).Value)
    If sColName = "OPEN_ITEM_KEY" And Len(FldValue) > 0 Then
       'Make sure FldValue does not have space in the middle
       If ImbeddedSpace(FldValue) Then
              iMsg = MsgBox(GetMsg(Lang, 91, 12), vbExclamation, HdrSheet)
              Err.Raise (-999)
       End If
    End If
    ' ICE: 688200002: ah END
 
        If Len(FldValue) > 0 Then
            XML = XML & Space$(indent) & "<" & UCase$(Cells(1, Cel.Column).Value) & ">"
            XML = XML & FldValue
            XML = XML & "</" & UCase$(Cells(1, Cel.Column).Value) & ">" & vbCrLf
        End If
    Next
 
    Row2XML = XML
End Function
 
 
 
'=============================================
'  Generate XML string for the current sheet
'=============================================
'ICE: 688200002 Add iStatus for status indicator
Private Sub Generate_XML(XMLtext As String, LineSheet As String, indent As Integer, iStatus As Integer)
Dim DataRange As Range
Dim i As Integer
Dim HdrSeqNum As Integer
Dim FirstRowNum As Integer
Dim ThisRow As Range
Dim HdrSheet As String
Dim HeaderArray() As Variant
Dim tempXML As String           'use smaller chunk of XML string for performance
' ICE: 688200002: ah BEGIN set iStatus = 0 to indicate there is no error first
   iStatus = 0
   On Error GoTo doError
' ICE: 688200002: ah END
 
    HdrSheet = LineSheet & "_H"
    ActiveWorkbook.Worksheets(HdrSheet).Activate
    If Build_HdrArray(HdrSheet, HeaderArray) Then
        For i = LBound(HeaderArray) To UBound(HeaderArray)
            If Cells(i + 2, 2) = "C" Then
                Set DataRange = ActiveSheet.Range(Cells(i + 2, HdrCtrlCOL + 1), Cells(i + 2, LastHdrCOL))
                XMLtext = XMLtext & Space(indent) & "<JRNL_HDR_IMP>" & vbCrLf
                XMLtext = XMLtext & Row2XML(DataRange, indent + 2)
 
                HdrSeqNum = Cells(i + 2, 3).Value
                ActiveWorkbook.Worksheets(LineSheet).Activate
                With Range(Cells(2, 2), Cells(Range("BottomLine").Row, 2))
                    Set ThisRow = .Find(HdrSeqNum, , , xlWhole, xlByRows)
                    If Not ThisRow Is Nothing Then
                        FirstRowNum = ThisRow.Row
                        tempXML = ""
                        Do
                            If Cells(ThisRow.Row, 3) = "C" Then
                                Set DataRange = Range(Cells(ThisRow.Row, 8), Cells(ThisRow.Row, Range("LastLineCol").Column))
                                tempXML = tempXML & Space(indent + 2) & "<JRNL_LN_IMP>" & vbCrLf
                                ' ICE: 688200002:
                                tempXML = tempXML & Row2XML(DataRange, indent + 4, "Sheet: " & LineSheet)
                                tempXML = tempXML & Space(indent + 2) & "</JRNL_LN_IMP>" & vbCrLf
 
                                If Len(tempXML) > 10000 Then
                                    XMLtext = XMLtext & tempXML
                                    tempXML = ""
                                End If
                            End If
                            Set ThisRow = .FindNext(ThisRow)
                        Loop While Not ThisRow Is Nothing And ThisRow.Row <> FirstRowNum
                        XMLtext = XMLtext & tempXML
                        tempXML = ""
                    End If
                End With
                XMLtext = XMLtext & Space(indent) & "</JRNL_HDR_IMP>" & vbCrLf
                ActiveWorkbook.Worksheets(HdrSheet).Activate
            End If
        Next i
    End If
' ICE: 688200002: ah BEGIN
doError:
    If Err.Number <> 0 Then
       iStatus = Err.Number
    End If
' ICE: 688200002: ah END
End Sub
 
 
 
 
'======================================
'  Post and Send journal over the web
'======================================
 
'Private Function sendXML(strXML, strResponse, strURL, LineSheet, UsrID, Pwd As String) As Long
Private Function sendXML(strXML, strResponse, strURL As String, LineSheet, UsrID As String, Pwd As String) As Long
 
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
'Dim xDoc As MSXML2.DOMDocument60
'Dim xHTTP As XMLHTTP
'Const WinHttpRequestOption_EnableHttp1_1 = 17
 'Dim xHTTP As MSXML2.ServerXMLHTTP60
Dim xDoc As MSXML.DOMDocument
Dim xHTTP As MSXML.XMLHTTPRequest
 
'Dim xError, xImported, xUpdated As MSXML.IXMLDOMElement
'Added an additional element xWarning to handle the warnings
 
'Dim xError, xWarning, xImported, xUpdated As IXMLDOMNodeList
'Dim tmp, tmp2, tmp3 As String
'Dim StatusNum As Long
'Dim i, k, RowNum As Integer
'Dim Y, M, D, Dsep, Jdate, SysID, jid As String
'Dim Dorder As Integer
 
 Dim xError, xImported, xUpdated As MSXML.IXMLDOMNodeList
 Dim tmp As String
 Dim StatusNum As Long
 Dim i, k As Integer
 
    On Error GoTo doError
    strResponse = ""
    'Set xDoc = New MSXML2.DOMDocument60
    Set xDoc = New MSXML.DOMDocument
    'Set xDoc = CreateObject("MSXML.DOMDocument")
 
    xDoc.async = False
    If xDoc.loadXML(strXML) Then
        'Set xHTTP = New XMLHTTP
 
        'Set xHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
        Set xHTTP = New MSXML.XMLHTTPRequest
         'Set xHTTP = CreateObject("MSXML.DOMDocument")
        'xHTTP.setTimeouts 0, 0, 0, 0
 
        'xHTTP.Open "POST", strURL, False, UsrID, Pwd
 
 
        'xHTTP.setRequestHeader "content-type", "application/x-www-form-urlencoded"
        'xHTTP.setRequestHeader "accept", "text/xml/html"
        'xHTTP.setRequestHeader "accept-charset", "utf-8, iso_8859-1"
 
        'xHTTP.setRequestHeader "userid", UsrID
        'xHTTP.setRequestHeader "pwd", Pwd
        'xHTTP.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
 
        xHTTP.Open "POST", strURL, False
 
        xHTTP.setRequestHeader "content-type", "application/x-www-form-urlencoded"
        xHTTP.setRequestHeader "accept", "text/xml/html"
        xHTTP.setRequestHeader "accept-charset", "utf-8, iso_8859-1"
        Rem AG 3323966 Adding the Username and Password to the header
        xHTTP.setRequestHeader "userid", UsrID
        xHTTP.setRequestHeader "pwd", Pwd
 
        xHTTP.send xDoc.XML
 
        strResponse = xHTTP.responseText
 
        If xDoc.loadXML(strResponse) Then
            Dsep = Application.International(xlDateSeparator)
            Dorder = Application.International(xlDateOrder)
            'xlDateOrder (0=MDY, 1=DMY, 2=YMD)
            Set xError = xDoc.getElementsByTagName("error")
            strResponse = ""
 
                Set xImported = xDoc.getElementsByTagName("imported")
                tmp = ""
                k = 0
                ActiveWorkbook.Worksheets(LineSheet).Activate
                ActiveSheet.Unprotect
                ActiveWorkbook.Worksheets(LineSheet & "_H").Activate
                ActiveSheet.Unprotect
 
                For i = 1 To xImported.Length
                    tmp2 = Decode_XMLchar(xImported.Item(i - 1).Text)
                    tmp3 = Mid(tmp2, InStr(tmp2, ")") - 10, 10)
                    Y = Left(tmp3, 4)
                    M = Mid(tmp3, 6, 2)
                    D = Right(tmp3, 2)
                    If Dorder = 0 Then
                        Jdate = M & Dsep & D & Dsep & Y
                    ElseIf Dorder = 1 Then
                        Jdate = D & Dsep & M & Dsep & Y
                    Else
                        Jdate = Y & Dsep & M & Dsep & D
                    End If
                    tmp = tmp & vbLf & "  " & Replace(tmp2, tmp3, Jdate)
                    k = k + 1
 
                    SysID = RTrim(Left(tmp2, InStr(tmp2, "(") - 1))
                    tmp3 = LTrim(Mid(tmp2, InStr(tmp2, ",") + 1))
                    jid = RTrim(Left(tmp3, InStr(tmp3, ",") - 1))
                    RowNum = ActiveSheet.Columns(3).Find(SysID, , xlFormulas, xlWhole, xlByRows).Row
                    If Cells(RowNum, 5) = "NEXT" Then
                        Cells(RowNum, 5) = jid
 
                        ActiveWorkbook.Worksheets(LineSheet).Activate
                        If Cells(4, 8) = Val(SysID) And Cells(4, 10) = "NEXT" Then
                            Cells(4, 10) = jid
                        End If
                        RowNum = ActiveSheet.Columns(2).Find(SysID, , xlFormulas, xlWhole, xlByRows).Row
                        While Cells(RowNum, 2) = Val(SysID)
                            If Cells(RowNum, 5) = "NEXT" Then
                                Cells(RowNum, 5) = jid
                            End If
                            RowNum = RowNum + 1
                        Wend
                        ActiveWorkbook.Worksheets(LineSheet & "_H").Activate
                    End If
                Next
                strResponse = GetMsg(Lang, 80, 2, str(k)) & tmp
                ActiveWorkbook.Worksheets(LineSheet & "_H").Activate
                ActiveSheet.Protect
                ActiveWorkbook.Worksheets(LineSheet).Activate
                ActiveSheet.Protect
 
                Set xUpdated = xDoc.getElementsByTagName("updated")
                tmp = ""
                k = 0
                For i = 1 To xUpdated.Length
                    tmp2 = Decode_XMLchar(xUpdated.Item(i - 1).Text)
                    tmp3 = Mid(tmp2, InStr(tmp2, ")") - 10, 10)
                    Y = Left(tmp3, 4)
                    M = Mid(tmp3, 6, 2)
                    D = Right(tmp3, 2)
                    If Dorder = 0 Then
                        Jdate = M & Dsep & D & Dsep & Y
                    ElseIf Dorder = 1 Then
                        Jdate = D & Dsep & M & Dsep & Y
                    Else
                        Jdate = Y & Dsep & M & Dsep & D
                    End If
                    tmp = tmp & vbLf & "  " & Replace(tmp2, tmp3, Jdate)
                    k = k + 1
                Next
                If k > 0 Then
                    strResponse = strResponse & vbLf & GetMsg(Lang, 80, 3, str(k)) & tmp
                End If
           'Warnings are processed in this loop
            Set xWarning = xDoc.getElementsByTagName("warning")
            i = 0
                tmp = ""
                For i = 1 To xWarning.Length
                    If i > 1 Then
                        tmp = tmp & vbLf
                    End If
                    tmp = tmp & Decode_XMLchar(xWarning.Item(i - 1).Text)
                Next
 
                strResponse = strResponse & vbLf & tmp
            sendXML = 0
            If xError.Length > 0 Then
                'Application Error message found
                If Options("ErrorOption") <> "S" Then
                    sendXML = -104
                End If
 
                i = 0
                tmp = ""
                For i = 1 To xError.Length
                    If i > 1 Then
                        tmp = tmp & vbLf
                    End If
                    tmp = tmp & Decode_XMLchar(xError.Item(i - 1).Text)
                Next
 
                strResponse = strResponse & vbLf & tmp
            End If
        Else
            'Error loading response XML document
            sendXML = -103
        End If
    Else
        'Error loading the source XML document
        sendXML = -102
        strResponse = xDoc.parseError.reason & vbCrLf & strXML
    End If
    Exit Function
doError:
    If Err.Number <> 0 Then
        sendXML = Err.Number
        strResponse = Err.Description & Options("Import_URL")
    Else
        'Unknown error
        sendXML = -101
    End If
End Function
 
 
Public Sub CustomizeCF()
    Form_CustomizeCF.Show
End Sub
 
 
 
 
Private Sub genericErrorHandler(objErr As ErrObject, strProcName As String)
    MsgBox prompt:="The following error occurred in procedure " & strProcName _
        & ": " & vbCrLf & objErr.Description & vbCrLf & "Error #: " & objErr.Number, _
        Title:="ERROR"
End Sub
 
'11/16/04: AH Created this for ICE 622590000
'The purpose of this function is to encode special characters contained in UID/password ! @ # $ % ^ & * ( ) - _ = + \ |[ ] {} ; : / ? . > <
Public Function URL_Encode(ByVal sOriginal As String) As String
Dim i_Len, i_Counter As Integer
Dim s_Encoded, s_Parsed As String
'figure out length of passed in string
i_Len = Len(sOriginal)
 
s_Encoded = ""
s_Parsed = ""
'parse each character and replace it with encoded value if it's one of the special character
For i_Counter = 1 To i_Len
    'get each character out of the sOriginal string
    s_Parsed = Mid(sOriginal, i_Counter, 1)
    Select Case s_Parsed
        Case "!"
        s_Encoded = s_Encoded + "%21"
        Case "@"
        s_Encoded = s_Encoded + "%40"
        Case "#"
        s_Encoded = s_Encoded + "%23"
        Case "$"
        s_Encoded = s_Encoded + "%24"
        Case "%"
        s_Encoded = s_Encoded + "%25"
        Case "^"
        s_Encoded = s_Encoded + "%5E"
        Case "&"
        s_Encoded = s_Encoded + "%26"
        Case "*"
        s_Encoded = s_Encoded + "%2A"
        Case "("
        s_Encoded = s_Encoded + "%28"
        Case ")"
        s_Encoded = s_Encoded + "%29"
        Case "-"
        s_Encoded = s_Encoded + "%2D"
        Case "_"
        s_Encoded = s_Encoded + "%5F"
        Case "="
        s_Encoded = s_Encoded + "%3D"
        Case "+"
        s_Encoded = s_Encoded + "%2B"
        Case "\"
        s_Encoded = s_Encoded + "%5C"
        Case "|"
        s_Encoded = s_Encoded + "%7C"
        Case "["
        s_Encoded = s_Encoded + "%5B"
        Case "]"
        s_Encoded = s_Encoded + "%5D"
        Case "{"
        s_Encoded = s_Encoded + "%7B"
        Case "}"
        s_Encoded = s_Encoded + "%7D"
        Case ";"
        s_Encoded = s_Encoded + "%3B"
        Case ":"
        s_Encoded = s_Encoded + "%3A"
        Case "/"
        s_Encoded = s_Encoded + "%2F"
        Case "?"
        s_Encoded = s_Encoded + "%3F"
        Case "."
        s_Encoded = s_Encoded + "%2E"
        Case ">"
        s_Encoded = s_Encoded + "%3E"
        Case "<"
        s_Encoded = s_Encoded + "%3C"
        Case Else
        s_Encoded = s_Encoded + s_Parsed
    End Select
Next
 
URL_Encode = s_Encoded
 
End Function
 
 
 
 
 

J1RoaXMgbW9kdWxlIGNvbnRhaW5zIHRoZSBtYWNyb3MgZm9yIHRoZSBtYWluIGNvbnRyb2wgc2hlZXQKCk9wdGlvbiBCYXNlIDEKT3B0aW9uIEV4cGxpY2l0CgpEaW0gQ3VyV3JrQm9vayBBcyBTdHJpbmcKRGltIEN1cnJlbnRTaGVldCBBcyBTdHJpbmcKRGltIEN1cnJlbnRIZHJTaGVldCBBcyBTdHJpbmcKRGltIFRpdGxlIEFzIFN0cmluZwpEaW0gTWVzc2FnZSBBcyBTdHJpbmcKRGltIFN1Y2Nlc3NmdWwgQXMgQm9vbGVhbgpEaW0gTG9nRmlsZU5hbWUgQXMgU3RyaW5nCkRpbSBTa2lwc2hlZXRzIEFzIEludGVnZXIKRGltIFNraXBEbGdzIEFzIEludGVnZXIKRGltIEZpcnN0SkxpbmUgQXMgSW50ZWdlcgpQdWJsaWMgTGFuZyBBcyBTdHJpbmcKCgpQdWJsaWMgU3ViIEluaXQoKQogICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBGYWxzZQogICAgTGFuZyA9IE9wdGlvbnMoIkxhbmd1YWdlIikKICAgIEN1cldya0Jvb2sgPSBBY3RpdmVXb3JrYm9vay5OYW1lCiAgICBHb3RvQ29udHJvbFBhZ2UKRW5kIFN1YgoKCgpQdWJsaWMgRnVuY3Rpb24gT3B0aW9ucyhFZEJveCBBcyBTdHJpbmcsIE9wdGlvbmFsIFRleHQgQXMgU3RyaW5nKSBBcyBTdHJpbmcKICAgICdSZXR1cm5zIHRoZSBvcHRpb24gc2V0dGluZwogICAgT3B0aW9ucyA9IEFjdGl2ZVdvcmtib29rLkRpYWxvZ1NoZWV0cygiT3B0aW9ucyIpLkVkaXRCb3hlcyhFZEJveCkuVGV4dApFbmQgRnVuY3Rpb24KCgoKUHVibGljIFN1YiBTYXZlX09wdGlvbihFZEJveCwgTmV3VGV4dCBBcyBTdHJpbmcpCiAgICAnU2V0cyB0aGUgb3B0aW9ucwogICAgSWYgQWN0aXZlV29ya2Jvb2suRGlhbG9nU2hlZXRzKCJPcHRpb25zIikuRWRpdEJveGVzKEVkQm94KS5UZXh0IDw+IE5ld1RleHQgVGhlbgogICAgICAgIEFjdGl2ZVdvcmtib29rLkRpYWxvZ1NoZWV0cygiT3B0aW9ucyIpLlVucHJvdGVjdAogICAgICAgIEFjdGl2ZVdvcmtib29rLkRpYWxvZ1NoZWV0cygiT3B0aW9ucyIpLkVkaXRCb3hlcyhFZEJveCkuVGV4dCA9IE5ld1RleHQKICAgICAgICBBY3RpdmVXb3JrYm9vay5EaWFsb2dTaGVldHMoIk9wdGlvbnMiKS5Qcm90ZWN0CiAgICBFbmQgSWYKRW5kIFN1YgoKCgpQdWJsaWMgRnVuY3Rpb24gRW5jb2RlX1hNTGNoYXIodG1wIEFzIFN0cmluZykgQXMgU3RyaW5nCiAgICB0bXAgPSBSZXBsYWNlKHRtcCwgIiYiLCAiJmFtcDsiKQogICAgdG1wID0gUmVwbGFjZSh0bXAsICI8IiwgIiZsdDsiKQogICAgdG1wID0gUmVwbGFjZSh0bXAsICI+IiwgIiZndDsiKQogICAgdG1wID0gUmVwbGFjZSh0bXAsICInIiwgIiZhcG9zOyIpCiAgICBFbmNvZGVfWE1MY2hhciA9IFJlcGxhY2UodG1wLCAiIiIiLCAiJnF1b3Q7IikKRW5kIEZ1bmN0aW9uCgoKClB1YmxpYyBGdW5jdGlvbiBEZWNvZGVfWE1MY2hhcih0bXAgQXMgU3RyaW5nKSBBcyBTdHJpbmcKICAgIHRtcCA9IFJlcGxhY2UodG1wLCAiJmFtcDsiLCAiJiIpCiAgICB0bXAgPSBSZXBsYWNlKHRtcCwgIiZsdDsiLCAiPCIpCiAgICB0bXAgPSBSZXBsYWNlKHRtcCwgIiZndDsiLCAiPiIpCiAgICB0bXAgPSBSZXBsYWNlKHRtcCwgIiZhcG9zOyIsICInIikKICAgIERlY29kZV9YTUxjaGFyID0gUmVwbGFjZSh0bXAsICImcXVvdDsiLCAiIiIiKQpFbmQgRnVuY3Rpb24KCgoKUHJpdmF0ZSBTdWIgU2V0X0hvbWVwYWdlX0xhYmVscygpCiAgICBXaXRoIEFjdGl2ZVdvcmtib29rLlNoZWV0cygxKQogICAgICAgIC5TZXREZWZhdWx0cy5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQxLCAxKQogICAgICAgIC5Vc2VyTm90ZXMuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgMikKICAgICAgICAuTmV3U2hlZXQuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgMykKICAgICAgICAuRWRpdFNoZWV0LkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDQpCiAgICAgICAgLkNsZWFyU2hlZXQuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgNSkKICAgICAgICAuQ29weVNoZWV0LkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDYpCiAgICAgICAgLkltcG9ydFNlbGVjdGVkLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDcpCiAgICAgICAgLldyaXRlU2VsZWN0ZWQuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgOCkKICAgICAgICAuR3JvdXBCb3hlcygiR3JvdXBCb3gxIikuVGV4dCA9IEdldE1zZyhMYW5nLCA0MSwgMTIpCiAgICAgICAgLkdyb3VwQm94ZXMoIkdyb3VwQm94MiIpLlRleHQgPSBHZXRNc2coTGFuZywgNDEsIDEzKQogICAgICAgIC5Hcm91cEJveGVzKCJHcm91cEJveDMiKS5UZXh0ID0gR2V0TXNnKExhbmcsIDQxLCAxNCkKICAgIEVuZCBXaXRoCiAgICBBY3RpdmVXb3JrYm9vay5TaGVldHMoMikuR29Db250cm9sUGFnZS5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQxLCA5KQpFbmQgU3ViCgoKCidUaGlzIG1hY3JvIHNldHMgaW5mb3JtYXRpb24gYWJvdXQgdGhlIHdvcmtib29rIGFuZCBzaGVldC4KU3ViIEdldFNoZWV0KCkKICAgIEN1cldya0Jvb2sgPSBBY3RpdmVXb3JrYm9vay5OYW1lCiAgICBDdXJyZW50U2hlZXQgPSBBY3RpdmVTaGVldC5OYW1lCiAgICBDdXJyZW50SGRyU2hlZXQgPSBDdXJyZW50U2hlZXQgJiAiX0giCiAgICBMYW5nID0gT3B0aW9ucygiTGFuZ3VhZ2UiKQogICAgJ0dldCB0aGUgdXNlcidzIHByZWZlcnJlZCBMYW5nCiAgICAnU2V0IFNldHRpbmdzID0gVXNlckZvcm1zKCJGb3JtX09wdGlvbnMiKQogICAgCiAgICAKICAgICdPbiBFcnJvciBSZXN1bWUgTmV4dCAgJyB0dXJuIG9mZiBlcnJvciBjaGVja2luZwogICAgJ1NldCB3Yk15QWRkaW4gPSBXb3JrYm9va3MoQWRkSW5zKCJKcm5sbWNybyIpLk5hbWUpCiAgICAnTGFzdEVycm9yID0gRXJyLk51bWJlcgogICAgJ09uIEVycm9yIEdvVG8gMCAgICAgICAnIHJlc3RvcmUgZXJyb3IgY2hlY2tpbmcKCiAgICAnSWYgTGFzdEVycm9yID0gMCBUaGVuCiAgICAgICAgJ0pybmxtY3JvLnhsYSBpcyBhbHJlYWR5IGxvYWRlZC4KICAgICcgICAgUnVuICgiR29Ub0NvbnRyb2xQYWdlIikKICAgICdFbHNlCiAgICAnICAgICdKcm5sbWNyby54bGEgaXMgbm90IGxvYWRlZCB5ZXQuIExvYWQgaXQgZnJvbSBBY3RpdmVXb3JrYm9vay5QYXRoCiAgICAnICAgIFNhdmVkUGF0aCA9IEN1ckRpcigpICYgIlwiCiAgICAnICAgIFdvcmtib29rUGF0aCA9IEFjdGl2ZVdvcmtib29rLlBhdGggJiAiXCIKICAgICcgICAgQ2hEaXIgKFdvcmtib29rUGF0aCkKICAgICcgICAgQ2hEcml2ZSAoV29ya2Jvb2tQYXRoKQogICAgJyAgICBSdW4gKCJKUk5MTUNSTy5YTEEhR290b0NvbnRyb2xQYWdlIikKICAgICcgICAgQ2hEcml2ZSAoU2F2ZWRQYXRoKQogICAgJyAgICBDaERpciAoU2F2ZWRQYXRoKQogICAgJ0VuZCBJZgogICAgCiAgICAKICAgIAogICAgJ1RoZSBsb2dmaWxlIG5hbWUgaXMgc3RvcmVkIGluIHRoZSBtZXNzYWdlIGNhdGFsb2cKICAgIExvZ0ZpbGVOYW1lID0gR2V0TXNnKExhbmcsIDksIDIpCiAgICBJZiBMb2dGaWxlTmFtZSA9ICIiIFRoZW4KICAgICAgICBMb2dGaWxlTmFtZSA9ICJqcm5sbG9nLnhscyIKICAgIEVuZCBJZgoKICAgICdTa2lwc2hlZXRzID0gbnVtYmVyIG9mIG5vbi1qb3VybmFsIHdvcmtzaGVldHMgaW4gd29ya2Jvb2suICBJbiB0aGUgc2FtcGxlIHNoaXBwZWQsIF8KICAgICcgICBTa2lwc2hlZXRzIGlzIDQgYmVjYXVzZSAxIENvbnRyb2wgc2hlZXQgKyAxIG5vdGVzIHNoZWV0ICsgMSBqb3VybmFsIHRlbXBsYXRlIHNoZWV0IF8KICAgICcgICArIDEgam91cm5hbCBoZWFkZXIgdGVtcGxhdGUgc2hlZXQgPSA0LiAgVGhlIE9wdGlvbnMgZGlhbG9nc2hlZXQgZG9lc24ndCBjb3VudCBfCiAgICAnICAgYmVjYXVzZSBpdCdzIGEgZGlhbG9nc2hlZXQsIG5vdCBhIHdvcmtzaGVldC4gIElmIHlvdSBhZGQgYWRkaXRpb25hbCBzaGVldHMgdG8gXwogICAgJyAgIHRoZSB3b3JrYm9vaywgYWRkIHRoYXQgbnVtYmVyIHRvIFNraXBzaGVldHMuCiAgICBTa2lwc2hlZXRzID0gNAogICAgCiAgICAnU2tpcERsZ3MgPSBudW1iZXIgb2YgZGlhbG9nc2hlZXRzIGluIGpybmwgd29ya2Jvb2suICBJbiB0aGUgc2FtcGxlIHNoaXBwZWQsIF8KICAgICcgICBTa2lwRGxncyBpcyAxIGJlY2F1c2UgdGhlIG9ubHkgZGlhbG9nc2hlZXQgaXMgdGhlIE9wdGlvbnMgZGlhbG9nc2hlZXQuICBJZiB5b3UgYWRkIF8KICAgICcgICBhZGRpdGlvbmFsIGRpYWxvZ3NoZWV0cyB0byB0aGUganJubCB3b3JrYm9vaywgYWRkIHRoYXQgbnVtYmVyIHRvIFNraXBEbGdzLgogICAgU2tpcERsZ3MgPSAxCgpFbmQgU3ViCgoKCgpGdW5jdGlvbiBTdHJpbmdCZXR3ZWVuKFNvdXJjZVN0cmluZyBBcyBTdHJpbmcsIEJlZm9yZVN0cmluZyBBcyBTdHJpbmcsIEFmdGVyU3RyaW5nIEFzIFN0cmluZywgQ29tcGFyZSBBcyBJbnRlZ2VyKSBBcyBTdHJpbmcKRGltIEJlZm9yZVN0cmluZ1BvcyBBcyBJbnRlZ2VyCkRpbSBBZnRlclN0cmluZ1BvcyBBcyBJbnRlZ2VyCkRpbSBTdHJpbmdCZXR3ZWVuUG9zIEFzIEludGVnZXIKICAgIAogICAgU3RyaW5nQmV0d2VlbiA9ICIiCiAgICAKICAgIEJlZm9yZVN0cmluZ1BvcyA9IEluU3RyKDEsIFNvdXJjZVN0cmluZywgQmVmb3JlU3RyaW5nLCBDb21wYXJlKQogICAgSWYgQmVmb3JlU3RyaW5nUG9zID4gMCBUaGVuCiAgICAgICAgU3RyaW5nQmV0d2VlblBvcyA9IEJlZm9yZVN0cmluZ1BvcyArIExlbihCZWZvcmVTdHJpbmcpCiAgICAgICAgQWZ0ZXJTdHJpbmdQb3MgPSBJblN0cihTdHJpbmdCZXR3ZWVuUG9zLCBTb3VyY2VTdHJpbmcsIEFmdGVyU3RyaW5nLCBDb21wYXJlKQogICAgICAgIElmIEFmdGVyU3RyaW5nUG9zID4gU3RyaW5nQmV0d2VlblBvcyBUaGVuCiAgICAgICAgICAgIFN0cmluZ0JldHdlZW4gPSBNaWQoU291cmNlU3RyaW5nLCBTdHJpbmdCZXR3ZWVuUG9zLCBBZnRlclN0cmluZ1BvcyAtIFN0cmluZ0JldHdlZW5Qb3MpCiAgICAgICAgRW5kIElmCiAgICBFbmQgSWYKRW5kIEZ1bmN0aW9uCgoKCidUaGlzIG1hY3JvIHdpbGwgYWRkIGEgbmV3IGpvdXJuYWwgZW50cnkgc2hlZXQgYW5kIGhlYWRlcgpTdWIgSnJubFNoZWV0X05ldygpCkRpbSBOZXdTaGVldCwgVGl0bGUsIE1lc2cgQXMgU3RyaW5nCkRpbSBXSyBBcyBWYXJpYW50CkRpbSBpTXNnIEFzIEludGVnZXIKCiAgICBHZXRTaGVldAogICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLlVucHJvdGVjdAogICAgCiAgICBUaXRsZSA9IEdldE1zZyhMYW5nLCA0MSwgMjEpCiAgICBNZXNnID0gR2V0TXNnKExhbmcsIDQxLCAyOSkKICAgIE5ld1NoZWV0ID0gVHJpbShJbnB1dEJveChNZXNnLCBUaXRsZSkpCiAgICBBcHBsaWNhdGlvbi5TY3JlZW5VcGRhdGluZyA9IEZhbHNlCiAgICAKICAgIElmIE5ld1NoZWV0IDw+ICIiIFRoZW4KICAgICAgICAnMS8xMy8wNTogQUggSUNFIDczMzU2MTAwMCBOZWVkIHRvIG1ha2Ugc3VyZSBOZXdTaGVldCBpcyBsZXNzIHRoZW4gMjkgY2hhcmFjdGVycyBzaW5jZSB0aGUgbmFtZSBoYXMgX0ggYXBwZW5kZWQgdG8gaXQgYW5kIHRoZSBtYXggY2hhcmFjdGVycyBmb3IgYSB3b3Jrc2hlZXQgbmFtZSBpcyAzMQogICAgICAgIElmIExlbihOZXdTaGVldCkgPiAyOSBUaGVuCiAgICAgICAgICAgJ3Nob3cgZXJyb3IKICAgICAgICAgICBpTXNnID0gTXNnQm94KEdldE1zZyhMYW5nLCA5MSwgMTMpLCB2YkV4Y2xhbWF0aW9uKQogICAgICAgICAgICdleGl0CiAgICAgICAgICAgRXhpdCBTdWIKICAgICAgICBFbmQgSWYKCiAgICAgICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoIlRlbXBsYXRlIikuQ29weSBhZnRlcjo9U2hlZXRzKCJUZW1wbGF0ZV9IIikKICAgICAgICBBY3RpdmVTaGVldC5OYW1lID0gTmV3U2hlZXQKICAgICAgICBXb3JrYm9va3MoQ3VyV3JrQm9vaykuV29ya3NoZWV0cygiVGVtcGxhdGVfSCIpLkNvcHkgYWZ0ZXI6PVNoZWV0cyhOZXdTaGVldCkKICAgICAgICBBY3RpdmVTaGVldC5OYW1lID0gTmV3U2hlZXQgJiAiX0giCiAgICAgICAgV29ya3NoZWV0cyhOZXdTaGVldCkuQWN0aXZhdGUKICAgIEVsc2UKICAgICAgICBHb3RvQ29udHJvbFBhZ2UKICAgIEVuZCBJZgogICAgCiAgICBXb3JrYm9va3MoQ3VyV3JrQm9vaykuUHJvdGVjdApFbmQgU3ViCgoKCic9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CicgU2VsZWN0IGEgSm91cm5hbCBTaGVldCBhbmQgYWN0aXZhdGUgaXQKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KUHVibGljIFN1YiBKcm5sU2hlZXRfU2VsZWN0KCkKRGltIFNoZWV0TmFtZSBBcyBTdHJpbmcKRGltIFNoZWV0TGlzdCgpIEFzIFZhcmlhbnQKRGltIGkgQXMgSW50ZWdlcgogICAgCiAgICAnR2V0IHRoZSBudW1iZXIgb2Ygc2hlZXRzCiAgICBHZXRTaGVldAogICAgU2hlZXROYW1lID0gIiIKICAgIElmIExpc3RBcnJheShTaGVldExpc3QpIFRoZW4KICAgICAgICBXaXRoIEZvcm1fU2VsZWN0U2hlZXQKICAgICAgICAgICAgLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDIyKQogICAgICAgICAgICAuQnV0dG9uT0suQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCAxMiwgMSkKICAgICAgICAgICAgLkxpc3RCb3gxLkNsZWFyCiAgICAgICAgICAgIC5MaXN0Qm94MS5MaXN0ID0gU2hlZXRMaXN0CiAgICAgICAgICAgIC5IZWlnaHQgPSAuSGVpZ2h0IC0gLlRhcmdldC5IZWlnaHQgLSAuT25saW5lRnJhbWUuSGVpZ2h0IC0gMTUKICAgICAgICAKICAgICAgICAgICAgRm9ybV9TZWxlY3RTaGVldC5TaG93CiAgICAgICAgICAgIAogICAgICAgICAgICBJZiAuTGlzdEJveDEuTGlzdEluZGV4ID49IDAgVGhlbgogICAgICAgICAgICAgICAgU2hlZXROYW1lID0gLkxpc3RCb3gxLkxpc3QoLkxpc3RCb3gxLkxpc3RJbmRleCkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIFdpdGgKICAgICAgICAKICAgICAgICBVbmxvYWQgRm9ybV9TZWxlY3RTaGVldAogICAgRWxzZQogICAgICAgICdNc2c6ICJObyBqb3VybmFsIGVudHJ5IHNoZWV0cyBleGlzdC4gIFByZXNzIE5ldyB0byBpbnNlcnQgYSBuZXcgc2hlZXQuIgogICAgICAgIFRpdGxlID0gR2V0TXNnKExhbmcsIDkwLCAxKQogICAgICAgIE1lc3NhZ2UgPSBHZXRNc2coTGFuZywgOTQsIDYpCiAgICAgICAgaSA9IE1zZ0JveChNZXNzYWdlLCA2NCwgVGl0bGUpCiAgICBFbmQgSWYKICAgIAogICAgSWYgU2hlZXROYW1lID0gIiIgVGhlbgogICAgICAgIEdvdG9Db250cm9sUGFnZQogICAgRWxzZQogICAgICAgIFdvcmtib29rcyhDdXJXcmtCb29rKS5Xb3Jrc2hlZXRzKFNoZWV0TmFtZSkuQWN0aXZhdGUKICAgIEVuZCBJZgpFbmQgU3ViCgoKCgonPT09PT09PT09PT09PT09PT09PT09PT0KJyBEZWxldGUgSm91cm5hbCBTaGVldHMKJz09PT09PT09PT09PT09PT09PT09PT09ClN1YiBKcm5sU2hlZXRfRGVsZXRlKCkKRGltIExpc3QxIEFzIFZhcmlhbnQKRGltIFNlbFNoZWV0LCBTZWxIZHJTaGVldCBBcyBTdHJpbmcKRGltIFNoZWV0TGlzdCgpIEFzIFZhcmlhbnQKRGltIGkgQXMgSW50ZWdlcgogICAgCiAgICBHZXRTaGVldAogICAgJ0FwcGxpY2F0aW9uLlNjcmVlblVwZGF0aW5nID0gRmFsc2UKICAgIFdvcmtib29rcyhDdXJXcmtCb29rKS5VbnByb3RlY3QKICAgIAogICAgSWYgTGlzdEFycmF5KFNoZWV0TGlzdCkgVGhlbgogICAgICAgIFdpdGggRm9ybV9TZWxlY3RTaGVldAogICAgICAgICAgICAuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgMjMpCiAgICAgICAgICAgIC5CdXR0b25PSy5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQxLCA1KQogICAgICAgICAgICAuQnV0dG9uQWxsLlZpc2libGUgPSBUcnVlCiAgICAgICAgICAgIC5CdXR0b25Ob25lLlZpc2libGUgPSBUcnVlCiAgICAgICAgICAgIC5MaXN0Qm94MS5DbGVhcgogICAgICAgICAgICAuTGlzdEJveDEuTGlzdCA9IFNoZWV0TGlzdAogICAgICAgICAgICAuSGVpZ2h0ID0gLkhlaWdodCAtIC5UYXJnZXQuSGVpZ2h0IC0gLk9ubGluZUZyYW1lLkhlaWdodCAtIDE1CiAgICAgICAgRW5kIFdpdGgKICAgIAogICAgICAgIEZvcm1fU2VsZWN0U2hlZXQuU2hvdwogICAgICAgIAogICAgICAgIFNldCBMaXN0MSA9IEZvcm1fU2VsZWN0U2hlZXQuTGlzdEJveDEKICAgICAgICBGb3IgaSA9IDEgVG8gTGlzdDEuTGlzdENvdW50CiAgICAgICAgICAgIElmIExpc3QxLlNlbGVjdGVkKGkgLSAxKSBUaGVuCiAgICAgICAgICAgICAgICBTZWxTaGVldCA9IExpc3QxLkxpc3QoaSAtIDEpCiAgICAgICAgICAgICAgICBTZWxIZHJTaGVldCA9IFNlbFNoZWV0ICYgIl9IIgogICAgICAgICAgICAgICAgQXBwbGljYXRpb24uRGlzcGxheUFsZXJ0cyA9IEZhbHNlCiAgICAgICAgICAgICAgICBXb3JrYm9va3MoQ3VyV3JrQm9vaykuV29ya3NoZWV0cyhTZWxTaGVldCkuRGVsZXRlCiAgICAgICAgICAgICAgICBXb3JrYm9va3MoQ3VyV3JrQm9vaykuV29ya3NoZWV0cyhTZWxIZHJTaGVldCkuRGVsZXRlCiAgICAgICAgICAgICAgICBBcHBsaWNhdGlvbi5EaXNwbGF5QWxlcnRzID0gVHJ1ZQogICAgICAgICAgICBFbmQgSWYKICAgICAgICBOZXh0CiAgICAgICAgVW5sb2FkIEZvcm1fU2VsZWN0U2hlZXQKICAgIEVsc2UKICAgICAgICAnTXNnOiAiTm8gam91cm5hbCBlbnRyeSBzaGVldHMgZXhpc3QgZm9yIGRlbGV0aW9uLiIKICAgICAgICBUaXRsZSA9IEdldE1zZyhMYW5nLCA5MCwgMSkKICAgICAgICBNZXNzYWdlID0gR2V0TXNnKExhbmcsIDk0LCA3KQogICAgICAgIGkgPSBNc2dCb3goTWVzc2FnZSwgNDgsIFRpdGxlKQogICAgRW5kIElmCiAgICAKICAgIEdvdG9Db250cm9sUGFnZQpFbmQgU3ViCgoKU3ViIEpybmxTaGVldF9Db3B5KCkKRGltIFNlbFNoZWV0LCBTZWxIZHJTaGVldCwgTmFtZUVycm9yIEFzIFN0cmluZwpEaW0gTmV3U2hlZXQsIE5ld0hkclNoZWV0IEFzIFN0cmluZwpEaW0gU2hlZXRMaXN0KCksIFdya1NoZWV0IEFzIFZhcmlhbnQKRGltIGksIFNlcU51bSwgTmV3U2VxLCBOZXdTZXExLCB0U2VxLCBqaWQsIEJlZ2luUm93LCBFbmRSb3cgQXMgSW50ZWdlcgpEaW0gUiBBcyBSYW5nZQpEaW0gRmlyc3RzZXEgQXMgQm9vbGVhbgoKICAgIAogICAgJ0dldCB0aGUgbnVtYmVyIG9mIHNoZWV0cwogICAgR2V0U2hlZXQKICAgIE5ld1NoZWV0ID0gIiIKICAgIElmIExpc3RBcnJheShTaGVldExpc3QpIFRoZW4KICAgICAgICBXaXRoIEZvcm1fU2VsZWN0U2hlZXQKICAgICAgICAgICAgLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDI0KQogICAgICAgICAgICAuQnV0dG9uT0suQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgNikKICAgICAgICAgICAgLkxhYmVsMi5WaXNpYmxlID0gVHJ1ZQogICAgICAgICAgICAuVGFyZ2V0LlZpc2libGUgPSBUcnVlCiAgICAgICAgICAgIC5MYWJlbDIuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgMjkpCiAgICAgICAgICAgIC5MaXN0Qm94MS5DbGVhcgogICAgICAgICAgICAuTGlzdEJveDEuTGlzdCA9IFNoZWV0TGlzdAogICAgICAgICAgICAuSGVpZ2h0ID0gLkhlaWdodCAtIC5PbmxpbmVGcmFtZS5IZWlnaHQgLSA1CiAgICAgICAgRW5kIFdpdGgKICAgICAgICAKICAgICAgICBGb3JtX1NlbGVjdFNoZWV0LlNob3cKICAgICAgICAKICAgICAgICBJZiBGb3JtX1NlbGVjdFNoZWV0Lkxpc3RCb3gxLkxpc3RJbmRleCA+PSAwIFRoZW4KICAgICAgICAgICAgU2VsU2hlZXQgPSBGb3JtX1NlbGVjdFNoZWV0Lkxpc3RCb3gxLkxpc3QoRm9ybV9TZWxlY3RTaGVldC5MaXN0Qm94MS5MaXN0SW5kZXgpCiAgICAgICAgICAgIFNlbEhkclNoZWV0ID0gU2VsU2hlZXQgJiAiX0giCiAgICAgICAgICAgIE5ld1NoZWV0ID0gRm9ybV9TZWxlY3RTaGVldC5UYXJnZXQKCiAgICAgICAgICAgIE5hbWVFcnJvciA9ICJOIgogICAgICAgICAgICBGb3IgRWFjaCBXcmtTaGVldCBJbiBXb3JrYm9va3MoQ3VyV3JrQm9vaykuV29ya3NoZWV0cwogICAgICAgICAgICAgICAgSWYgU3RyQ29tcChOZXdTaGVldCwgV3JrU2hlZXQuTmFtZSwgMSkgPSAwIFRoZW4KICAgICAgICAgICAgICAgICAgICAnbmFtZSBhbHJlYWR5IGV4aXN0cwogICAgICAgICAgICAgICAgICAgIE5hbWVFcnJvciA9ICJZIgogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgIE5leHQKICAgICAgICAgICAgSWYgTmFtZUVycm9yID0gIk4iIFRoZW4KICAgICAgICAgICAgICAgIEFwcGxpY2F0aW9uLlNjcmVlblVwZGF0aW5nID0gRmFsc2UKICAgICAgICAgICAgICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBGYWxzZQogICAgICAgICAgICAgICAgTmV3SGRyU2hlZXQgPSBOZXdTaGVldCAmICJfSCIKICAgICAgICAgICAgICAgIFdvcmtib29rcyhDdXJXcmtCb29rKS5VbnByb3RlY3QKICAgICAgICAgICAgICAgIFdvcmtib29rcyhDdXJXcmtCb29rKS5Xb3Jrc2hlZXRzKFNlbFNoZWV0KS5Db3B5IGFmdGVyOj1Xb3JrYm9va3MoQ3VyV3JrQm9vaykuU2hlZXRzKCJUZW1wbGF0ZV9IIikKICAgICAgICAgICAgICAgIEFjdGl2ZVNoZWV0Lk5hbWUgPSBOZXdTaGVldAogICAgICAgICAgICAgICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoU2VsSGRyU2hlZXQpLkNvcHkgYWZ0ZXI6PVdvcmtib29rcyhDdXJXcmtCb29rKS5TaGVldHMoTmV3U2hlZXQpCiAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5OYW1lID0gTmV3SGRyU2hlZXQKICAgICAgICAgICAgICAgIFdvcmtzaGVldHMoTmV3SGRyU2hlZXQpLlVucHJvdGVjdAogICAgICAgICAgICAgICAgV29ya3NoZWV0cyhOZXdTaGVldCkuVW5wcm90ZWN0CiAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICdDaGFuZ2UgU3lzdGVtIElEcwogICAgICAgICAgICAgICAgV29ya3NoZWV0cyhOZXdIZHJTaGVldCkuQWN0aXZhdGUKICAgICAgICAgICAgICAgIGkgPSAzCiAgICAgICAgICAgICAgICBTZXFOdW0gPSBWYWwoQ2VsbHMoaSwgSGRyQ3RybENPTCArIDEpLlZhbHVlKQogICAgICAgICAgICAgICAgV2hpbGUgU2VxTnVtID4gMAogICAgICAgICAgICAgICAgICAgIE5ld1NlcSA9IFZhbChPcHRpb25zKCJOZXh0U3lzdGVtSUQiKSkKICAgICAgICAgICAgICAgICAgICBJZiBOZXdTZXEgPSA5OTk5IFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiTmV4dFN5c3RlbUlEIiwgMTAwMSkKICAgICAgICAgICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICAgICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIk5leHRTeXN0ZW1JRCIsIE5ld1NlcSArIDEpCiAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgQ2VsbHMoaSwgSGRyQ3RybENPTCArIDEpLlZhbHVlID0gTmV3U2VxCiAgICAgICAgICAgICAgICAgICAgSWYgRmlyc3RzZXEgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgICAgICAgICAgTmV3U2VxMSA9IE5ld1NlcQogICAgICAgICAgICAgICAgICAgIEZpcnN0c2VxID0gVHJ1ZQogICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgIENlbGxzKGksIExhc3RIZHJDT0wgLSAzKS5WYWx1ZSA9ICIiICAgICAgJ0RvY1NlcU51bQogICAgICAgICAgICAgICAgICAgIENlbGxzKGksIEhkckN0cmxDT0wgKyAzKS5WYWx1ZSA9ICJORVhUIgogICAgICAgICAgICAgICAgICAgIFdvcmtzaGVldHMoTmV3U2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgV2l0aCBDZWxscygyLCAyKS5FbnRpcmVDb2x1bW4KICAgICAgICAgICAgICAgICAgICAgICAgU2V0IFIgPSAuRmluZChTZXFOdW0sICwgLCB4bFdob2xlLCB4bEJ5Um93cykKICAgICAgICAgICAgICAgICAgICAgICAgSWYgTm90IFIgSXMgTm90aGluZyBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAnbGluZXMgZXhpc3QgZm9yIHRoZSBoZWFkZXIKICAgICAgICAgICAgICAgICAgICAgICAgICAgIEJlZ2luUm93ID0gUi5Sb3cKICAgICAgICAgICAgICAgICAgICAgICAgICAgIERvCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdFNlcSA9IENlbGxzKFIuUm93LCAyKS5WYWx1ZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmIHRTZXEgPSBTZXFOdW0gVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmRSb3cgPSBSLlJvdwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBTZXQgUiA9IC5GaW5kTmV4dChSKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGppZCA9IENlbGxzKFIuUm93LCA1KS5WYWx1ZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgamlkIDw+ICIiIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDZWxscyhSLlJvdywgNSkgPSAiTkVYVCIKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBMb29wIFdoaWxlIE5vdCBSIElzIE5vdGhpbmcgQW5kIHRTZXEgPSBTZXFOdW0gQW5kIFIuUm93IDw+IEJlZ2luUm93CiAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgUmFuZ2UoQ2VsbHMoQmVnaW5Sb3csIDIpLCBDZWxscyhFbmRSb3csIDIpKS5WYWx1ZSA9IE5ld1NlcQogICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBFbmQgV2l0aAoKICAgICAgICAgICAgICAgICAgICBXb3Jrc2hlZXRzKE5ld0hkclNoZWV0KS5BY3RpdmF0ZQogICAgICAgICAgICAgICAgICAgIGkgPSBpICsgMQogICAgICAgICAgICAgICAgICAgIFNlcU51bSA9IFZhbChDZWxscyhpLCBIZHJDdHJsQ09MICsgMSkuVmFsdWUpCiAgICAgICAgICAgICAgICBXZW5kCiAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgIFdvcmtzaGVldHMoTmV3U2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgICAgICAnUmFuZ2UoQ2VsbHMoNCwgOCksIENlbGxzKDQsIDEyKSkuVmFsdWUgPSBOdWxsCiAgICAgICAgICAgICAgICBDZWxscyg0LCA4KS5WYWx1ZSA9IE5ld1NlcTEKICAgICAgICAgICAgICAgIENlbGxzKDQsIDEwKS5WYWx1ZSA9ICJORVhUIgogICAgICAgICAgICAgICAgQ2VsbHMoNCwgMikuU2VsZWN0CiAgICAgICAgICAgICAgICBXb3Jrc2hlZXRzKE5ld1NoZWV0KS5Qcm90ZWN0CiAgICAgICAgICAgICAgICBXb3JrYm9va3MoQ3VyV3JrQm9vaykuUHJvdGVjdAogICAgICAgICAgICAgICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBUcnVlCiAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICdNc2c6ICJTaGVldCBuYW1lIGFscmVhZHkgZXhpc3RzLiIKICAgICAgICAgICAgICAgIFRpdGxlID0gR2V0TXNnKExhbmcsIDkwLCAxKQogICAgICAgICAgICAgICAgTWVzc2FnZSA9IEdldE1zZyhMYW5nLCA5NCwgNCkKICAgICAgICAgICAgICAgIGkgPSBNc2dCb3goTWVzc2FnZSwgNDgsIFRpdGxlKQogICAgICAgICAgICAgICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoIkNvbnRyb2wiKS5BY3RpdmF0ZQogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgQXBwbGljYXRpb24uRGlzcGxheUFsZXJ0cyA9IFRydWUKICAgICAgICBFbmQgSWYKICAgICAgICBVbmxvYWQgRm9ybV9TZWxlY3RTaGVldAogICAgRWxzZQogICAgICAgICdNc2c6ICJObyBqb3VybmFsIGVudHJ5IHNoZWV0cyBleGlzdC4gIFByZXNzIE5ldyB0byBpbnNlcnQgYSBuZXcgc2hlZXQuIgogICAgICAgIFRpdGxlID0gR2V0TXNnKExhbmcsIDkwLCAxKQogICAgICAgIE1lc3NhZ2UgPSBHZXRNc2coTGFuZywgOTQsIDYpCiAgICAgICAgaSA9IE1zZ0JveChNZXNzYWdlLCA2NCwgVGl0bGUpCiAgICBFbmQgSWYKICAgIAogICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLlByb3RlY3QKICAgICdDaGFuZ2UgdGhlIEltcG9ydCBTdGF0dXMgYXV0b21hdGljYWxseQogICAgQXV0b19DaGFuZ2VfSW1wb3J0U3RhdHVzCkVuZCBTdWIKCgoKCgpTdWIgRm9ybWF0Sm91cm5hbChCeVZhbCBTZWxTaGVldCkKRGltIEJvdExpbmUgQXMgTG9uZwpEaW0gQ2VsIEFzIFZhcmlhbnQKRGltIExhc3RDb2wgQXMgSW50ZWdlcgpEaW0gU2tpcENvbCBBcyBJbnRlZ2VyCkRpbSBpUm93IEFzIEludGVnZXIKICAgIAogICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoU2VsU2hlZXQpLlVucHJvdGVjdAogICAgV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoU2VsU2hlZXQpLkFjdGl2YXRlCiAgICBCb3RMaW5lID0gUmFuZ2UoIkJvdHRvbUxpbmUiKS5Sb3cKICAgIEJvdExpbmUgPSBCb3RMaW5lIC0gMQogICAgRmlyc3RKTGluZSA9IEFjdGl2ZVNoZWV0LlJhbmdlKCJJbnNlcnRMaW5lIikuUm93CiAgICBGaXJzdEpMaW5lID0gRmlyc3RKTGluZSArIDEKICAgIExhc3RDb2wgPSBBY3RpdmVTaGVldC5SYW5nZSgiTGFzdExpbmVDb2wiKS5Db2x1bW4KICAgIFNraXBDb2wgPSBBY3RpdmVTaGVldC5SYW5nZSgiRGVzY3JDb2wiKS5Db2x1bW4KCiAgICBBY3RpdmVTaGVldC5SYW5nZShDZWxscyhGaXJzdEpMaW5lLCA5KSwgQ2VsbHMoQm90TGluZSwgTGFzdENvbCkpLlNlbGVjdAogICAgRm9yIEVhY2ggQ2VsIEluIFNlbGVjdGlvbi5DZWxscwogICAgICAgIElmIENlbC5Db2x1bW4gPD4gU2tpcENvbCBUaGVuCiAgICAgICAgICAgICcgQlVHIDE0MTUwNTc1CiAgICAgICAgICAgIElmIENlbC5WYWx1ZSA8PiAiIiBUaGVuCiAgICAgICAgICAgICAgIENlbC5WYWx1ZSA9IFVDYXNlKENlbC5WYWx1ZSkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICAgICAgSWYgTm90IElzTnVtZXJpYyhDZWwuVmFsdWUpIFRoZW4KICAgICAgICAgICAgQ2VsLlZhbHVlID0gVHJpbShDZWwuVmFsdWUpCiAgICAgICAgICAgIElmIENlbC5WYWx1ZSA9ICIiIFRoZW4KICAgICAgICAgICAgICAgIENlbC5WYWx1ZSA9IEVtcHR5CiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgCiAgICAnRm9yIGlSb3cgPSAxMiBUbyBCb3RMaW5lCiAgICAnICAgIEFjdGl2ZVNoZWV0LkNlbGxzKGlSb3csIDkpLlZhbHVlID0gVUNhc2UoQWN0aXZlU2hlZXQuQ2VsbHMoaVJvdywgOSkuVmFsdWUpCiAgICAnICAgIEFjdGl2ZVNoZWV0LkNlbGxzKGlSb3csIDEwKS5WYWx1ZSA9IFVDYXNlKEFjdGl2ZVNoZWV0LkNlbGxzKGlSb3csIDEwKS5WYWx1ZSkKICAgICcgICAgQWN0aXZlU2hlZXQuQ2VsbHMoaVJvdywgMTQpLlZhbHVlID0gVUNhc2UoQWN0aXZlU2hlZXQuQ2VsbHMoaVJvdywgMTQpLlZhbHVlKQogICAgJ05leHQKICAgIAogICAgQWN0aXZlU2hlZXQuUmFuZ2UoQ2VsbHMoMTIsIDI1KSwgQ2VsbHMoQm90TGluZSwgNDYpKS5TZWxlY3QKICAgIEZvciBFYWNoIENlbCBJbiBTZWxlY3Rpb24uQ2VsbHMKICAgICAgICBJZiBDZWwuQ29sdW1uIDw+IFNraXBDb2wgVGhlbgogICAgICAgICAgICBJZiBDZWwuVmFsdWUgPD4gIiIgVGhlbgogICAgICAgICAgICAgICBDZWwuVmFsdWUgPSBVQ2FzZShDZWwuVmFsdWUpCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgCkVuZCBTdWIKCgoKRnVuY3Rpb24gTGlzdEFycmF5KFNoZWV0TGlzdCgpIEFzIFZhcmlhbnQpIEFzIEJvb2xlYW4KRGltIFNoZWV0Q291bnQgQXMgSW50ZWdlcgpEaW0gQXJyYXlTaXplIEFzIEludGVnZXIKRGltIENvdW50ZXIgQXMgSW50ZWdlcgpEaW0gQ3VyQ291bnQgQXMgSW50ZWdlcgogICAgCiAgICAnR2V0IHRoZSBudW1iZXIgb2Ygc2hlZXRzCiAgICBTaGVldENvdW50ID0gQWN0aXZlV29ya2Jvb2suV29ya3NoZWV0cy5Db3VudAogICAgSWYgU2hlZXRDb3VudCA+IFNraXBzaGVldHMgVGhlbgogICAgICAgICdOb3cgc2V0IHRoZSBhcnJheSBzaXplLiAgVGhlIG51bWJlciB3ZSdyZSBpbnRlcmVzdGVkIGluIGlzIHRoZSB0b3RhbCBsZXNzIFNraXBzaGVldHMgKHNldCBpbiBHZXRTaGVldCkuCiAgICAgICAgJ1RoZW4gZGl2aWRlIHRoaXMgbnVtYmVyIGJ5IDIgYmVjYXVzZSB3ZSBkb24ndCB3YW50IHRvIGluY2x1ZGUgdGhlIGhlYWRlciBzaGVldHMgaW4gdGhlIGxpc3Rib3guCiAgICAgICAgQXJyYXlTaXplID0gKFNoZWV0Q291bnQgLSBTa2lwc2hlZXRzKSAvIDIKICAgICAgICBSZURpbSBTaGVldExpc3QoQXJyYXlTaXplKSBBcyBWYXJpYW50CiAgICAgICAgJ0NvdW50ZXIgPSBudW1iZXIgb2Ygd29ya3NoZWV0cyB0byBza2lwICsgbnVtYmVyIG9mIGRpYWxvZ3NoZWV0cyB0byBza2lwLgogICAgICAgIENvdW50ZXIgPSBTa2lwc2hlZXRzICsgU2tpcERsZ3MKICAgICAgICBDdXJDb3VudCA9IDEKICAgICAgICBEbwogICAgICAgICAgICBTaGVldExpc3QoQ3VyQ291bnQpID0gV29ya2Jvb2tzKEN1cldya0Jvb2spLldvcmtzaGVldHMoQ291bnRlcikuTmFtZQogICAgICAgICAgICAnc2tpcCB0aGUgbmV4dCBzaGVldCBiZWNhdXNlIGl0J3MgdGhlIGFzc29jaWF0ZWQgaGVhZGVyIHNoZWV0CiAgICAgICAgICAgIENvdW50ZXIgPSBDb3VudGVyICsgMgogICAgICAgICAgICBDdXJDb3VudCA9IEN1ckNvdW50ICsgMQogICAgICAgIExvb3AgVW50aWwgQ291bnRlciA+PSBTaGVldENvdW50CiAgICAgICAgTGlzdEFycmF5ID0gVHJ1ZQogICAgRWxzZQogICAgICAgIExpc3RBcnJheSA9IEZhbHNlCiAgICBFbmQgSWYKRW5kIEZ1bmN0aW9uCgoKUHVibGljIFN1YiBTZXRfT3B0aW9ucygpCkRpbSBMYW5nQXJyYXkoKSBBcyBWYXJpYW50CkRpbSBpIEFzIEludGVnZXIKRGltIHRtcCBBcyBTdHJpbmcKCiAgICBBcHBsaWNhdGlvbi5TY3JlZW5VcGRhdGluZyA9IEZhbHNlCiAgICBHZXRTaGVldAogICAgCiAgICAnU2V0IExzdEJveCA9IERsZ3NoZWV0Lkxpc3RCb3hlcygiTGFuZ1ByZWZMaXN0IikKICAgICdXaXRoIERsZ3NoZWV0Lkxpc3RCb3hlcygiTGFuZ1ByZWZMaXN0IikKICAgICcgICAgLkxpc3QgPSBBcnJheSgiRW5nbGlzaCIpCiAgICAnICAgIC5NdWx0aVNlbGVjdCA9IDEKICAgICdFbmQgV2l0aAoKICAgICdCdWlsZF9MYW5nQXJyYXkgKGhhaGEpCiAgICBSZURpbSBMYW5nQXJyYXkoMSkKICAgIExhbmdBcnJheSgxKSA9ICJFbmdsaXNoIgogICAgCiAgICBXaXRoIEZvcm1fT3B0aW9ucwogICAgICAgIC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCAxKQogICAgICAgIC5IZWFkZXJEZWZhdWx0c19Cb3guQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMikKICAgICAgICAuR2VuZXJhbF9Cb3guQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMykKICAgICAgICAuTWVzc2FnZUxvZ19Cb3guQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgNCkKICAgICAgICAuRG9jU2VxX0JveC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCA1KQogICAgICAgIC5JbXBvcnRDb250cm9sX0JveC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCA2KQogICAgICAgIC5JbXBvcnRTdGF0dXNfQm94LkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDcpCiAgICAgICAgLkJ1dHRvbk9LLkNhcHRpb24gPSBHZXRNc2coTGFuZywgMTIsIDEpCiAgICAgICAgLkJ1dHRvbkNhbmNlbC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDEyLCAyKQogICAgICAgIAogICAgICAgIC5MYWJlbDExLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDExKQogICAgICAgIC5MYWJlbDEyLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDEyKQogICAgICAgIC5MYWJlbDEzLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDEzKQogICAgICAgIC5MYWJlbDE0LkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDE0KQogICAgICAgIC5MYWJlbDE1LkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDE1KQogICAgICAgIC5NdWx0aUJvb2tfRW5hYmxlLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDE2KQogICAgICAgIC5EZWZfQXV0b0dlbi5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCAxNykKICAgICAgICAuTGFiZWwyMS5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCAxOCkKICAgICAgICAuTG9nX0Vycm9yc09ubHkuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMTkpCiAgICAgICAgLkxvZ19BbGxNZXNzYWdlLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDIsIDIwKQogICAgICAgIC5EaXNwbGF5X01lc2cuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMjEpCiAgICAgICAgLkRvY1NlcV9FbmFibGUuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMjIpCiAgICAgICAgLkxhYmVsMzEuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMjMpCiAgICAgICAgLkxhYmVsNDEuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMjQpCiAgICAgICAgLkxhYmVsNDIuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMTUpCiAgICAgICAgLkNoYW5nZVN0YXR1c19ZRVMuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MiwgMjUpCiAgICAgICAgLkNoYW5nZVN0YXR1c19OTy5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCAyNikKICAgICAgICAuVW5pY29kZS5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQyLCAyNykKICAgICAgICAKICAgICAgICAuRGVmX0J1c1VuaXQuVmFsdWUgPSBPcHRpb25zKCJEZWZfQnVzVW5pdCIpCiAgICAgICAgLkRlZl9EYXRlLlZhbHVlID0gT3B0aW9ucygiRGVmX0RhdGUiKQogICAgICAgIC5EZWZfTGVkR3JwLlZhbHVlID0gT3B0aW9ucygiRGVmX0xlZEdycCIpCiAgICAgICAgLkRlZl9Tb3VyY2UuVmFsdWUgPSBPcHRpb25zKCJEZWZfU291cmNlIikKICAgICAgICAuRGVmX1VzZXJJRC5WYWx1ZSA9IE9wdGlvbnMoIkRlZl9Vc2VySUQiKQogICAgICAgIC5NdWx0aUJvb2tfRW5hYmxlID0gSUlmKE9wdGlvbnMoIk11bHRpYm9vayIpID0gIlkiLCBUcnVlLCBGYWxzZSkKICAgICAgICAuRGVmX0F1dG9HZW4gPSBJSWYoT3B0aW9ucygiRGVmX0F1dG9HZW4iKSA9ICJZIiwgVHJ1ZSwgRmFsc2UpCiAgICAgICAgLlVuaWNvZGUgPSBJSWYoT3B0aW9ucygiVW5pY29kZSIpID0gIlkiLCBUcnVlLCBGYWxzZSkKICAgICAgICAuRGlzcGxheV9NZXNnID0gSUlmKE9wdGlvbnMoIkRpc3BsYXlNZXNzYWdlIikgPSAiWSIsIFRydWUsIEZhbHNlKQogICAgICAgIC5Eb2NTZXFfRW5hYmxlID0gSUlmKE9wdGlvbnMoIkRvY1NlcSIpID0gIlkiLCBUcnVlLCBGYWxzZSkKICAgICAgICAuRGVmX0RvY1R5cGUgPSBPcHRpb25zKCJEZWZfRG9jVHlwZSIpCiAgICAgICAgLkltcG9ydF9VUkwgPSBPcHRpb25zKCJJbXBvcnRfVVJMIikKICAgICAgICAuSW1wb3J0X1VzZXJJRCA9IE9wdGlvbnMoIkltcG9ydF9Vc2VySUQiKQogICAgICAgIC5EdXBsaWNhdGVPcHRpb24gPSBJSWYoT3B0aW9ucygiRHVwbGljYXRlT3B0aW9uIikgPSAiUyIsIFRydWUsIEZhbHNlKQogICAgICAgIC5FcnJvck9wdGlvbiA9IElJZihPcHRpb25zKCJFcnJvck9wdGlvbiIpID0gIlMiLCBUcnVlLCBGYWxzZSkKICAgICAgICAuRGVjUG9zaXRpb24gPSBJSWYoT3B0aW9ucygiRGVjUG9zaXRpb24iKSA9ICJZIiwgVHJ1ZSwgRmFsc2UpCiAgICAgICAgCiAgICAgICAgSWYgT3B0aW9ucygiTG9nTWVzc2FnZSIpID0gIkUiIFRoZW4KICAgICAgICAgICAgLkxvZ19FcnJvcnNPbmx5ID0gVHJ1ZQogICAgICAgIEVsc2UKICAgICAgICAgICAgLkxvZ19BbGxNZXNzYWdlID0gVHJ1ZQogICAgICAgIEVuZCBJZgogICAgICAgIElmIE9wdGlvbnMoIkNoYW5nZVN0YXR1cyIpID0gIkMiIFRoZW4KICAgICAgICAgICAgLkNoYW5nZVN0YXR1c19ZRVMgPSBUcnVlCiAgICAgICAgRWxzZQogICAgICAgICAgICAuQ2hhbmdlU3RhdHVzX05PID0gVHJ1ZQogICAgICAgIEVuZCBJZgogICAgICAgIAogICAgICAgIC5MYW5nTGlzdC5MaXN0ID0gTGFuZ0FycmF5CiAgICAgICAgLkxhbmdMaXN0Lk11bHRpU2VsZWN0ID0gZm1NdWx0aVNlbGVjdFNpbmdsZQogICAgICAgIEZvciBpID0gMSBUbyAuTGFuZ0xpc3QuTGlzdENvdW50CiAgICAgICAgICAgIElmIC5MYW5nTGlzdC5MaXN0KGkgLSAxKSA9IE9wdGlvbnMoIkxhbmd1YWdlIikgVGhlbgogICAgICAgICAgICAgICAgLkxhbmdMaXN0LlNlbGVjdGVkKGkgLSAxKSA9IFRydWUKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgTmV4dAogICAgCiAgICAgICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBUcnVlCiAgICAgICAgLlNob3cKICAgICAgICBBcHBsaWNhdGlvbi5TY3JlZW5VcGRhdGluZyA9IEZhbHNlCiAgICAgICAgCiAgICAgICAgSWYgUmlnaHQoLkltcG9ydF9VUkwsIDEpIDw+ICIvIiBUaGVuCiAgICAgICAgICAgIC5JbXBvcnRfVVJMLlZhbHVlID0gLkltcG9ydF9VUkwuVmFsdWUgJiAiLyIKICAgICAgICBFbmQgSWYKICAgICAgICAKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEZWZfQnVzVW5pdCIsIC5EZWZfQnVzVW5pdC5WYWx1ZSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEZWZfRGF0ZSIsIC5EZWZfRGF0ZS5WYWx1ZSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEZWZfTGVkR3JwIiwgLkRlZl9MZWRHcnAuVmFsdWUpCiAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiRGVmX1NvdXJjZSIsIC5EZWZfU291cmNlLlZhbHVlKQogICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIkRlZl9Vc2VySUQiLCAuRGVmX1VzZXJJRC5WYWx1ZSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJNdWx0aWJvb2siLCBJSWYoLk11bHRpQm9va19FbmFibGUsICJZIiwgIk4iKSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEZWZfQXV0b0dlbiIsIElJZiguRGVmX0F1dG9HZW4sICJZIiwgIk4iKSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJVbmljb2RlIiwgSUlmKC5Vbmljb2RlLCAiWSIsICJOIikpCiAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiTG9nTWVzc2FnZSIsIElJZiguTG9nX0Vycm9yc09ubHksICJFIiwgIkIiKSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEaXNwbGF5TWVzc2FnZSIsIElJZiguRGlzcGxheV9NZXNnLCAiWSIsICJOIikpCiAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiRG9jU2VxIiwgSUlmKC5Eb2NTZXFfRW5hYmxlLCAiWSIsICJOIikpCiAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiRGVmX0RvY1R5cGUiLCAuRGVmX0RvY1R5cGUpCiAgICAgICAgQ2FsbCBTYXZlX09wdGlvbigiSW1wb3J0X1VSTCIsIC5JbXBvcnRfVVJMKQogICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIkltcG9ydF9Vc2VySUQiLCAuSW1wb3J0X1VzZXJJRCkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJDaGFuZ2VTdGF0dXMiLCBJSWYoLkNoYW5nZVN0YXR1c19ZRVMsICJDIiwgIk4iKSkKICAgICAgICBDYWxsIFNhdmVfT3B0aW9uKCJEdXBsaWNhdGVPcHRpb24iLCBJSWYoLkR1cGxpY2F0ZU9wdGlvbiwgIlMiLCAiVSIpKQogICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIkVycm9yT3B0aW9uIiwgSUlmKC5FcnJvck9wdGlvbiwgIlMiLCAiQSIpKQogICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIkRlY1Bvc2l0aW9uIiwgSUlmKC5EZWNQb3NpdGlvbiwgIlkiLCAiTiIpKQoKICAgICAgICBJZiAuTGFuZ0xpc3QuTGlzdEluZGV4ID49IDAgVGhlbgogICAgICAgICAgICBJZiBPcHRpb25zKCJMYW5ndWFnZSIpIDw+IC5MYW5nTGlzdC5MaXN0KC5MYW5nTGlzdC5MaXN0SW5kZXgpIFRoZW4KICAgICAgICAgICAgICAgIFNldF9Ib21lcGFnZV9MYWJlbHMKICAgICAgICAgICAgICAgIENhbGwgU2F2ZV9PcHRpb24oIkxhbmd1YWdlIiwgLkxhbmdMaXN0Lkxpc3QoLkxhbmdMaXN0Lkxpc3RJbmRleCkpCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgRW5kIFdpdGgKICAgIAogICAgVW5sb2FkIEZvcm1fT3B0aW9ucwogICAgJ0lmIExzdEJveC5MaXN0SW5kZXggPD4gMCBUaGVuCiAgICAnICAgIFdpdGggRGxnc2hlZXQuRWRpdEJveGVzKCJPcHJMYW5nUHJlZiIpCiAgICAnICAgICAgICAuVGV4dCA9IExzdEJveC5MaXN0KExzdEJveC5WYWx1ZSkKICAgICcgICAgICAgIC5FbmFibGVkID0gRmFsc2UKICAgICcgICAgRW5kIFdpdGgKICAgICdFbmQgSWYKRW5kIFN1YgoKCgoKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KJyAgRW50cnkgRnVuY3Rpb24gZm9yIE9ubGluZSBhbmQgQmF0Y2ggSm91cm5hbCBJbXBvcnQKJyAgICAgSG93TWFueSA6ICBJbmRpY2F0ZXMgaG93IG1hbnkgam91cm5hbHMgc2hlZXRzIHRvIGJlIHByb2Nlc3NlZAonICAgICAgICAgICAgICAgIChTRUxFQ1RFRCwgVEhJUyBPTkUpCicgICAgIE1vZGUgICAgOiAgSW5kaWNhdGVzIE9uaW5lIGltcG9ydCAoWE1MIGxpbmspIG9yIEJhdGNoIGltcG9ydCAoZmxhdCBmaWxlKQonICAgICAgICAgICAgICAgIChJTVBPUlQsIEZJTEUpCic9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09ClB1YmxpYyBTdWIgSW1wb3J0X0pvdXJuYWxzKEhvd01hbnksIG1vZGUgQXMgU3RyaW5nKQpEaW0gU2VsU2hlZXQsIFNlbExpc3QgQXMgVmFyaWFudApEaW0gTGlzdDEgQXMgVmFyaWFudApEaW0gU3RhdHVzQmFyT3B0biBBcyBCb29sZWFuCkRpbSBTdGF0dXNCYXJUZXh0IEFzIFN0cmluZwpEaW0gQ291bnRlcjIgQXMgSW50ZWdlcgpEaW0gT3V0ZmlsZSBBcyBJbnRlZ2VyCkRpbSBJbmRleEZpbGUgQXMgSW50ZWdlcgpEaW0gU2hlZXRMaXN0KCkgQXMgVmFyaWFudApEaW0gaSBBcyBJbnRlZ2VyCkRpbSBVc3JJRCwgUHdkIEFzIFN0cmluZwpEaW0gQnl0ZTEgQXMgQnl0ZQpEaW0gdG1wU3RyLCBCYXNlRmlsZSwgRmlsZUV4dCBBcyBTdHJpbmcKRGltIHBvc0RvdCwgcG9zU2xhc2ggQXMgSW50ZWdlcgoKICAgIEdldFNoZWV0CiAgICBTdGF0dXNCYXJPcHRuID0gQXBwbGljYXRpb24uRGlzcGxheVN0YXR1c0JhcgogICAgU3RhdHVzQmFyVGV4dCA9IEFwcGxpY2F0aW9uLlN0YXR1c0JhcgogICAgCiAgICBTZWxlY3QgQ2FzZSBIb3dNYW55CiAgICBDYXNlICJUSElTIE9ORSIKICAgICAgICBTZXQgU2VsU2hlZXQgPSBBY3RpdmVTaGVldAogICAgICAgIFdpdGggRm9ybV9JbXBvcnROb3cKICAgICAgICAgICAgLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDI1KQogICAgICAgICAgICAuQnV0dG9uT0suQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCAxMiwgMSkKICAgICAgICAgICAgLkJ1dHRvbkNhbmNlbC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDEyLCAyKQogICAgICAgICAgICAuSW1wb3J0X1VSTC5DYXB0aW9uID0gT3B0aW9ucygiSW1wb3J0X1VSTCIpCiAgICAgICAgICAgIC5JbXBvcnRfVXNlcklELlZhbHVlID0gT3B0aW9ucygiSW1wb3J0X1VzZXJJRCIpCiAgICAgICAgICAgIC5MYWJlbDMuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCAxMiwgMzApICAgICAgICdVc2VySUQKICAgICAgICAgICAgLkxhYmVsNC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDEyLCAzMSkgICAgICAgJ1Bhc3N3b3JkCiAgICAgICAgRW5kIFdpdGgKICAgICAgICAKICAgICAgICBGb3JtX0ltcG9ydE5vdy5TaG93CiAgICAgICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBGYWxzZQogICAgICAgIAogICAgICAgIElmIEZvcm1fSW1wb3J0Tm93LkltcG9ydF9Vc2VySUQgPD4gIiIgVGhlbgogICAgICAgICAgICBDYWxsIEltcG9ydF9TaGVldChTZWxTaGVldC5OYW1lLCBtb2RlLCBPdXRmaWxlLCBGb3JtX0ltcG9ydE5vdy5JbXBvcnRfVXNlcklELCBGb3JtX0ltcG9ydE5vdy5JbXBvcnRfUHdkKQogICAgICAgIEVuZCBJZgogICAgICAgIFVubG9hZCBGb3JtX0ltcG9ydE5vdwogICAgICAgIFNlbFNoZWV0LkFjdGl2YXRlCiAgICAgICAgQ2VsbHMoMTEsIDgpLlNlbGVjdAogICAgICAgIAogICAgQ2FzZSAiU0VMRUNURUQiCiAgICAgICAgSWYgTGlzdEFycmF5KFNoZWV0TGlzdCkgVGhlbgogICAgICAgICAgICBXaXRoIEZvcm1fU2VsZWN0U2hlZXQKICAgICAgICAgICAgICAgIElmIG1vZGUgPSAiSU1QT1JUIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDI1KQogICAgICAgICAgICAgICAgICAgIC5CdXR0b25BbGwuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgNykKICAgICAgICAgICAgICAgICAgICAuQnV0dG9uQWxsLlZpc2libGUgPSBUcnVlCiAgICAgICAgICAgICAgICAgICAgLkJ1dHRvbk5vbmUuVmlzaWJsZSA9IFRydWUKICAgICAgICAgICAgICAgICAgICAuT25saW5lRnJhbWUuVmlzaWJsZSA9IFRydWUKICAgICAgICAgICAgICAgICAgICAuSGVpZ2h0ID0gLkhlaWdodCAtIC5UYXJnZXQuSGVpZ2h0IC0gMTAKICAgICAgICAgICAgICAgICAgICAuT25saW5lRnJhbWUuVG9wID0gLk9ubGluZUZyYW1lLlRvcCAtIC5UYXJnZXQuSGVpZ2h0IC0gMTAKICAgICAgICAgICAgICAgICAgICAuT25saW5lRnJhbWUuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCAxMiwgMjkpCiAgICAgICAgICAgICAgICAgICAgLkltcG9ydF9VUkwuQ2FwdGlvbiA9IE9wdGlvbnMoIkltcG9ydF9VUkwiKQogICAgICAgICAgICAgICAgICAgIC5JbXBvcnRfVXNlcklELlZhbHVlID0gT3B0aW9ucygiSW1wb3J0X1VzZXJJRCIpCiAgICAgICAgICAgICAgICAgICAgLkxhYmVsMy5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDEyLCAzMCkgICAgICAgJ1VzZXJJRAogICAgICAgICAgICAgICAgICAgIC5MYWJlbDQuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCAxMiwgMzEpICAgICAgICdQYXNzd29yZAogICAgICAgICAgICAgICAgRWxzZQogICAgICAgICAgICAgICAgICAgIC5DYXB0aW9uID0gR2V0TXNnKExhbmcsIDQxLCAyNikKICAgICAgICAgICAgICAgICAgICAuQnV0dG9uQWxsLkNhcHRpb24gPSBHZXRNc2coTGFuZywgNDEsIDgpCiAgICAgICAgICAgICAgICAgICAgLkJ1dHRvbkFsbC5WaXNpYmxlID0gVHJ1ZQogICAgICAgICAgICAgICAgICAgIC5CdXR0b25Ob25lLlZpc2libGUgPSBUcnVlCiAgICAgICAgICAgICAgICAgICAgLkxhYmVsMi5WaXNpYmxlID0gVHJ1ZQogICAgICAgICAgICAgICAgICAgIC5UYXJnZXQuVmlzaWJsZSA9IFRydWUKICAgICAgICAgICAgICAgICAgICAuV3JpdGVJbmRleC5WaXNpYmxlID0gVHJ1ZQogICAgICAgICAgICAgICAgICAgIC5MYWJlbDIuQ2FwdGlvbiA9IEdldE1zZyhMYW5nLCA0MSwgMjgpCiAgICAgICAgICAgICAgICAgICAgLlRhcmdldCA9IEFwcGxpY2F0aW9uLkRlZmF1bHRGaWxlUGF0aCAmICJcIiAmIE1pZChDdXJXcmtCb29rLCAxLCBJblN0cigxLCBDdXJXcmtCb29rLCAiLiIsIDEpKSAmICJ0eHQiCiAgICAgICAgICAgICAgICAgICAgLkhlaWdodCA9IC5IZWlnaHQgLSAuT25saW5lRnJhbWUuSGVpZ2h0IC0gNQogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAuTGlzdEJveDEuQ2xlYXIKICAgICAgICAgICAgICAgIC5MaXN0Qm94MS5MaXN0ID0gU2hlZXRMaXN0CiAgICAgICAgICAgIEVuZCBXaXRoCiAgICAgICAgICAgIAogICAgICAgICAgICBGb3JtX1NlbGVjdFNoZWV0LlNob3cKICAgICAgICAgICAgU2V0IExpc3QxID0gRm9ybV9TZWxlY3RTaGVldC5MaXN0Qm94MQogICAgICAgICAgICBBcHBsaWNhdGlvbi5TY3JlZW5VcGRhdGluZyA9IEZhbHNlCiAgICAgICAgICAgIAogICAgICAgICAgICBGb3IgaSA9IDEgVG8gTGlzdDEuTGlzdENvdW50CiAgICAgICAgICAgICAgICBJZiBMaXN0MS5TZWxlY3RlZChpIC0gMSkgVGhlbgogICAgICAgICAgICAgICAgICAgIElmIG1vZGUgPD4gIklNUE9SVCIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICBJZiBGb3JtX1NlbGVjdFNoZWV0LldyaXRlSW5kZXggPSBUcnVlIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmIEluZGV4RmlsZSA9IDAgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBvc0RvdCA9IEluU3RyUmV2KEZvcm1fU2VsZWN0U2hlZXQuVGFyZ2V0LCAiLiIpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcG9zU2xhc2ggPSBJblN0clJldihGb3JtX1NlbGVjdFNoZWV0LlRhcmdldCwgIlwiKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmIHBvc0RvdCA+IDAgQW5kIHBvc1NsYXNoID4gMCBBbmQgcG9zU2xhc2ggPiBwb3NEb3QgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwb3NEb3QgPSAwCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgcG9zRG90ID0gMCBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEJhc2VGaWxlID0gRm9ybV9TZWxlY3RTaGVldC5UYXJnZXQgJiAiXyIKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRmlsZUV4dCA9ICIudHh0IgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQmFzZUZpbGUgPSBMZWZ0KEZvcm1fU2VsZWN0U2hlZXQuVGFyZ2V0LCBwb3NEb3QgLSAxKSAmICJfIgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBGaWxlRXh0ID0gTWlkKEZvcm1fU2VsZWN0U2hlZXQuVGFyZ2V0LCBwb3NEb3QpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSW5kZXhGaWxlID0gRnJlZUZpbGUoKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIE9wZW4gKEJhc2VGaWxlICYgImluZGV4IiAmIEZpbGVFeHQpIEZvciBPdXRwdXQgQXMgSW5kZXhGaWxlCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2xvc2UgI091dGZpbGUKCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRtcFN0ciA9IEJhc2VGaWxlICYgTGlzdDEuTGlzdChpIC0gMSkgJiBGaWxlRXh0CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBQcmludCAjSW5kZXhGaWxlLCB0bXBTdHIKICAgICAgICAgICAgICAgICAgICAgICAgICAgIE91dGZpbGUgPSBGcmVlRmlsZSgpCgogICAgICAgICAgICAgICAgICAgICAgICAgICAgT3BlbiB0bXBTdHIgRm9yIE91dHB1dCBBcyBPdXRmaWxlCiAgICAgICAgICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmIE91dGZpbGUgPSAwIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBPdXRmaWxlID0gRnJlZUZpbGUoKQoKCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgT3BlbiBGb3JtX1NlbGVjdFNoZWV0LlRhcmdldCBGb3IgT3V0cHV0IEFzIE91dGZpbGUKICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBDYWxsIEltcG9ydF9TaGVldChMaXN0MS5MaXN0KGkgLSAxKSwgbW9kZSwgT3V0ZmlsZSwgRm9ybV9TZWxlY3RTaGVldC5JbXBvcnRfVXNlcklELCBGb3JtX1NlbGVjdFNoZWV0LkltcG9ydF9Qd2QpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgTmV4dAogICAgICAgICAgICBVbmxvYWQgRm9ybV9TZWxlY3RTaGVldAogICAgICAgICAgICAKICAgICAgICAgICAgSWYgbW9kZSA8PiAiSU1QT1JUIiBBbmQgT3V0ZmlsZSA8PiAwIFRoZW4KICAgICAgICAgICAgICAgIElmIEluZGV4RmlsZSA8PiAwIFRoZW4KICAgICAgICAgICAgICAgICAgICBDbG9zZSAjSW5kZXhGaWxlCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgIENsb3NlICNPdXRmaWxlCgogICAgICAgICAgICBFbmQgSWYKICAgICAgICBFbHNlCiAgICAgICAgICAgICdNc2c6ICJObyBqb3VybmFsIHNoZWV0IGZvciBpbXBvcnQiCiAgICAgICAgICAgIFRpdGxlID0gR2V0TXNnKExhbmcsIDk1LCAxKQogICAgICAgICAgICBNZXNzYWdlID0gR2V0TXNnKExhbmcsIDk1LCAyKQogICAgICAgICAgICBpID0gTXNnQm94KE1lc3NhZ2UsIDY0LCBUaXRsZSkKICAgICAgICBFbmQgSWYKICAgIEVuZCBTZWxlY3QKICAgIAogICAgQXBwbGljYXRpb24uU3RhdHVzQmFyID0gU3RhdHVzQmFyVGV4dAogICAgQXBwbGljYXRpb24uU3RhdHVzQmFyID0gR2V0TXNnKExhbmcsIDEsIDMpCiAgICBBcHBsaWNhdGlvbi5EaXNwbGF5U3RhdHVzQmFyID0gU3RhdHVzQmFyT3B0bgogICAgSWYgSG93TWFueSA8PiAiVEhJUyBPTkUiIFRoZW4KICAgICAgICBDYWxsIEdvdG9Db250cm9sUGFnZQogICAgRW5kIElmCkVuZCBTdWIKCgoKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CicgIE9ubGluZSBpbXBvcnQgdGhlIGdpdmVuIGpvdXJuYWwgc2hlZXQKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CidQcml2YXRlIFN1YiBJbXBvcnRfU2hlZXQoTGluZVNoZWV0IEFzIFN0cmluZywgbW9kZSBBcyBTdHJpbmcsIE91dEZpbGUgQXMgSW50ZWdlciwgVXNySUQsIFB3ZCBBcyBTdHJpbmcpClByaXZhdGUgU3ViIEltcG9ydF9TaGVldChMaW5lU2hlZXQgQXMgU3RyaW5nLCBtb2RlIEFzIFN0cmluZywgT3V0ZmlsZSBBcyBJbnRlZ2VyLCBVc3JJRCBBcyBTdHJpbmcsIFB3ZCBBcyBTdHJpbmcpCgpEaW0gSGRyU2hlZXQgQXMgU3RyaW5nCkRpbSBzdHJYTUwgQXMgU3RyaW5nCkRpbSBzdHJVUkwgQXMgU3RyaW5nCkRpbSBzdHJSZXNwb25zZSBBcyBTdHJpbmcKRGltIEZpcnN0Um93TnVtIEFzIEludGVnZXIKRGltIExhc3RSb3dOdW0gQXMgSW50ZWdlcgpEaW0gUmV0dXJuQ0QgQXMgTG9uZwpEaW0gaSBBcyBMb25nCicgSUNFOiA2ODgyMDAwMDI6IEFICkRpbSBpR2VuZXJhdGVYTUwgQXMgSW50ZWdlcgoKICAgIEhkclNoZWV0ID0gTGluZVNoZWV0ICYgIl9IIgogICAgQWN0aXZlV29ya2Jvb2suV29ya3NoZWV0cyhMaW5lU2hlZXQpLkFjdGl2YXRlCiAgICAKICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlTdGF0dXNCYXIgPSBUcnVlCiAgICBBcHBsaWNhdGlvbi5TdGF0dXNCYXIgPSBHZXRNc2coTGFuZywgMSwgMSkKICAgIEZvcm1hdEpvdXJuYWwgKExpbmVTaGVldCkKICAgIAogICAgJ0NoZWNrSGRycwogICAgCiAgICAnSW1wb3J0IHRoZSBKb3VybmFsIHNoZWV0CiAgICAnTnZzRXJyb3IgPSBJbXBvcnRTaGVldChBY3RpdmVTaGVldCkKICAgIAoKICAgIElmIG1vZGUgPD4gIklNUE9SVCIgVGhlbgogICAgJyBJQ0U6IDY4ODIwMDAwMjogQUg6IEFkZHMgYSBwYXJhbWV0ZXIgdG8gc3RvcmUgc3RhdHVzIGNvZGUKICAgICAgICBDYWxsIEdlbmVyYXRlX1hNTChzdHJYTUwsIExpbmVTaGVldCwgMCwgaUdlbmVyYXRlWE1MKQogICAgICAgICcgSUNFOiA2ODgyMDAwMDI6IEFIIGlmIGlHZW5lcmF0ZVhNTCBpcyAwLCBpLmUuIG5vIGVycm9yCiAgICAgICAgSWYgaUdlbmVyYXRlWE1MID0gMCBUaGVuCiAgICAgICAgICAgUHJpbnQgI091dGZpbGUsIHN0clhNTAogICAgICAgIEVuZCBJZgogICAgRWxzZQogICAgICAgIHN0clhNTCA9ICI8P3htbCB2ZXJzaW9uPSIiMS4wIiI/PiIgJiB2YkNyTGYKICAgICAgICBzdHJYTUwgPSBzdHJYTUwgJiAiPFBvc3RyZXE+IiAmIHZiQ3JMZgogICAgICAgIAogICAgICAgIHN0clhNTCA9IHN0clhNTCAmICI8UFJPQ0VTU19PUFRJT04+IiAmIHZiQ3JMZgogICAgICAgIHN0clhNTCA9IHN0clhNTCAmICIgIDxEVVBMSUNBVEVfT1BUSU9OPiIgJiBPcHRpb25zKCJEdXBsaWNhdGVPcHRpb24iKSAmICI8L0RVUExJQ0FURV9PUFRJT04+IiAmIHZiQ3JMZgogICAgICAgIHN0clhNTCA9IHN0clhNTCAmICIgIDxFUlJPUl9PUFRJT04+IiAmIE9wdGlvbnMoIkVycm9yT3B0aW9uIikgJiAiPC9FUlJPUl9PUFRJT04+IiAmIHZiQ3JMZgogICAgICAgIHN0clhNTCA9IHN0clhNTCAmICIgIDxERUNJTUFMX1BPU0lUSU9OPiIgJiBPcHRpb25zKCJEZWNQb3NpdGlvbiIpICYgIjwvREVDSU1BTF9QT1NJVElPTj4iICYgdmJDckxmCiAgICAgICAgc3RyWE1MID0gc3RyWE1MICYgIiAgPERFRkFVTFRfVVNFUklEPiIgJiBVc3JJRCAmICI8L0RFRkFVTFRfVVNFUklEPiIgJiB2YkNyTGYKICAgICAgICBzdHJYTUwgPSBzdHJYTUwgJiAiPC9QUk9DRVNTX09QVElPTj4iICYgdmJDckxmCgogICAgICAgICcgSUNFOiA2ODgyMDAwMDI6IEFIOiBBZGRzIGEgcGFyYW1ldGVyIHRvIHN0b3JlIHN0YXR1cyBjb2RlCiAgICAgICAgQ2FsbCBHZW5lcmF0ZV9YTUwoc3RyWE1MLCBMaW5lU2hlZXQsIDIsIGlHZW5lcmF0ZVhNTCkKICAgICAgICAnIElDRTogNjg4MjAwMDAyOiBBSCBpZiBpR2VuZXJhdGVYTUwgaXMgMCwgaS5lLiBubyBlcnJvcgoKICAgICAgICBJZiBpR2VuZXJhdGVYTUwgPSAwIFRoZW4KCiAgICAgICAgICAgIHN0clhNTCA9IHN0clhNTCAmICI8L1Bvc3RyZXE+IiAmIHZiQ3JMZgogICAgICAgIAogICAgCiAgICAgICAgICAgICdodHRwOi8vPHNlcnZlcj4veG1sbGluay9wcy9FeGNlbF9Kb3VybmFsX0ltcG9ydD91c2VyaWQ9PHVzZXItaWQ+JnB3ZD08cGFzc3dvcmQ+CiAgICAgICAgICAgIFJlbSBBRyAzMzIzOTY2IFBvc3RpbmcgZGlyZWN0bHkgc28gZG8gbm90IGFwcGVuZCBzZXJ2aWNlIG5hbWUKICAgICAgICAgICAgUmVtIGFuZCBhcHBlbmQgYSAmIGluc3RlYWQgb2YgPyBiZWZvcmUgdXNlcmlkIGFuZCBwd2QKCiAgICAgICAgICAgICdzdHJVUkwgPSBPcHRpb25zKCJJbXBvcnRfVVJMIikgJiAiRXhjZWxfSm91cm5hbF9JbXBvcnQiCiAgICAgICAgICAgIHN0clVSTCA9IE9wdGlvbnMoIkltcG9ydF9VUkwiKQogICAgICAgICAgICBzdHJVUkwgPSBSZXBsYWNlKHN0clVSTCwgInhtbGxpbmsiLCAicHNjIikKICAgICAgICAgICAgc3RyVVJMID0gc3RyVVJMICYgIkVNUExPWUVFL0VSUC9zL1dFQkxJQl9HTC5KT1VSTkFMX0lELkZpZWxkRm9ybXVsYS5Jc2NyaXB0X0V4Y2VsX0pvdXJuYWwvP3Bvc3REYXRhQmluPXkmZGlzY29ubmVjdD15IgogICAgICAgICAgICAnc3RyVVJMID0gc3RyVVJMICYgIiZ1c2VyaWQ9IiAmIFVzcklEICYgIiZwd2Q9IiAmIFB3ZAoKCgogICAgICAgICAgICBSZXR1cm5DRCA9IHNlbmRYTUwoc3RyWE1MLCBzdHJSZXNwb25zZSwgc3RyVVJMLCBMaW5lU2hlZXQsIFVzcklELCBQd2QpCiAgICAgICAgICAgIAogICAgICAgICAgICBTZWxlY3QgQ2FzZSBSZXR1cm5DRAoKICAgICAgICAgICAgQ2FzZSAwCiAgICAgICAgICAgICAgICAnIEltcG9ydCB3YXMgc3VjY2Vzc2Z1bAogICAgICAgICAgICAgICAgU2VsZWN0IENhc2UgT3B0aW9ucygiQ2hhbmdlU3RhdHVzIikKICAgICAgICAgICAgICAgIENhc2UgIk4iCiAgICAgICAgICAgICAgICAgICAgJ2RvIG5vdGhpbmcKICAgICAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5Qcm90ZWN0CiAgICAgICAgICAgICAgICBDYXNlICJDIgogICAgICAgICAgICAgICAgICAgICdDaGFuZ2UgSGVhZGVyIHN0YXR1cyB0byBJTVBPUlRFRAogICAgICAgICAgICAgICAgICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoSGRyU2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgICAgICAgICAgQWN0aXZlU2hlZXQuVW5wcm90ZWN0CiAgICAgICAgICAgICAgICAgICAgTGFzdFJvd051bSA9IEFjdGl2ZVNoZWV0LkNvbHVtbnMoMikuRmluZCgiIiwgLCB4bEZvcm11bGFzLCB4bFdob2xlLCB4bEJ5Um93cykuUm93IC0gMQogICAgICAgICAgICAgICAgICAgIEFjdGl2ZVNoZWV0LlJhbmdlKENlbGxzKDMsIDIpLCBDZWxscyhMYXN0Um93TnVtLCAyKSkuU2VsZWN0CiAgICAgICAgICAgICAgICAgICAgU2VsZWN0aW9uLlZhbHVlID0gIlUiCiAgICAgICAgICAgICAgICAgICAgQWN0aXZlU2hlZXQuUHJvdGVjdAogICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICdDaGFuZ2UgTGluZSBzdGF0dXMgdG8gSU1QT1JURUQKICAgICAgICAgICAgICAgICAgICBBY3RpdmVXb3JrYm9vay5Xb3Jrc2hlZXRzKExpbmVTaGVldCkuQWN0aXZhdGUKICAgICAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5VbnByb3RlY3QKICAgICAgICAgICAgICAgICAgICBGaXJzdFJvd051bSA9IEFjdGl2ZVNoZWV0LlJhbmdlKCJJbnNlcnRMaW5lIikuUm93ICsgMQogICAgICAgICAgICAgICAgICAgIExhc3RSb3dOdW0gPSBBY3RpdmVTaGVldC5SYW5nZSgiQm90dG9tTGluZSIpLlJvdyAtIDEKICAgICAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5SYW5nZShDZWxscyhGaXJzdFJvd051bSwgMyksIENlbGxzKExhc3RSb3dOdW0sIDMpKS5TZWxlY3QKICAgICAgICAgICAgICAgICAgICBTZWxlY3Rpb24uVmFsdWUgPSAiVSIKICAgICAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5Qcm90ZWN0CiAgICAgICAgICAgICAgICBFbmQgU2VsZWN0CiAgICAgICAgICAgIENhc2UgLTEwMQogICAgICAgICAgICAgICAgJ1Vua25vdyBnZW5lcmljIGVycm9yCiAgICAgICAgICAgICAgICAKICAgICAgICAgICAgQ2FzZSAtMTAyCiAgICAgICAgICAgICAgICAnRXJyb3IgbG9hZGluZyB0aGUgc291cmNlIFhNTCBkb2N1bWVudAogICAgICAgICAgICBDYXNlIC0xMDMKICAgICAgICAgICAgICAgICdFcnJvciBsb2FkaW5nIHJlc3BvbnNlIFhNTCBkb2N1bWVudAogICAgICAgICAgICBDYXNlIC0xMDQKICAgICAgICAgICAgICAgICdBcHBsaWNhdGlvbiBFcnJvciBtZXNzYWdlIGZvdW5kCiAgICAgICAgICAgIAogICAgICAgICAgICBDYXNlIEVsc2UKICAgICAgICAgICAgICAgICdJbXBvcnQgZXJyb3I6ICB1bmFibGUgdG8gaW1wb3J0IGpvdXJuYWwgaGVhZGVycyBhc3NvY2lhdGVkIHdpdGggc2hlZXQKICAgICAgICAgICAgICAgIFRpdGxlID0gR2V0TXNnKExhbmcsIDk1LCAxKQogICAgICAgICAgICAgICAgTWVzc2FnZSA9IEdldE1zZyhMYW5nLCA5NSwgNCkKICAgICAgICAgICAgICAgIE1lc3NhZ2UgPSBNZXNzYWdlICYgIiAnIiAmIExpbmVTaGVldAogICAgICAgICAgICAgICAgSWYgT3B0aW9ucygiRGlzcGxheU1lc3NhZ2UiKSA9ICJFIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgaSA9IE1zZ0JveChNZXNzYWdlLCAxNiwgVGl0bGUpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgRW5kIFNlbGVjdAogICAgICAgICAgICAKICAgICAgICAgICAgSWYgUmV0dXJuQ0QgPSAwIFRoZW4KICAgICAgICAgICAgICAgIElmIE9wdGlvbnMoIkxvZ01lc3NhZ2UiKSA9ICJCIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgQ2FsbCBBZGRMb2dFbnRyeShMb2dGaWxlTmFtZSwgTGluZVNoZWV0LCAiU3VjY2VzcyIsIHN0clJlc3BvbnNlKQogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICBJZiBPcHRpb25zKCJEaXNwbGF5TWVzc2FnZSIpID0gIlkiIFRoZW4KICAgICAgICAgICAgICAgICAgICBpID0gTXNnQm94KHN0clJlc3BvbnNlLCB2Yk9LT25seSwgIkltcG9ydCBPSyAtIFNoZWV0ICIgJiBMaW5lU2hlZXQpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgRWxzZQogICAgICAgICAgICAgICAgQ2FsbCBBZGRMb2dFbnRyeShMb2dGaWxlTmFtZSwgTGluZVNoZWV0LCAiSW1wb3J0IGZhaWxlZCIsIHN0clJlc3BvbnNlKQogICAgICAgICAgICAgICAgSWYgT3B0aW9ucygiRGlzcGxheU1lc3NhZ2UiKSA9ICJZIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgaSA9IE1zZ0JveChzdHJSZXNwb25zZSwgdmJFeGNsYW1hdGlvbiArIHZiT0tPbmx5LCAiSW1wb3J0IEZhaWxlZCAtIFNoZWV0ICIgJiBMaW5lU2hlZXQpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgJyBJQ0U6IDY4ODIwMDAwMjogQUgKICAgICAgICBFbmQgSWYKICAgIEVuZCBJZgoKRW5kIFN1YgoKCgonPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KJyAgQ3JlYXRlIFhNTCBlbGVtZW50cyBmcm9tIGdpdmVuIHJhZ2Ugb2YgZGF0YQonIElDRTogNjg4MjAwMDAyOiBBZGQgY2hlY2tpbmcgb24gT1BFTl9JVEVNX0tFWSB0byBtYWtlIHN1cmUgdGhlcmUgaXMgbm8gc3BhY2UgaW4gdGhlIG1pZGRsZSBvZiB0aGUgdmFsdWUKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09ClByaXZhdGUgRnVuY3Rpb24gUm93MlhNTChTZWwgQXMgUmFuZ2UsIGluZGVudCBBcyBJbnRlZ2VyLCBPcHRpb25hbCBIZHJTaGVldCBBcyBTdHJpbmcpIEFzIFN0cmluZwpEaW0gQ2VsIEFzIFJhbmdlCkRpbSBGbGRWYWx1ZSBBcyBTdHJpbmcKRGltIERlY0NoYXIgQXMgU3RyaW5nCkRpbSBpIEFzIEludGVnZXIKRGltIFhNTCBBcyBTdHJpbmcKRGltIHNDb2xOYW1lIEFzIFN0cmluZwpEaW0gaU1zZyBBcyBJbnRlZ2VyCgoKCiAgICBEZWNDaGFyID0gQXBwbGljYXRpb24uSW50ZXJuYXRpb25hbCh4bERlY2ltYWxTZXBhcmF0b3IpCiAgICBYTUwgPSAiIgogICAgRm9yIEVhY2ggQ2VsIEluIFNlbAogICAgICAgIElmIElzTnVtZXJpYyhDZWwuVmFsdWUpIEFuZCBDZWwuTnVtYmVyRm9ybWF0IDw+ICJAIiBUaGVuCiAgICAgICAgICAgIElmIENlbC5WYWx1ZSA9IDAgVGhlbgogICAgICAgICAgICAgICAgRmxkVmFsdWUgPSAiIgogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICBSZW0gQnVnMTM3ODQzMzQtVU5FWFBFQ1RFRCBXQVJOSU5HIE1FU1NBR0UgV0hFTiBDSEVDS0lORyBUSEUgREVDSU1BTFMgSU4gSlJOTDEtWExTLVdJTkRPVwogICAgICAgICAgICAgICAgRmxkVmFsdWUgPSBDZWwuVmFsdWUKICAgICAgICAgICAgICAgIFJlbSBGbGRWYWx1ZSA9IENEZWMoQ2VsLlZhbHVlKQogICAgICAgICAgICAgICAgUmVtIElmIERlY0NoYXIgPD4gIi4iIEFuZCBJblN0cihGbGRWYWx1ZSwgRGVjQ2hhcikgPiAwIFRoZW4KICAgICAgICAgICAgICAgICAgICBSZW0gTWlkKEZsZFZhbHVlLCBJblN0cihGbGRWYWx1ZSwgRGVjQ2hhciksIDEpID0gIi4iCiAgICAgICAgICAgICAgICBSZW0gRW5kIElmCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVsc2UKICAgICAgICAgICAgSWYgSXNEYXRlKENlbC5WYWx1ZSkgQW5kIENlbC5OdW1iZXJGb3JtYXQgPD4gIkAiIFRoZW4KICAgICAgICAgICAgICAgIEZsZFZhbHVlID0gRm9ybWF0JChDZWwuVmFsdWUsICJ5eXl5bW1kZCIpCiAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgIEZsZFZhbHVlID0gRW5jb2RlX1hNTGNoYXIoVHJpbSQoQ2VsLlZhbHVlKSkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICAgICAgCiAgICAnIElDRTogNjg4MjAwMDAyOiBhaCBCRUdJTgogICAgc0NvbE5hbWUgPSBVQ2FzZSQoQ2VsbHMoMSwgQ2VsLkNvbHVtbikuVmFsdWUpCiAgICBJZiBzQ29sTmFtZSA9ICJPUEVOX0lURU1fS0VZIiBBbmQgTGVuKEZsZFZhbHVlKSA+IDAgVGhlbgogICAgICAgJ01ha2Ugc3VyZSBGbGRWYWx1ZSBkb2VzIG5vdCBoYXZlIHNwYWNlIGluIHRoZSBtaWRkbGUKICAgICAgIElmIEltYmVkZGVkU3BhY2UoRmxkVmFsdWUpIFRoZW4KICAgICAgICAgICAgICBpTXNnID0gTXNnQm94KEdldE1zZyhMYW5nLCA5MSwgMTIpLCB2YkV4Y2xhbWF0aW9uLCBIZHJTaGVldCkKICAgICAgICAgICAgICBFcnIuUmFpc2UgKC05OTkpCiAgICAgICBFbmQgSWYKICAgIEVuZCBJZgogICAgJyBJQ0U6IDY4ODIwMDAwMjogYWggRU5ECiAgICAKICAgICAgICBJZiBMZW4oRmxkVmFsdWUpID4gMCBUaGVuCiAgICAgICAgICAgIFhNTCA9IFhNTCAmIFNwYWNlJChpbmRlbnQpICYgIjwiICYgVUNhc2UkKENlbGxzKDEsIENlbC5Db2x1bW4pLlZhbHVlKSAmICI+IgogICAgICAgICAgICBYTUwgPSBYTUwgJiBGbGRWYWx1ZQogICAgICAgICAgICBYTUwgPSBYTUwgJiAiPC8iICYgVUNhc2UkKENlbGxzKDEsIENlbC5Db2x1bW4pLlZhbHVlKSAmICI+IiAmIHZiQ3JMZgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgCiAgICBSb3cyWE1MID0gWE1MCkVuZCBGdW5jdGlvbgoKCgonPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CicgIEdlbmVyYXRlIFhNTCBzdHJpbmcgZm9yIHRoZSBjdXJyZW50IHNoZWV0Cic9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KJ0lDRTogNjg4MjAwMDAyIEFkZCBpU3RhdHVzIGZvciBzdGF0dXMgaW5kaWNhdG9yClByaXZhdGUgU3ViIEdlbmVyYXRlX1hNTChYTUx0ZXh0IEFzIFN0cmluZywgTGluZVNoZWV0IEFzIFN0cmluZywgaW5kZW50IEFzIEludGVnZXIsIGlTdGF0dXMgQXMgSW50ZWdlcikKRGltIERhdGFSYW5nZSBBcyBSYW5nZQpEaW0gaSBBcyBJbnRlZ2VyCkRpbSBIZHJTZXFOdW0gQXMgSW50ZWdlcgpEaW0gRmlyc3RSb3dOdW0gQXMgSW50ZWdlcgpEaW0gVGhpc1JvdyBBcyBSYW5nZQpEaW0gSGRyU2hlZXQgQXMgU3RyaW5nCkRpbSBIZWFkZXJBcnJheSgpIEFzIFZhcmlhbnQKRGltIHRlbXBYTUwgQXMgU3RyaW5nICAgICAgICAgICAndXNlIHNtYWxsZXIgY2h1bmsgb2YgWE1MIHN0cmluZyBmb3IgcGVyZm9ybWFuY2UKJyBJQ0U6IDY4ODIwMDAwMjogYWggQkVHSU4gc2V0IGlTdGF0dXMgPSAwIHRvIGluZGljYXRlIHRoZXJlIGlzIG5vIGVycm9yIGZpcnN0CiAgIGlTdGF0dXMgPSAwCiAgIE9uIEVycm9yIEdvVG8gZG9FcnJvcgonIElDRTogNjg4MjAwMDAyOiBhaCBFTkQKCiAgICBIZHJTaGVldCA9IExpbmVTaGVldCAmICJfSCIKICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoSGRyU2hlZXQpLkFjdGl2YXRlCiAgICBJZiBCdWlsZF9IZHJBcnJheShIZHJTaGVldCwgSGVhZGVyQXJyYXkpIFRoZW4KICAgICAgICBGb3IgaSA9IExCb3VuZChIZWFkZXJBcnJheSkgVG8gVUJvdW5kKEhlYWRlckFycmF5KQogICAgICAgICAgICBJZiBDZWxscyhpICsgMiwgMikgPSAiQyIgVGhlbgogICAgICAgICAgICAgICAgU2V0IERhdGFSYW5nZSA9IEFjdGl2ZVNoZWV0LlJhbmdlKENlbGxzKGkgKyAyLCBIZHJDdHJsQ09MICsgMSksIENlbGxzKGkgKyAyLCBMYXN0SGRyQ09MKSkKICAgICAgICAgICAgICAgIFhNTHRleHQgPSBYTUx0ZXh0ICYgU3BhY2UoaW5kZW50KSAmICI8SlJOTF9IRFJfSU1QPiIgJiB2YkNyTGYKICAgICAgICAgICAgICAgIFhNTHRleHQgPSBYTUx0ZXh0ICYgUm93MlhNTChEYXRhUmFuZ2UsIGluZGVudCArIDIpCiAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgIEhkclNlcU51bSA9IENlbGxzKGkgKyAyLCAzKS5WYWx1ZQogICAgICAgICAgICAgICAgQWN0aXZlV29ya2Jvb2suV29ya3NoZWV0cyhMaW5lU2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgICAgICBXaXRoIFJhbmdlKENlbGxzKDIsIDIpLCBDZWxscyhSYW5nZSgiQm90dG9tTGluZSIpLlJvdywgMikpCiAgICAgICAgICAgICAgICAgICAgU2V0IFRoaXNSb3cgPSAuRmluZChIZHJTZXFOdW0sICwgLCB4bFdob2xlLCB4bEJ5Um93cykKICAgICAgICAgICAgICAgICAgICBJZiBOb3QgVGhpc1JvdyBJcyBOb3RoaW5nIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgRmlyc3RSb3dOdW0gPSBUaGlzUm93LlJvdwogICAgICAgICAgICAgICAgICAgICAgICB0ZW1wWE1MID0gIiIKICAgICAgICAgICAgICAgICAgICAgICAgRG8KICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmIENlbGxzKFRoaXNSb3cuUm93LCAzKSA9ICJDIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU2V0IERhdGFSYW5nZSA9IFJhbmdlKENlbGxzKFRoaXNSb3cuUm93LCA4KSwgQ2VsbHMoVGhpc1Jvdy5Sb3csIFJhbmdlKCJMYXN0TGluZUNvbCIpLkNvbHVtbikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdGVtcFhNTCA9IHRlbXBYTUwgJiBTcGFjZShpbmRlbnQgKyAyKSAmICI8SlJOTF9MTl9JTVA+IiAmIHZiQ3JMZgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICcgSUNFOiA2ODgyMDAwMDI6CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdGVtcFhNTCA9IHRlbXBYTUwgJiBSb3cyWE1MKERhdGFSYW5nZSwgaW5kZW50ICsgNCwgIlNoZWV0OiAiICYgTGluZVNoZWV0KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRlbXBYTUwgPSB0ZW1wWE1MICYgU3BhY2UoaW5kZW50ICsgMikgJiAiPC9KUk5MX0xOX0lNUD4iICYgdmJDckxmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBJZiBMZW4odGVtcFhNTCkgPiAxMDAwMCBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFhNTHRleHQgPSBYTUx0ZXh0ICYgdGVtcFhNTAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0ZW1wWE1MID0gIiIKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICAgICAgU2V0IFRoaXNSb3cgPSAuRmluZE5leHQoVGhpc1JvdykKICAgICAgICAgICAgICAgICAgICAgICAgTG9vcCBXaGlsZSBOb3QgVGhpc1JvdyBJcyBOb3RoaW5nIEFuZCBUaGlzUm93LlJvdyA8PiBGaXJzdFJvd051bQogICAgICAgICAgICAgICAgICAgICAgICBYTUx0ZXh0ID0gWE1MdGV4dCAmIHRlbXBYTUwKICAgICAgICAgICAgICAgICAgICAgICAgdGVtcFhNTCA9ICIiCiAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICBFbmQgV2l0aAogICAgICAgICAgICAgICAgWE1MdGV4dCA9IFhNTHRleHQgJiBTcGFjZShpbmRlbnQpICYgIjwvSlJOTF9IRFJfSU1QPiIgJiB2YkNyTGYKICAgICAgICAgICAgICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoSGRyU2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIE5leHQgaQogICAgRW5kIElmCicgSUNFOiA2ODgyMDAwMDI6IGFoIEJFR0lOCmRvRXJyb3I6CiAgICBJZiBFcnIuTnVtYmVyIDw+IDAgVGhlbgogICAgICAgaVN0YXR1cyA9IEVyci5OdW1iZXIKICAgIEVuZCBJZgonIElDRTogNjg4MjAwMDAyOiBhaCBFTkQKRW5kIFN1YgoKCgoKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CicgIFBvc3QgYW5kIFNlbmQgam91cm5hbCBvdmVyIHRoZSB3ZWIKJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CgonUHJpdmF0ZSBGdW5jdGlvbiBzZW5kWE1MKHN0clhNTCwgc3RyUmVzcG9uc2UsIHN0clVSTCwgTGluZVNoZWV0LCBVc3JJRCwgUHdkIEFzIFN0cmluZykgQXMgTG9uZwpQcml2YXRlIEZ1bmN0aW9uIHNlbmRYTUwoc3RyWE1MLCBzdHJSZXNwb25zZSwgc3RyVVJMIEFzIFN0cmluZywgTGluZVNoZWV0LCBVc3JJRCBBcyBTdHJpbmcsIFB3ZCBBcyBTdHJpbmcpIEFzIExvbmcKCkNvbnN0IFNYSF9TRVJWRVJfQ0VSVF9JR05PUkVfQUxMX1NFUlZFUl9FUlJPUlMgPSAxMzA1NgonRGltIHhEb2MgQXMgTVNYTUwyLkRPTURvY3VtZW50NjAKJ0RpbSB4SFRUUCBBcyBYTUxIVFRQCidDb25zdCBXaW5IdHRwUmVxdWVzdE9wdGlvbl9FbmFibGVIdHRwMV8xID0gMTcKICdEaW0geEhUVFAgQXMgTVNYTUwyLlNlcnZlclhNTEhUVFA2MApEaW0geERvYyBBcyBNU1hNTC5ET01Eb2N1bWVudApEaW0geEhUVFAgQXMgTVNYTUwuWE1MSFRUUFJlcXVlc3QKCidEaW0geEVycm9yLCB4SW1wb3J0ZWQsIHhVcGRhdGVkIEFzIE1TWE1MLklYTUxET01FbGVtZW50CidBZGRlZCBhbiBhZGRpdGlvbmFsIGVsZW1lbnQgeFdhcm5pbmcgdG8gaGFuZGxlIHRoZSB3YXJuaW5ncwoKJ0RpbSB4RXJyb3IsIHhXYXJuaW5nLCB4SW1wb3J0ZWQsIHhVcGRhdGVkIEFzIElYTUxET01Ob2RlTGlzdAonRGltIHRtcCwgdG1wMiwgdG1wMyBBcyBTdHJpbmcKJ0RpbSBTdGF0dXNOdW0gQXMgTG9uZwonRGltIGksIGssIFJvd051bSBBcyBJbnRlZ2VyCidEaW0gWSwgTSwgRCwgRHNlcCwgSmRhdGUsIFN5c0lELCBqaWQgQXMgU3RyaW5nCidEaW0gRG9yZGVyIEFzIEludGVnZXIKICAgIAogRGltIHhFcnJvciwgeEltcG9ydGVkLCB4VXBkYXRlZCBBcyBNU1hNTC5JWE1MRE9NTm9kZUxpc3QKIERpbSB0bXAgQXMgU3RyaW5nCiBEaW0gU3RhdHVzTnVtIEFzIExvbmcKIERpbSBpLCBrIEFzIEludGVnZXIKCiAgICBPbiBFcnJvciBHb1RvIGRvRXJyb3IKICAgIHN0clJlc3BvbnNlID0gIiIKICAgICdTZXQgeERvYyA9IE5ldyBNU1hNTDIuRE9NRG9jdW1lbnQ2MAogICAgU2V0IHhEb2MgPSBOZXcgTVNYTUwuRE9NRG9jdW1lbnQKICAgICdTZXQgeERvYyA9IENyZWF0ZU9iamVjdCgiTVNYTUwuRE9NRG9jdW1lbnQiKQogICAgCiAgICB4RG9jLmFzeW5jID0gRmFsc2UKICAgIElmIHhEb2MubG9hZFhNTChzdHJYTUwpIFRoZW4KICAgICAgICAnU2V0IHhIVFRQID0gTmV3IFhNTEhUVFAKICAgICAgICAKICAgICAgICAnU2V0IHhIVFRQID0gQ3JlYXRlT2JqZWN0KCJNU1hNTDIuU2VydmVyWE1MSFRUUC42LjAiKQogICAgICAgIFNldCB4SFRUUCA9IE5ldyBNU1hNTC5YTUxIVFRQUmVxdWVzdAogICAgICAgICAnU2V0IHhIVFRQID0gQ3JlYXRlT2JqZWN0KCJNU1hNTC5ET01Eb2N1bWVudCIpCiAgICAgICAgJ3hIVFRQLnNldFRpbWVvdXRzIDAsIDAsIDAsIDAKCiAgICAgICAgJ3hIVFRQLk9wZW4gIlBPU1QiLCBzdHJVUkwsIEZhbHNlLCBVc3JJRCwgUHdkCiAgICAgICAgCgogICAgICAgICd4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJjb250ZW50LXR5cGUiLCAiYXBwbGljYXRpb24veC13d3ctZm9ybS11cmxlbmNvZGVkIgogICAgICAgICd4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJhY2NlcHQiLCAidGV4dC94bWwvaHRtbCIKICAgICAgICAneEhUVFAuc2V0UmVxdWVzdEhlYWRlciAiYWNjZXB0LWNoYXJzZXQiLCAidXRmLTgsIGlzb184ODU5LTEiCgogICAgICAgICd4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJ1c2VyaWQiLCBVc3JJRAogICAgICAgICd4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJwd2QiLCBQd2QKICAgICAgICAneEhUVFAuc2V0T3B0aW9uIDIsIFNYSF9TRVJWRVJfQ0VSVF9JR05PUkVfQUxMX1NFUlZFUl9FUlJPUlMKCiAgICAgICAgeEhUVFAuT3BlbiAiUE9TVCIsIHN0clVSTCwgRmFsc2UKCiAgICAgICAgeEhUVFAuc2V0UmVxdWVzdEhlYWRlciAiY29udGVudC10eXBlIiwgImFwcGxpY2F0aW9uL3gtd3d3LWZvcm0tdXJsZW5jb2RlZCIKICAgICAgICB4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJhY2NlcHQiLCAidGV4dC94bWwvaHRtbCIKICAgICAgICB4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJhY2NlcHQtY2hhcnNldCIsICJ1dGYtOCwgaXNvXzg4NTktMSIKICAgICAgICBSZW0gQUcgMzMyMzk2NiBBZGRpbmcgdGhlIFVzZXJuYW1lIGFuZCBQYXNzd29yZCB0byB0aGUgaGVhZGVyCiAgICAgICAgeEhUVFAuc2V0UmVxdWVzdEhlYWRlciAidXNlcmlkIiwgVXNySUQKICAgICAgICB4SFRUUC5zZXRSZXF1ZXN0SGVhZGVyICJwd2QiLCBQd2QKCiAgICAgICAgeEhUVFAuc2VuZCB4RG9jLlhNTAogICAgICAgIAogICAgICAgIHN0clJlc3BvbnNlID0geEhUVFAucmVzcG9uc2VUZXh0CiAgICAgICAgCiAgICAgICAgSWYgeERvYy5sb2FkWE1MKHN0clJlc3BvbnNlKSBUaGVuCiAgICAgICAgICAgIERzZXAgPSBBcHBsaWNhdGlvbi5JbnRlcm5hdGlvbmFsKHhsRGF0ZVNlcGFyYXRvcikKICAgICAgICAgICAgRG9yZGVyID0gQXBwbGljYXRpb24uSW50ZXJuYXRpb25hbCh4bERhdGVPcmRlcikKICAgICAgICAgICAgJ3hsRGF0ZU9yZGVyICgwPU1EWSwgMT1ETVksIDI9WU1EKQogICAgICAgICAgICBTZXQgeEVycm9yID0geERvYy5nZXRFbGVtZW50c0J5VGFnTmFtZSgiZXJyb3IiKQogICAgICAgICAgICBzdHJSZXNwb25zZSA9ICIiCiAgICAgICAgICAgIAogICAgICAgICAgICAgICAgU2V0IHhJbXBvcnRlZCA9IHhEb2MuZ2V0RWxlbWVudHNCeVRhZ05hbWUoImltcG9ydGVkIikKICAgICAgICAgICAgICAgIHRtcCA9ICIiCiAgICAgICAgICAgICAgICBrID0gMAogICAgICAgICAgICAgICAgQWN0aXZlV29ya2Jvb2suV29ya3NoZWV0cyhMaW5lU2hlZXQpLkFjdGl2YXRlCiAgICAgICAgICAgICAgICBBY3RpdmVTaGVldC5VbnByb3RlY3QKICAgICAgICAgICAgICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoTGluZVNoZWV0ICYgIl9IIikuQWN0aXZhdGUKICAgICAgICAgICAgICAgIEFjdGl2ZVNoZWV0LlVucHJvdGVjdAogICAgCiAgICAgICAgICAgICAgICBGb3IgaSA9IDEgVG8geEltcG9ydGVkLkxlbmd0aAogICAgICAgICAgICAgICAgICAgIHRtcDIgPSBEZWNvZGVfWE1MY2hhcih4SW1wb3J0ZWQuSXRlbShpIC0gMSkuVGV4dCkKICAgICAgICAgICAgICAgICAgICB0bXAzID0gTWlkKHRtcDIsIEluU3RyKHRtcDIsICIpIikgLSAxMCwgMTApCiAgICAgICAgICAgICAgICAgICAgWSA9IExlZnQodG1wMywgNCkKICAgICAgICAgICAgICAgICAgICBNID0gTWlkKHRtcDMsIDYsIDIpCiAgICAgICAgICAgICAgICAgICAgRCA9IFJpZ2h0KHRtcDMsIDIpCiAgICAgICAgICAgICAgICAgICAgSWYgRG9yZGVyID0gMCBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgIEpkYXRlID0gTSAmIERzZXAgJiBEICYgRHNlcCAmIFkKICAgICAgICAgICAgICAgICAgICBFbHNlSWYgRG9yZGVyID0gMSBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgIEpkYXRlID0gRCAmIERzZXAgJiBNICYgRHNlcCAmIFkKICAgICAgICAgICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICAgICAgICAgIEpkYXRlID0gWSAmIERzZXAgJiBNICYgRHNlcCAmIEQKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICB0bXAgPSB0bXAgJiB2YkxmICYgIiAgIiAmIFJlcGxhY2UodG1wMiwgdG1wMywgSmRhdGUpCiAgICAgICAgICAgICAgICAgICAgayA9IGsgKyAxCiAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgU3lzSUQgPSBSVHJpbShMZWZ0KHRtcDIsIEluU3RyKHRtcDIsICIoIikgLSAxKSkKICAgICAgICAgICAgICAgICAgICB0bXAzID0gTFRyaW0oTWlkKHRtcDIsIEluU3RyKHRtcDIsICIsIikgKyAxKSkKICAgICAgICAgICAgICAgICAgICBqaWQgPSBSVHJpbShMZWZ0KHRtcDMsIEluU3RyKHRtcDMsICIsIikgLSAxKSkKICAgICAgICAgICAgICAgICAgICBSb3dOdW0gPSBBY3RpdmVTaGVldC5Db2x1bW5zKDMpLkZpbmQoU3lzSUQsICwgeGxGb3JtdWxhcywgeGxXaG9sZSwgeGxCeVJvd3MpLlJvdwogICAgICAgICAgICAgICAgICAgIElmIENlbGxzKFJvd051bSwgNSkgPSAiTkVYVCIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICBDZWxscyhSb3dOdW0sIDUpID0gamlkCiAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICBBY3RpdmVXb3JrYm9vay5Xb3Jrc2hlZXRzKExpbmVTaGVldCkuQWN0aXZhdGUKICAgICAgICAgICAgICAgICAgICAgICAgSWYgQ2VsbHMoNCwgOCkgPSBWYWwoU3lzSUQpIEFuZCBDZWxscyg0LCAxMCkgPSAiTkVYVCIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2VsbHMoNCwgMTApID0gamlkCiAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICBSb3dOdW0gPSBBY3RpdmVTaGVldC5Db2x1bW5zKDIpLkZpbmQoU3lzSUQsICwgeGxGb3JtdWxhcywgeGxXaG9sZSwgeGxCeVJvd3MpLlJvdwogICAgICAgICAgICAgICAgICAgICAgICBXaGlsZSBDZWxscyhSb3dOdW0sIDIpID0gVmFsKFN5c0lEKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgQ2VsbHMoUm93TnVtLCA1KSA9ICJORVhUIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2VsbHMoUm93TnVtLCA1KSA9IGppZAogICAgICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBSb3dOdW0gPSBSb3dOdW0gKyAxCiAgICAgICAgICAgICAgICAgICAgICAgIFdlbmQKICAgICAgICAgICAgICAgICAgICAgICAgQWN0aXZlV29ya2Jvb2suV29ya3NoZWV0cyhMaW5lU2hlZXQgJiAiX0giKS5BY3RpdmF0ZQogICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgTmV4dAogICAgICAgICAgICAgICAgc3RyUmVzcG9uc2UgPSBHZXRNc2coTGFuZywgODAsIDIsIHN0cihrKSkgJiB0bXAKICAgICAgICAgICAgICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoTGluZVNoZWV0ICYgIl9IIikuQWN0aXZhdGUKICAgICAgICAgICAgICAgIEFjdGl2ZVNoZWV0LlByb3RlY3QKICAgICAgICAgICAgICAgIEFjdGl2ZVdvcmtib29rLldvcmtzaGVldHMoTGluZVNoZWV0KS5BY3RpdmF0ZQogICAgICAgICAgICAgICAgQWN0aXZlU2hlZXQuUHJvdGVjdAogICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICBTZXQgeFVwZGF0ZWQgPSB4RG9jLmdldEVsZW1lbnRzQnlUYWdOYW1lKCJ1cGRhdGVkIikKICAgICAgICAgICAgICAgIHRtcCA9ICIiCiAgICAgICAgICAgICAgICBrID0gMAogICAgICAgICAgICAgICAgRm9yIGkgPSAxIFRvIHhVcGRhdGVkLkxlbmd0aAogICAgICAgICAgICAgICAgICAgIHRtcDIgPSBEZWNvZGVfWE1MY2hhcih4VXBkYXRlZC5JdGVtKGkgLSAxKS5UZXh0KQogICAgICAgICAgICAgICAgICAgIHRtcDMgPSBNaWQodG1wMiwgSW5TdHIodG1wMiwgIikiKSAtIDEwLCAxMCkKICAgICAgICAgICAgICAgICAgICBZID0gTGVmdCh0bXAzLCA0KQogICAgICAgICAgICAgICAgICAgIE0gPSBNaWQodG1wMywgNiwgMikKICAgICAgICAgICAgICAgICAgICBEID0gUmlnaHQodG1wMywgMikKICAgICAgICAgICAgICAgICAgICBJZiBEb3JkZXIgPSAwIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgSmRhdGUgPSBNICYgRHNlcCAmIEQgJiBEc2VwICYgWQogICAgICAgICAgICAgICAgICAgIEVsc2VJZiBEb3JkZXIgPSAxIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgSmRhdGUgPSBEICYgRHNlcCAmIE0gJiBEc2VwICYgWQogICAgICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgSmRhdGUgPSBZICYgRHNlcCAmIE0gJiBEc2VwICYgRAogICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgIHRtcCA9IHRtcCAmIHZiTGYgJiAiICAiICYgUmVwbGFjZSh0bXAyLCB0bXAzLCBKZGF0ZSkKICAgICAgICAgICAgICAgICAgICBrID0gayArIDEKICAgICAgICAgICAgICAgIE5leHQKICAgICAgICAgICAgICAgIElmIGsgPiAwIFRoZW4KICAgICAgICAgICAgICAgICAgICBzdHJSZXNwb25zZSA9IHN0clJlc3BvbnNlICYgdmJMZiAmIEdldE1zZyhMYW5nLCA4MCwgMywgc3RyKGspKSAmIHRtcAogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgJ1dhcm5pbmdzIGFyZSBwcm9jZXNzZWQgaW4gdGhpcyBsb29wCiAgICAgICAgICAgIFNldCB4V2FybmluZyA9IHhEb2MuZ2V0RWxlbWVudHNCeVRhZ05hbWUoIndhcm5pbmciKQogICAgICAgICAgICBpID0gMAogICAgICAgICAgICAgICAgdG1wID0gIiIKICAgICAgICAgICAgICAgIEZvciBpID0gMSBUbyB4V2FybmluZy5MZW5ndGgKICAgICAgICAgICAgICAgICAgICBJZiBpID4gMSBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgIHRtcCA9IHRtcCAmIHZiTGYKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICB0bXAgPSB0bXAgJiBEZWNvZGVfWE1MY2hhcih4V2FybmluZy5JdGVtKGkgLSAxKS5UZXh0KQogICAgICAgICAgICAgICAgTmV4dAogICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICBzdHJSZXNwb25zZSA9IHN0clJlc3BvbnNlICYgdmJMZiAmIHRtcAogICAgICAgICAgICBzZW5kWE1MID0gMAogICAgICAgICAgICBJZiB4RXJyb3IuTGVuZ3RoID4gMCBUaGVuCiAgICAgICAgICAgICAgICAnQXBwbGljYXRpb24gRXJyb3IgbWVzc2FnZSBmb3VuZAogICAgICAgICAgICAgICAgSWYgT3B0aW9ucygiRXJyb3JPcHRpb24iKSA8PiAiUyIgVGhlbgogICAgICAgICAgICAgICAgICAgIHNlbmRYTUwgPSAtMTA0CiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgaSA9IDAKICAgICAgICAgICAgICAgIHRtcCA9ICIiCiAgICAgICAgICAgICAgICBGb3IgaSA9IDEgVG8geEVycm9yLkxlbmd0aAogICAgICAgICAgICAgICAgICAgIElmIGkgPiAxIFRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgdG1wID0gdG1wICYgdmJMZgogICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgIHRtcCA9IHRtcCAmIERlY29kZV9YTUxjaGFyKHhFcnJvci5JdGVtKGkgLSAxKS5UZXh0KQogICAgICAgICAgICAgICAgTmV4dAogICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICBzdHJSZXNwb25zZSA9IHN0clJlc3BvbnNlICYgdmJMZiAmIHRtcAogICAgICAgICAgICBFbmQgSWYKICAgICAgICBFbHNlCiAgICAgICAgICAgICdFcnJvciBsb2FkaW5nIHJlc3BvbnNlIFhNTCBkb2N1bWVudAogICAgICAgICAgICBzZW5kWE1MID0gLTEwMwogICAgICAgIEVuZCBJZgogICAgRWxzZQogICAgICAgICdFcnJvciBsb2FkaW5nIHRoZSBzb3VyY2UgWE1MIGRvY3VtZW50CiAgICAgICAgc2VuZFhNTCA9IC0xMDIKICAgICAgICBzdHJSZXNwb25zZSA9IHhEb2MucGFyc2VFcnJvci5yZWFzb24gJiB2YkNyTGYgJiBzdHJYTUwKICAgIEVuZCBJZgogICAgRXhpdCBGdW5jdGlvbgpkb0Vycm9yOgogICAgSWYgRXJyLk51bWJlciA8PiAwIFRoZW4KICAgICAgICBzZW5kWE1MID0gRXJyLk51bWJlcgogICAgICAgIHN0clJlc3BvbnNlID0gRXJyLkRlc2NyaXB0aW9uICYgT3B0aW9ucygiSW1wb3J0X1VSTCIpCiAgICBFbHNlCiAgICAgICAgJ1Vua25vd24gZXJyb3IKICAgICAgICBzZW5kWE1MID0gLTEwMQogICAgRW5kIElmCkVuZCBGdW5jdGlvbgoKClB1YmxpYyBTdWIgQ3VzdG9taXplQ0YoKQogICAgRm9ybV9DdXN0b21pemVDRi5TaG93CkVuZCBTdWIKCgoKClByaXZhdGUgU3ViIGdlbmVyaWNFcnJvckhhbmRsZXIob2JqRXJyIEFzIEVyck9iamVjdCwgc3RyUHJvY05hbWUgQXMgU3RyaW5nKQogICAgTXNnQm94IHByb21wdDo9IlRoZSBmb2xsb3dpbmcgZXJyb3Igb2NjdXJyZWQgaW4gcHJvY2VkdXJlICIgJiBzdHJQcm9jTmFtZSBfCiAgICAgICAgJiAiOiAiICYgdmJDckxmICYgb2JqRXJyLkRlc2NyaXB0aW9uICYgdmJDckxmICYgIkVycm9yICM6ICIgJiBvYmpFcnIuTnVtYmVyLCBfCiAgICAgICAgVGl0bGU6PSJFUlJPUiIKRW5kIFN1YgoKJzExLzE2LzA0OiBBSCBDcmVhdGVkIHRoaXMgZm9yIElDRSA2MjI1OTAwMDAKJ1RoZSBwdXJwb3NlIG9mIHRoaXMgZnVuY3Rpb24gaXMgdG8gZW5jb2RlIHNwZWNpYWwgY2hhcmFjdGVycyBjb250YWluZWQgaW4gVUlEL3Bhc3N3b3JkICEgQCAjICQgJSBeICYgKiAoICkgLSBfID0gKyBcIHxbIF0ge30gOyA6IC8gPyAuID4gPApQdWJsaWMgRnVuY3Rpb24gVVJMX0VuY29kZShCeVZhbCBzT3JpZ2luYWwgQXMgU3RyaW5nKSBBcyBTdHJpbmcKRGltIGlfTGVuLCBpX0NvdW50ZXIgQXMgSW50ZWdlcgpEaW0gc19FbmNvZGVkLCBzX1BhcnNlZCBBcyBTdHJpbmcKJ2ZpZ3VyZSBvdXQgbGVuZ3RoIG9mIHBhc3NlZCBpbiBzdHJpbmcKaV9MZW4gPSBMZW4oc09yaWdpbmFsKQoKc19FbmNvZGVkID0gIiIKc19QYXJzZWQgPSAiIgoncGFyc2UgZWFjaCBjaGFyYWN0ZXIgYW5kIHJlcGxhY2UgaXQgd2l0aCBlbmNvZGVkIHZhbHVlIGlmIGl0J3Mgb25lIG9mIHRoZSBzcGVjaWFsIGNoYXJhY3RlcgpGb3IgaV9Db3VudGVyID0gMSBUbyBpX0xlbgogICAgJ2dldCBlYWNoIGNoYXJhY3RlciBvdXQgb2YgdGhlIHNPcmlnaW5hbCBzdHJpbmcKICAgIHNfUGFyc2VkID0gTWlkKHNPcmlnaW5hbCwgaV9Db3VudGVyLCAxKQogICAgU2VsZWN0IENhc2Ugc19QYXJzZWQKICAgICAgICBDYXNlICIhIgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlMjEiCiAgICAgICAgQ2FzZSAiQCIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTQwIgogICAgICAgIENhc2UgIiMiCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiUyMyIKICAgICAgICBDYXNlICIkIgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlMjQiCiAgICAgICAgQ2FzZSAiJSIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTI1IgogICAgICAgIENhc2UgIl4iCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiU1RSIKICAgICAgICBDYXNlICImIgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlMjYiCiAgICAgICAgQ2FzZSAiKiIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTJBIgogICAgICAgIENhc2UgIigiCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiUyOCIKICAgICAgICBDYXNlICIpIgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlMjkiCiAgICAgICAgQ2FzZSAiLSIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTJEIgogICAgICAgIENhc2UgIl8iCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiU1RiIKICAgICAgICBDYXNlICI9IgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlM0QiCiAgICAgICAgQ2FzZSAiKyIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTJCIgogICAgICAgIENhc2UgIlwiCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiU1QyIKICAgICAgICBDYXNlICJ8IgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlN0MiCiAgICAgICAgQ2FzZSAiWyIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTVCIgogICAgICAgIENhc2UgIl0iCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiU1RCIKICAgICAgICBDYXNlICJ7IgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlN0IiCiAgICAgICAgQ2FzZSAifSIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTdEIgogICAgICAgIENhc2UgIjsiCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiUzQiIKICAgICAgICBDYXNlICI6IgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlM0EiCiAgICAgICAgQ2FzZSAiLyIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTJGIgogICAgICAgIENhc2UgIj8iCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiUzRiIKICAgICAgICBDYXNlICIuIgogICAgICAgIHNfRW5jb2RlZCA9IHNfRW5jb2RlZCArICIlMkUiCiAgICAgICAgQ2FzZSAiPiIKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyAiJTNFIgogICAgICAgIENhc2UgIjwiCiAgICAgICAgc19FbmNvZGVkID0gc19FbmNvZGVkICsgIiUzQyIKICAgICAgICBDYXNlIEVsc2UKICAgICAgICBzX0VuY29kZWQgPSBzX0VuY29kZWQgKyBzX1BhcnNlZAogICAgRW5kIFNlbGVjdApOZXh0CgpVUkxfRW5jb2RlID0gc19FbmNvZGVkCgpFbmQgRnVuY3Rpb24KCgoKCg==