Option Explicit
    Const Pmax As Long = 100    '従業員人の最大数
    Const Rmax As Long = 600    '1ピボットシート内の1人のひと月の最大行数
 
    Dim HON1Rows(Pmax, Rmax) As Long  '本年1部の行情報
    '                                   左側の添字＝各個人に割当られた番号(0-100)
    '                                   右側の添字＝0番目は以降の要素数を示す。（例 この値が3の時、要素数3なので、3番目の添字まで有効）
    '                                   右側の添字＝1番目以降は、行番号を示す。
    Dim HON2Rows(Pmax, Rmax) As Long  '本年2部の行情報（添字は本年1部と同様）
    Dim HON3Rows(Pmax, Rmax) As Long  '本年3部の行情報（添字は本年1部と同様）
    Dim HON1dicT As Object            '本年1部の辞書　キー：支店名＋課名＋個人名 値：行情報テーブルの添字(0-100)
    Dim HON2dicT As Object            '本年2部の辞書 （キーと値は本年1部と同様）
    Dim HON3dicT As Object            '本年3部の辞書 （キーと値は本年1部と同様）
    Const HON1sheet As String = "1部本年P"
    Const HON2sheet As String = "2部本年P"
    Const HON3sheet As String = "3部本年P"
    Const JISSEKI As String = "実績"           '実績
    Const ZENNEN  As String = "前年"           '前年
    Dim Uri_book As String              '売上明細データブック名
    Dim trg_yyyy As Long                '指定年
    Dim trg_mm As Long                  '指定月
    Dim Jis_folder As String            '実績フォルダ
    Dim Kei_folder As String            '計画フォルダ
    Dim trg_key As String               '個人名キー
    Dim trg_col As Long                 '算出カラム番号
    Dim trg_mode As String              '実績/前年
    Dim warnP As String                 '警告従業員
Public Sub 売上月単位集計()
    Dim ws As Worksheet
    Dim yyyy, mm, ext As Variant
    Dim t1, t2 As Variant
    Dim Uri_path As String
    Set HON1dicT = CreateObject("Scripting.Dictionary")
    Set HON2dicT = CreateObject("Scripting.Dictionary")
    Set HON3dicT = CreateObject("Scripting.Dictionary")
    Set ws = Worksheets("管理")
    yyyy = ws.Cells(2, "A").Value               '集計年
    If yyyy = "" Or IsNumeric(yyyy) = False Then
        MsgBox ("集計年月が不正")
        Exit Sub
    End If
    trg_yyyy = yyyy
    If trg_yyyy < 2010 Or trg_yyyy > 2099 Then
        MsgBox ("集計年月(2010-2099)が範囲外")
        Exit Sub
    End If
    mm = ws.Cells(2, "B").Value                 '集計月
    If mm = "" Or IsNumeric(mm) = False Then
        MsgBox ("集計月が不正")
        Exit Sub
    End If
    trg_mm = mm
    If trg_mm < 1 Or trg_mm > 12 Then
        MsgBox ("集計月(1-12)が範囲外")
        Exit Sub
    End If
    trg_mode = ws.Cells(2, "C").Value           '集計項目
    If trg_mode <> JISSEKI And trg_mode <> ZENNEN Then
        MsgBox ("集計項目が不正")
        Exit Sub
    End If
    Jis_folder = ws.Cells(2, "D").Value            '実績フォルダ名
    Uri_book = ws.Cells(2, "E").Value              '実績売上明細ファイル
    '拡張子のチェック
    ext = Right(LCase(Uri_book), 5)
    If ext <> ".xlsx" And ext <> ".xlsm" Then
        MsgBox ("実績ファイル名が不正")
        Exit Sub
    End If
    Kei_folder = ws.Cells(2, "F").Value            '計画フォルダ名
 
    If Dir(Jis_folder, vbDirectory) = "" Then
        MsgBox ("実績フォルダが存在しません<" & Jis_folder & ">")
        Exit Sub
    End If
    If Dir(Kei_folder, vbDirectory) = "" Then
        MsgBox ("計画フォルダが存在しません<" & Kei_folder & ">")
        Exit Sub
    End If
    '売上明細ブック名設定
    Uri_path = Jis_folder & "\" & Uri_book
    'MsgBox ("ファイル名<" & Uri_book & ">") '追加①
    'MsgBox ("フルパス名<" & Uri_path & ">") '追加②
    'MsgBox (GetAttr(Uri_path)) '追加③
    If Dir(Uri_path) = "" Then
        MsgBox (Uri_path & "が存在しません")
        Exit Sub
    End If
 
    If MsgBox(trg_yyyy & "年" & trg_mm & "月の" & trg_mode & "を" & Uri_book & "から集計します", vbOKCancel) <> vbOK Then Exit Sub
    t1 = Timer
    warnP = ""
    Application.ScreenUpdating = False
    '売上明細ブック名オープン
    Workbooks.Open Uri_path
    Workbooks(Uri_book).Activate
    'ピボットデータ読み込み
    Call readPivot(HON1sheet, HON1dicT, HON1Rows)
    Call readPivot(HON2sheet, HON2dicT, HON2Rows)
    Call readPivot(HON3sheet, HON3dicT, HON3Rows)
    Call OutPivot 'ピボット情報出力・・・・・追加①
    '計画フォルダ内の全ブックを更新する
    Call UpdateAllBooks(Kei_folder)
    Workbooks(Uri_book).Close
    Application.ScreenUpdating = True
    t2 = Timer
    MsgBox ("処理完了 所要時間(秒)=" & t2 - t1)
    If warnP <> "" Then
        MsgBox ("下記従業員は、1部,2部,3部の何れのピボットにも集計月のデータなし。" & vbLf & warnP)
    End If
End Sub
 
'計画フォルダ内の全てのブックを更新する
Private Sub UpdateAllBooks(ByVal Kei_folder As String)
    Dim bookname As String
    bookname = Dir(Kei_folder & "\*.xlsx", vbNormal)
    If bookname = "" Then
        MsgBox (Kei_folder & "内に支店別＆課別（個人データ）ブックが存在しません。")
        End
    End If
    '全てのブックを更新する
    Do While bookname <> ""
        Call Update1Book(Kei_folder, bookname)
        bookname = Dir()
    Loop
End Sub
 
'１つのブックを更新する
Private Sub Update1Book(ByVal Kei_folder As String, ByVal bookname As String)
    Dim ws As Worksheet
    Dim i As Long
    Workbooks.Open Kei_folder & "\" & bookname
    '左側のシートから順に処理する
    For i = 1 To Worksheets.count
        Set ws = Worksheets(i)
        '合計シート検出時、終了
        If ws.name = "合計" Then Exit For
        If ws.name = "拠点計" Then Exit For '追加②
        '１つのシートを更新する
        Call Update1Sheet(bookname, ws)
    Next
    'ブックを保存し、閉じる
    Workbooks(bookname).Save
    Workbooks(bookname).Close
End Sub
'１つのシートを更新する
Private Sub Update1Sheet(ByVal bookname As String, ByVal ws As Worksheet)
    '支店名＋課名＋担当者名
    trg_key = ws.Cells(2, "C").Value & "|" & ws.Cells(3, "C").Value & "|" & ws.Cells(4, "C").Value
    '1部,2部,3部のピボットシート内に担当者の集計月の行が１件もない場合は、警告メッセージを出力し、その担当者をスキップする
    If HON1dicT.exists(trg_key) = False And HON2dicT.exists(trg_key) = False And HON3dicT.exists(trg_key) = False Then
        warnP = warnP & bookname & "(" & ws.name & ")" & trg_key & vbLf
    End If
    '集計月に対応するカラム位置を取得
    trg_col = GetColNumber(trg_mm)
    '個人シートに値を設定する
    Call set_value(bookname, ws, trg_mode)
End Sub
'個人シートに値の設定を行う
Private Sub set_value(ByVal bookname As String, ByVal ws As Worksheet, ByVal mode As String)
    Dim col1 As Long    '数量のカラム位置
    Dim col2 As Long    '粗利のカラム位置
    'カラム位置の設定
    col1 = trg_col + 3
    col2 = trg_col + 8
    '実績（当年）の場合は1カラム右へ設定
    If mode = JISSEKI Then
        col1 = col1 + 1
        col2 = col2 + 1
    End If
    '3部集計
    '                                 PVシート名,取得列,条件列,条件値,PV辞書,PV行情報
    ws.Cells(9, col1).Value = GetValue(HON3sheet, "I", "H", "1", HON3dicT, HON3Rows)      'A（数量）
    ws.Cells(9, col2).Value = GetValue(HON3sheet, "K", "H", "1", HON3dicT, HON3Rows)      'A（粗利）
    ws.Cells(10, col1).Value = GetValue(HON3sheet, "I", "H", "2", HON3dicT, HON3Rows)      'B（数量）
    ws.Cells(10, col2).Value = GetValue(HON3sheet, "K", "H", "2", HON3dicT, HON3Rows)      'B（粗利）
    ws.Cells(11, col1).Value = GetValue(HON3sheet, "I", "H", "3", HON3dicT, HON3Rows)      'C（数量）
    ws.Cells(11, col2).Value = GetValue(HON3sheet, "K", "H", "3", HON3dicT, HON3Rows)      'C（粗利）
    ws.Cells(12, col1).Value = GetValue(HON3sheet, "I", "H", "4", HON3dicT, HON3Rows)      'D（数量）
    ws.Cells(12, col2).Value = GetValue(HON3sheet, "K", "H", "4", HON3dicT, HON3Rows)      'D（粗利）
    ws.Cells(13, col1).Value = GetValue(HON3sheet, "I", "H", "5", HON3dicT, HON3Rows)      'E（数量）
    ws.Cells(13, col2).Value = GetValue(HON3sheet, "K", "H", "5", HON3dicT, HON3Rows)      'E（粗利）
    ws.Cells(14, col1).Value = GetValue(HON3sheet, "I", "H", "6", HON3dicT, HON3Rows)      'F（数量）
    ws.Cells(14, col2).Value = GetValue(HON3sheet, "K", "H", "6", HON3dicT, HON3Rows)      'F（粗利）
    ws.Cells(15, col1).Value = GetValue(HON3sheet, "I", "H", "7", HON3dicT, HON3Rows)      'G（数量）
    ws.Cells(15, col2).Value = GetValue(HON3sheet, "K", "H", "7", HON3dicT, HON3Rows)      'G（粗利）
    ws.Cells(16, col1).Value = GetValue(HON3sheet, "I", "H", "8", HON3dicT, HON3Rows)      'H（数量）
    ws.Cells(16, col2).Value = GetValue(HON3sheet, "K", "H", "8", HON3dicT, HON3Rows)      'H（粗利）
    ws.Cells(17, col1).Value = GetValue(HON3sheet, "I", "H", "9", HON3dicT, HON3Rows)      'I（数量）
    ws.Cells(17, col2).Value = GetValue(HON3sheet, "K", "H", "9", HON3dicT, HON3Rows)      'I（粗利）
    ws.Cells(18, col1).Value = GetValue(HON3sheet, "J", "F", "10", HON3dicT, HON3Rows)      'J（数量）
    ws.Cells(18, col2).Value = GetValue(HON3sheet, "K", "F", "10", HON3dicT, HON3Rows)      'J（粗利）
    '1部集計
    ws.Cells(20, col1).Value = GetValue(HON1sheet, "I", "H", "1", HON1dicT, HON1Rows)     'K（数量）
    ws.Cells(20, col2).Value = GetValue(HON1sheet, "K", "H", "1", HON1dicT, HON1Rows)     'K（粗利）
    ws.Cells(21, col1).Value = GetValue(HON1sheet, "I", "H", "2", HON1dicT, HON1Rows)     'L（数量）
    ws.Cells(21, col2).Value = GetValue(HON1sheet, "K", "H", "2", HON1dicT, HON1Rows)     'L（粗利）
    ws.Cells(22, col1).Value = GetValue(HON1sheet, "I", "H", "3", HON1dicT, HON1Rows)     'M（数量）
    ws.Cells(22, col2).Value = GetValue(HON1sheet, "K", "H", "3", HON1dicT, HON1Rows)     'M（粗利）
    ws.Cells(23, col1).Value = GetValue(HON1sheet, "I", "H", "4", HON1dicT, HON1Rows)     'N（数量）
    ws.Cells(23, col2).Value = GetValue(HON1sheet, "K", "H", "4", HON1dicT, HON1Rows)     'N（粗利）
    ws.Cells(24, col1).Value = GetValue(HON1sheet, "I", "H", "5", HON1dicT, HON1Rows)     'O（数量）
    ws.Cells(24, col2).Value = GetValue(HON1sheet, "K", "H", "5", HON1dicT, HON1Rows)     'O（粗利）
    ws.Cells(26, col1).Value = GetValue(HON1sheet, "J", "F", "1", HON1dicT, HON1Rows)     'P（数量）
    ws.Cells(26, col2).Value = GetValue(HON1sheet, "K", "F", "1", HON1dicT, HON1Rows)     'P（粗利）
    ws.Cells(27, col1).Value = GetValue(HON1sheet, "J", "F", "2", HON1dicT, HON1Rows)     'Q（数量）
    ws.Cells(27, col2).Value = GetValue(HON1sheet, "K", "F", "2", HON1dicT, HON1Rows)     'Q（粗利）
    '2部集計
    ws.Cells(30, col1).Value = GetValue(HON2sheet, "F", "B", "4", HON2dicT, HON2Rows)     '1（数量）
    ws.Cells(30, col2).Value = GetValue(HON2sheet, "H", "B", "4", HON2dicT, HON2Rows)     '1（粗利）
    ws.Cells(31, col1).Value = GetValue(HON2sheet, "F", "B", "5", HON2dicT, HON2Rows)     '2（数量）
    ws.Cells(31, col2).Value = GetValue(HON2sheet, "H", "B", "5", HON2dicT, HON2Rows)     '2（粗利）
    ws.Cells(32, col1).Value = GetValue(HON2sheet, "G", "B", "6", HON2dicT, HON2Rows)     '3（数量）
    ws.Cells(32, col2).Value = GetValue(HON2sheet, "H", "B", "6", HON2dicT, HON2Rows)     '3（粗利）
End Sub
'ピボットシートから値を取得する
Private Function GetValue(ByVal sheet_name, ByVal g_col As String, ByVal col1 As String, ByVal val1 As Variant, ByVal dicT As Object, ByRef TRows() As Long) As Variant
    Dim ix As Long
    Dim j, row, ctr As Long
    Dim gval As Variant 'PVシートから取得した集計対象値
    Dim gval1 As Variant 'PVシートから取得した条件値
    GetValue = Empty '取得値初期化
    '担当者のデータがないなら終了
    If dicT.exists(trg_key) = False Then Exit Function
    '担当者の添字とシート名を決定
    ix = dicT(trg_key)
    ctr = TRows(ix, 0)
    '該当する行の数ぶん繰り返す
    For j = 1 To ctr
        row = TRows(ix, j) '行番号取得
        '値を取得する
        gval = Workbooks(Uri_book).Worksheets(sheet_name).Cells(row, g_col).Value
         '取得値が空白でなく、かつ、取得条件が成立するなら、加算する
        If gval <> "" Then
            '取得したデータが数字でない場合は、エラー表示後、処理を打ち切る
            If IsNumeric(gval) = False Then
                MsgBox ("不正データ検出。以下のデータを正しく修正して下さい。処理を打ち切ります。")
                MsgBox ("ブック名[" & Uri_book & "] シート名(" & sheet_name & ")" & " 行番号=" & row & " 列=" & g_col)
                MsgBox (gval)
                Workbooks(Uri_book).Activate
                Workbooks(Uri_book).Worksheets(sheet_name).Activate
                Workbooks(Uri_book).Worksheets(sheet_name).Cells(row, g_col).Select
                End
            End If
            '条件の値を取得
            gval1 = Workbooks(Uri_book).Worksheets(sheet_name).Cells(row, col1).Text
            '条件が成立するなら加算する
            If gval1 = val1 Then
                GetValue = GetValue + gval
            End If
        End If
     Next
 End Function
'ピボットテーブル読み込み
Private Sub readPivot(ByVal sheet_name As String, ByVal dicT As Object, ByRef TRows() As Long)
    Dim index As Long
    Dim sh As Worksheet
    Dim maxrow, row As Long
    Dim dmonth, key As String
    index = 0
    dmonth = trg_mm & "月"
    Set sh = Worksheets(sheet_name)
    maxrow = sh.Cells(Rows.count, "A").End(xlUp).row 'Sheet1 A列最大行
    '3行から最終行まで繰り返す
    For row = 3 To maxrow
        '集計月に一致するなら、テーブルに格納する（集計年は今のところ使用しない）
        If sh.Cells(row, "A").Text = dmonth Then
            '支店名＋課名＋担当者名
            key = sh.Cells(row, "D").Value & "|" & sh.Cells(row, "E").Value & "|" & sh.Cells(row, "C").Value
            Call add_table(sheet_name, dicT, TRows, index, row, key)
        End If
    Next
End Sub
'テーブル登録
Private Sub add_table(ByVal sheet_name As String, ByVal dicT As Object, ByRef TRows() As Long, ByRef index As Long, ByVal row, ByVal key As String)
    Dim i, j As Long
    If dicT.exists(key) = True Then
        i = dicT(key)
        j = TRows(i, 0)
        j = j + 1
        If j > Rmax Then
            MsgBox (sheet_name & "で1人のひと月の最大行数オーバー Rmaxを大きくしてください。Rmax=" & Rmax)
            End
        End If
        TRows(i, 0) = j
        TRows(i, j) = row
    Else
        If index > Pmax Then
            MsgBox (sheet_name & "で従業員の最大数オーバー Pmaxを大きくしてください。Pmax=" & Pmax)
            End
        End If
        dicT(key) = index
        TRows(index, 0) = 1
        TRows(index, 1) = row
        index = index + 1
    End If
End Sub
'指定月から指定月対応のカラム位置（計画数量）を計算する
'カラム位置は1からの連番
'10月=4 ... 9月=184
Private Function GetColNumber(ByVal mm As Long)
    Dim x, ix As Long
    If mm < 10 Then mm = mm + 12
    x = mm - 10
    ix = x + x \ 3 + x \ 6
    GetColNumber = 4 + 12 * ix
End Function
'ピボット情報を出力する
Private Sub OutPivot()
    Call OutPivotUnit("1部", HON1dicT, HON1Rows)
    Call OutPivotUnit("2部", HON2dicT, HON2Rows)
    Call OutPivotUnit("3部", HON3dicT, HON3Rows)
End Sub
'部単位でピボット情報を出力する
Private Sub OutPivotUnit(ByVal sheetName As String, ByVal dicT As Object, ByRef TRows() As Long)
    Dim ws As Worksheet
    Dim key As Variant
    Dim row, col, ix, ctr, i, gno As Long
    ThisWorkbook.Activate
    Set ws = Worksheets(sheetName)
    ws.Cells.Clear
    row = 0
    '全てのキーを処理する
    For Each key In dicT
        ix = dicT(key)
        row = row + 1
        'キー印字
        ws.Cells(row, 1).Value = key
        ctr = TRows(ix, 0)
        '行番号印字
        For i = 1 To ctr
            gno = TRows(ix, i)
            col = i + 1
            ws.Cells(row, col).Value = gno
        Next
    Next
End Sub
 

T3B0aW9uIEV4cGxpY2l0CiAgICBDb25zdCBQbWF4IEFzIExvbmcgPSAxMDAgICAgJ+W+k+alreWToeS6uuOBruacgOWkp+aVsAogICAgQ29uc3QgUm1heCBBcyBMb25nID0gNjAwICAgICcx44OU44Oc44OD44OI44K344O844OI5YaF44GuMeS6uuOBruOBsuOBqOaciOOBruacgOWkp+ihjOaVsAoKICAgIERpbSBIT04xUm93cyhQbWF4LCBSbWF4KSBBcyBMb25nICAn5pys5bm0MemDqOOBruihjOaDheWgsQogICAgJyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg5bem5YG044Gu5re75a2X77yd5ZCE5YCL5Lq644Gr5Ymy5b2T44KJ44KM44Gf55Wq5Y+3KDAtMTAwKQogICAgJyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg5Y+z5YG044Gu5re75a2X77ydMOeVquebruOBr+S7pemZjeOBruimgee0oOaVsOOCkuekuuOBmeOAgu+8iOS+iyDjgZPjga7lgKTjgYwz44Gu5pmC44CB6KaB57Sg5pWwM+OBquOBruOBp+OAgTPnlarnm67jga7mt7vlrZfjgb7jgafmnInlirnvvIkKICAgICcgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIOWPs+WBtOOBrua3u+Wtl++8nTHnlarnm67ku6XpmY3jga/jgIHooYznlarlj7fjgpLnpLrjgZnjgIIKICAgIERpbSBIT04yUm93cyhQbWF4LCBSbWF4KSBBcyBMb25nICAn5pys5bm0MumDqOOBruihjOaDheWgse+8iOa3u+Wtl+OBr+acrOW5tDHpg6jjgajlkIzmp5jvvIkKICAgIERpbSBIT04zUm93cyhQbWF4LCBSbWF4KSBBcyBMb25nICAn5pys5bm0M+mDqOOBruihjOaDheWgse+8iOa3u+Wtl+OBr+acrOW5tDHpg6jjgajlkIzmp5jvvIkKICAgIERpbSBIT04xZGljVCBBcyBPYmplY3QgICAgICAgICAgICAn5pys5bm0MemDqOOBrui+nuabuOOAgOOCreODvO+8muaUr+W6l+WQje+8i+iqsuWQje+8i+WAi+S6uuWQjSDlgKTvvJrooYzmg4XloLHjg4bjg7zjg5bjg6vjga7mt7vlrZcoMC0xMDApCiAgICBEaW0gSE9OMmRpY1QgQXMgT2JqZWN0ICAgICAgICAgICAgJ+acrOW5tDLpg6jjga7ovp7mm7gg77yI44Kt44O844Go5YCk44Gv5pys5bm0MemDqOOBqOWQjOanmO+8iQogICAgRGltIEhPTjNkaWNUIEFzIE9iamVjdCAgICAgICAgICAgICfmnKzlubQz6YOo44Gu6L6e5pu4IO+8iOOCreODvOOBqOWApOOBr+acrOW5tDHpg6jjgajlkIzmp5jvvIkKICAgIENvbnN0IEhPTjFzaGVldCBBcyBTdHJpbmcgPSAiMemDqOacrOW5tFAiCiAgICBDb25zdCBIT04yc2hlZXQgQXMgU3RyaW5nID0gIjLpg6jmnKzlubRQIgogICAgQ29uc3QgSE9OM3NoZWV0IEFzIFN0cmluZyA9ICIz6YOo5pys5bm0UCIKICAgIENvbnN0IEpJU1NFS0kgQXMgU3RyaW5nID0gIuWun+e4viIgICAgICAgICAgICflrp/nuL4KICAgIENvbnN0IFpFTk5FTiAgQXMgU3RyaW5nID0gIuWJjeW5tCIgICAgICAgICAgICfliY3lubQKICAgIERpbSBVcmlfYm9vayBBcyBTdHJpbmcgICAgICAgICAgICAgICflo7LkuIrmmI7ntLDjg4fjg7zjgr/jg5bjg4Pjgq/lkI0KICAgIERpbSB0cmdfeXl5eSBBcyBMb25nICAgICAgICAgICAgICAgICfmjIflrprlubQKICAgIERpbSB0cmdfbW0gQXMgTG9uZyAgICAgICAgICAgICAgICAgICfmjIflrprmnIgKICAgIERpbSBKaXNfZm9sZGVyIEFzIFN0cmluZyAgICAgICAgICAgICflrp/nuL7jg5Xjgqnjg6vjg4AKICAgIERpbSBLZWlfZm9sZGVyIEFzIFN0cmluZyAgICAgICAgICAgICfoqIjnlLvjg5Xjgqnjg6vjg4AKICAgIERpbSB0cmdfa2V5IEFzIFN0cmluZyAgICAgICAgICAgICAgICflgIvkurrlkI3jgq3jg7wKICAgIERpbSB0cmdfY29sIEFzIExvbmcgICAgICAgICAgICAgICAgICfnrpflh7rjgqvjg6njg6Dnlarlj7cKICAgIERpbSB0cmdfbW9kZSBBcyBTdHJpbmcgICAgICAgICAgICAgICflrp/nuL4v5YmN5bm0CiAgICBEaW0gd2FyblAgQXMgU3RyaW5nICAgICAgICAgICAgICAgICAn6K2m5ZGK5b6T5qWt5ZOhClB1YmxpYyBTdWIg5aOy5LiK5pyI5Y2Y5L2N6ZuG6KiIKCkKICAgIERpbSB3cyBBcyBXb3Jrc2hlZXQKICAgIERpbSB5eXl5LCBtbSwgZXh0IEFzIFZhcmlhbnQKICAgIERpbSB0MSwgdDIgQXMgVmFyaWFudAogICAgRGltIFVyaV9wYXRoIEFzIFN0cmluZwogICAgU2V0IEhPTjFkaWNUID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRGljdGlvbmFyeSIpCiAgICBTZXQgSE9OMmRpY1QgPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikKICAgIFNldCBIT04zZGljVCA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKQogICAgU2V0IHdzID0gV29ya3NoZWV0cygi566h55CGIikKICAgIHl5eXkgPSB3cy5DZWxscygyLCAiQSIpLlZhbHVlICAgICAgICAgICAgICAgJ+mbhuioiOW5tAogICAgSWYgeXl5eSA9ICIiIE9yIElzTnVtZXJpYyh5eXl5KSA9IEZhbHNlIFRoZW4KICAgICAgICBNc2dCb3ggKCLpm4boqIjlubTmnIjjgYzkuI3mraMiKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgIHRyZ195eXl5ID0geXl5eQogICAgSWYgdHJnX3l5eXkgPCAyMDEwIE9yIHRyZ195eXl5ID4gMjA5OSBUaGVuCiAgICAgICAgTXNnQm94ICgi6ZuG6KiI5bm05pyIKDIwMTAtMjA5OSnjgYznr4Tlm7LlpJYiKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgIG1tID0gd3MuQ2VsbHMoMiwgIkIiKS5WYWx1ZSAgICAgICAgICAgICAgICAgJ+mbhuioiOaciAogICAgSWYgbW0gPSAiIiBPciBJc051bWVyaWMobW0pID0gRmFsc2UgVGhlbgogICAgICAgIE1zZ0JveCAoIumbhuioiOaciOOBjOS4jeatoyIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgdHJnX21tID0gbW0KICAgIElmIHRyZ19tbSA8IDEgT3IgdHJnX21tID4gMTIgVGhlbgogICAgICAgIE1zZ0JveCAoIumbhuioiOaciCgxLTEyKeOBjOevhOWbsuWkliIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgdHJnX21vZGUgPSB3cy5DZWxscygyLCAiQyIpLlZhbHVlICAgICAgICAgICAn6ZuG6KiI6aCF55uuCiAgICBJZiB0cmdfbW9kZSA8PiBKSVNTRUtJIEFuZCB0cmdfbW9kZSA8PiBaRU5ORU4gVGhlbgogICAgICAgIE1zZ0JveCAoIumbhuioiOmgheebruOBjOS4jeatoyIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgSmlzX2ZvbGRlciA9IHdzLkNlbGxzKDIsICJEIikuVmFsdWUgICAgICAgICAgICAn5a6f57i+44OV44Kp44Or44OA5ZCNCiAgICBVcmlfYm9vayA9IHdzLkNlbGxzKDIsICJFIikuVmFsdWUgICAgICAgICAgICAgICflrp/nuL7lo7LkuIrmmI7ntLDjg5XjgqHjgqTjg6sKICAgICfmi6HlvLXlrZDjga7jg4Hjgqfjg4Pjgq8KICAgIGV4dCA9IFJpZ2h0KExDYXNlKFVyaV9ib29rKSwgNSkKICAgIElmIGV4dCA8PiAiLnhsc3giIEFuZCBleHQgPD4gIi54bHNtIiBUaGVuCiAgICAgICAgTXNnQm94ICgi5a6f57i+44OV44Kh44Kk44Or5ZCN44GM5LiN5q2jIikKICAgICAgICBFeGl0IFN1YgogICAgRW5kIElmCiAgICBLZWlfZm9sZGVyID0gd3MuQ2VsbHMoMiwgIkYiKS5WYWx1ZSAgICAgICAgICAgICfoqIjnlLvjg5Xjgqnjg6vjg4DlkI0KICAgIAogICAgSWYgRGlyKEppc19mb2xkZXIsIHZiRGlyZWN0b3J5KSA9ICIiIFRoZW4KICAgICAgICBNc2dCb3ggKCLlrp/nuL7jg5Xjgqnjg6vjg4DjgYzlrZjlnKjjgZfjgb7jgZvjgpM8IiAmIEppc19mb2xkZXIgJiAiPiIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgSWYgRGlyKEtlaV9mb2xkZXIsIHZiRGlyZWN0b3J5KSA9ICIiIFRoZW4KICAgICAgICBNc2dCb3ggKCLoqIjnlLvjg5Xjgqnjg6vjg4DjgYzlrZjlnKjjgZfjgb7jgZvjgpM8IiAmIEtlaV9mb2xkZXIgJiAiPiIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgJ+WjsuS4iuaYjue0sOODluODg+OCr+WQjeioreWumgogICAgVXJpX3BhdGggPSBKaXNfZm9sZGVyICYgIlwiICYgVXJpX2Jvb2sKICAgICdNc2dCb3ggKCLjg5XjgqHjgqTjg6vlkI08IiAmIFVyaV9ib29rICYgIj4iKSAn6L+95Yqg4pGgCiAgICAnTXNnQm94ICgi44OV44Or44OR44K55ZCNPCIgJiBVcmlfcGF0aCAmICI+IikgJ+i/veWKoOKRoQogICAgJ01zZ0JveCAoR2V0QXR0cihVcmlfcGF0aCkpICfov73liqDikaIKICAgIElmIERpcihVcmlfcGF0aCkgPSAiIiBUaGVuCiAgICAgICAgTXNnQm94IChVcmlfcGF0aCAmICLjgYzlrZjlnKjjgZfjgb7jgZvjgpMiKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKCiAgICBJZiBNc2dCb3godHJnX3l5eXkgJiAi5bm0IiAmIHRyZ19tbSAmICLmnIjjga4iICYgdHJnX21vZGUgJiAi44KSIiAmIFVyaV9ib29rICYgIuOBi+OCiembhuioiOOBl+OBvuOBmSIsIHZiT0tDYW5jZWwpIDw+IHZiT0sgVGhlbiBFeGl0IFN1YgogICAgdDEgPSBUaW1lcgogICAgd2FyblAgPSAiIgogICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBGYWxzZQogICAgJ+WjsuS4iuaYjue0sOODluODg+OCr+WQjeOCquODvOODl+ODswogICAgV29ya2Jvb2tzLk9wZW4gVXJpX3BhdGgKICAgIFdvcmtib29rcyhVcmlfYm9vaykuQWN0aXZhdGUKICAgICfjg5Tjg5zjg4Pjg4jjg4fjg7zjgr/oqq3jgb/ovrzjgb8KICAgIENhbGwgcmVhZFBpdm90KEhPTjFzaGVldCwgSE9OMWRpY1QsIEhPTjFSb3dzKQogICAgQ2FsbCByZWFkUGl2b3QoSE9OMnNoZWV0LCBIT04yZGljVCwgSE9OMlJvd3MpCiAgICBDYWxsIHJlYWRQaXZvdChIT04zc2hlZXQsIEhPTjNkaWNULCBIT04zUm93cykKICAgIENhbGwgT3V0UGl2b3QgJ+ODlOODnOODg+ODiOaDheWgseWHuuWKm+ODu+ODu+ODu+ODu+ODu+i/veWKoOKRoAogICAgJ+ioiOeUu+ODleOCqeODq+ODgOWGheOBruWFqOODluODg+OCr+OCkuabtOaWsOOBmeOCiwogICAgQ2FsbCBVcGRhdGVBbGxCb29rcyhLZWlfZm9sZGVyKQogICAgV29ya2Jvb2tzKFVyaV9ib29rKS5DbG9zZQogICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBUcnVlCiAgICB0MiA9IFRpbWVyCiAgICBNc2dCb3ggKCLlh6bnkIblrozkuoYg5omA6KaB5pmC6ZaTKOenkik9IiAmIHQyIC0gdDEpCiAgICBJZiB3YXJuUCA8PiAiIiBUaGVuCiAgICAgICAgTXNnQm94ICgi5LiL6KiY5b6T5qWt5ZOh44Gv44CBMemDqCwy6YOoLDPpg6jjga7kvZXjgozjga7jg5Tjg5zjg4Pjg4jjgavjgoLpm4boqIjmnIjjga7jg4fjg7zjgr/jgarjgZfjgIIiICYgdmJMZiAmIHdhcm5QKQogICAgRW5kIElmCkVuZCBTdWIKCifoqIjnlLvjg5Xjgqnjg6vjg4DlhoXjga7lhajjgabjga7jg5bjg4Pjgq/jgpLmm7TmlrDjgZnjgosKUHJpdmF0ZSBTdWIgVXBkYXRlQWxsQm9va3MoQnlWYWwgS2VpX2ZvbGRlciBBcyBTdHJpbmcpCiAgICBEaW0gYm9va25hbWUgQXMgU3RyaW5nCiAgICBib29rbmFtZSA9IERpcihLZWlfZm9sZGVyICYgIlwqLnhsc3giLCB2Yk5vcm1hbCkKICAgIElmIGJvb2tuYW1lID0gIiIgVGhlbgogICAgICAgIE1zZ0JveCAoS2VpX2ZvbGRlciAmICLlhoXjgavmlK/lupfliKXvvIboqrLliKXvvIjlgIvkurrjg4fjg7zjgr/vvInjg5bjg4Pjgq/jgYzlrZjlnKjjgZfjgb7jgZvjgpPjgIIiKQogICAgICAgIEVuZAogICAgRW5kIElmCiAgICAn5YWo44Gm44Gu44OW44OD44Kv44KS5pu05paw44GZ44KLCiAgICBEbyBXaGlsZSBib29rbmFtZSA8PiAiIgogICAgICAgIENhbGwgVXBkYXRlMUJvb2soS2VpX2ZvbGRlciwgYm9va25hbWUpCiAgICAgICAgYm9va25hbWUgPSBEaXIoKQogICAgTG9vcApFbmQgU3ViCgon77yR44Gk44Gu44OW44OD44Kv44KS5pu05paw44GZ44KLClByaXZhdGUgU3ViIFVwZGF0ZTFCb29rKEJ5VmFsIEtlaV9mb2xkZXIgQXMgU3RyaW5nLCBCeVZhbCBib29rbmFtZSBBcyBTdHJpbmcpCiAgICBEaW0gd3MgQXMgV29ya3NoZWV0CiAgICBEaW0gaSBBcyBMb25nCiAgICBXb3JrYm9va3MuT3BlbiBLZWlfZm9sZGVyICYgIlwiICYgYm9va25hbWUKICAgICflt6blgbTjga7jgrfjg7zjg4jjgYvjgonpoIbjgavlh6bnkIbjgZnjgosKICAgIEZvciBpID0gMSBUbyBXb3Jrc2hlZXRzLmNvdW50CiAgICAgICAgU2V0IHdzID0gV29ya3NoZWV0cyhpKQogICAgICAgICflkIjoqIjjgrfjg7zjg4jmpJzlh7rmmYLjgIHntYLkuoYKICAgICAgICBJZiB3cy5uYW1lID0gIuWQiOioiCIgVGhlbiBFeGl0IEZvcgogICAgICAgIElmIHdzLm5hbWUgPSAi5oug54K56KiIIiBUaGVuIEV4aXQgRm9yICfov73liqDikaEKICAgICAgICAn77yR44Gk44Gu44K344O844OI44KS5pu05paw44GZ44KLCiAgICAgICAgQ2FsbCBVcGRhdGUxU2hlZXQoYm9va25hbWUsIHdzKQogICAgTmV4dAogICAgJ+ODluODg+OCr+OCkuS/neWtmOOBl+OAgemWieOBmOOCiwogICAgV29ya2Jvb2tzKGJvb2tuYW1lKS5TYXZlCiAgICBXb3JrYm9va3MoYm9va25hbWUpLkNsb3NlCkVuZCBTdWIKJ++8keOBpOOBruOCt+ODvOODiOOCkuabtOaWsOOBmeOCiwpQcml2YXRlIFN1YiBVcGRhdGUxU2hlZXQoQnlWYWwgYm9va25hbWUgQXMgU3RyaW5nLCBCeVZhbCB3cyBBcyBXb3Jrc2hlZXQpCiAgICAn5pSv5bqX5ZCN77yL6Kqy5ZCN77yL5ouF5b2T6ICF5ZCNCiAgICB0cmdfa2V5ID0gd3MuQ2VsbHMoMiwgIkMiKS5WYWx1ZSAmICJ8IiAmIHdzLkNlbGxzKDMsICJDIikuVmFsdWUgJiAifCIgJiB3cy5DZWxscyg0LCAiQyIpLlZhbHVlCiAgICAnMemDqCwy6YOoLDPpg6jjga7jg5Tjg5zjg4Pjg4jjgrfjg7zjg4jlhoXjgavmi4XlvZPogIXjga7pm4boqIjmnIjjga7ooYzjgYzvvJHku7bjgoLjgarjgYTloLTlkIjjga/jgIHorablkYrjg6Hjg4Pjgrvjg7zjgrjjgpLlh7rlipvjgZfjgIHjgZ3jga7mi4XlvZPogIXjgpLjgrnjgq3jg4Pjg5fjgZnjgosKICAgIElmIEhPTjFkaWNULmV4aXN0cyh0cmdfa2V5KSA9IEZhbHNlIEFuZCBIT04yZGljVC5leGlzdHModHJnX2tleSkgPSBGYWxzZSBBbmQgSE9OM2RpY1QuZXhpc3RzKHRyZ19rZXkpID0gRmFsc2UgVGhlbgogICAgICAgIHdhcm5QID0gd2FyblAgJiBib29rbmFtZSAmICIoIiAmIHdzLm5hbWUgJiAiKSIgJiB0cmdfa2V5ICYgdmJMZgogICAgRW5kIElmCiAgICAn6ZuG6KiI5pyI44Gr5a++5b+c44GZ44KL44Kr44Op44Og5L2N572u44KS5Y+W5b6XCiAgICB0cmdfY29sID0gR2V0Q29sTnVtYmVyKHRyZ19tbSkKICAgICflgIvkurrjgrfjg7zjg4jjgavlgKTjgpLoqK3lrprjgZnjgosKICAgIENhbGwgc2V0X3ZhbHVlKGJvb2tuYW1lLCB3cywgdHJnX21vZGUpCkVuZCBTdWIKJ+WAi+S6uuOCt+ODvOODiOOBq+WApOOBruioreWumuOCkuihjOOBhgpQcml2YXRlIFN1YiBzZXRfdmFsdWUoQnlWYWwgYm9va25hbWUgQXMgU3RyaW5nLCBCeVZhbCB3cyBBcyBXb3Jrc2hlZXQsIEJ5VmFsIG1vZGUgQXMgU3RyaW5nKQogICAgRGltIGNvbDEgQXMgTG9uZyAgICAn5pWw6YeP44Gu44Kr44Op44Og5L2N572uCiAgICBEaW0gY29sMiBBcyBMb25nICAgICfnspfliKnjga7jgqvjg6njg6DkvY3nva4KICAgICfjgqvjg6njg6DkvY3nva7jga7oqK3lrpoKICAgIGNvbDEgPSB0cmdfY29sICsgMwogICAgY29sMiA9IHRyZ19jb2wgKyA4CiAgICAn5a6f57i+77yI5b2T5bm077yJ44Gu5aC05ZCI44GvMeOCq+ODqeODoOWPs+OBuOioreWumgogICAgSWYgbW9kZSA9IEpJU1NFS0kgVGhlbgogICAgICAgIGNvbDEgPSBjb2wxICsgMQogICAgICAgIGNvbDIgPSBjb2wyICsgMQogICAgRW5kIElmCiAgICAnM+mDqOmbhuioiAogICAgJyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBW44K344O844OI5ZCNLOWPluW+l+WIlyzmnaHku7bliJcs5p2h5Lu25YCkLFBW6L6e5pu4LFBW6KGM5oOF5aCxCiAgICB3cy5DZWxscyg5LCBjb2wxKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIkkiLCAiSCIsICIxIiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdB77yI5pWw6YeP77yJCiAgICB3cy5DZWxscyg5LCBjb2wyKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIksiLCAiSCIsICIxIiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdB77yI57KX5Yip77yJCiAgICB3cy5DZWxscygxMCwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJJIiwgIkgiLCAiMiIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnQu+8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMTAsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSyIsICJIIiwgIjIiLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0LvvIjnspfliKnvvIkKICAgIHdzLkNlbGxzKDExLCBjb2wxKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIkkiLCAiSCIsICIzIiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdD77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygxMSwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJLIiwgIkgiLCAiMyIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnQ++8iOeyl+WIqe+8iQogICAgd3MuQ2VsbHMoMTIsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSSIsICJIIiwgIjQiLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0TvvIjmlbDph4/vvIkKICAgIHdzLkNlbGxzKDEyLCBjb2wyKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIksiLCAiSCIsICI0IiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdE77yI57KX5Yip77yJCiAgICB3cy5DZWxscygxMywgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJJIiwgIkgiLCAiNSIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnRe+8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMTMsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSyIsICJIIiwgIjUiLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0XvvIjnspfliKnvvIkKICAgIHdzLkNlbGxzKDE0LCBjb2wxKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIkkiLCAiSCIsICI2IiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdG77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygxNCwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJLIiwgIkgiLCAiNiIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnRu+8iOeyl+WIqe+8iQogICAgd3MuQ2VsbHMoMTUsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSSIsICJIIiwgIjciLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0fvvIjmlbDph4/vvIkKICAgIHdzLkNlbGxzKDE1LCBjb2wyKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIksiLCAiSCIsICI3IiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdH77yI57KX5Yip77yJCiAgICB3cy5DZWxscygxNiwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJJIiwgIkgiLCAiOCIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnSO+8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMTYsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSyIsICJIIiwgIjgiLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0jvvIjnspfliKnvvIkKICAgIHdzLkNlbGxzKDE3LCBjb2wxKS5WYWx1ZSA9IEdldFZhbHVlKEhPTjNzaGVldCwgIkkiLCAiSCIsICI5IiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdJ77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygxNywgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJLIiwgIkgiLCAiOSIsIEhPTjNkaWNULCBIT04zUm93cykgICAgICAnSe+8iOeyl+WIqe+8iQogICAgd3MuQ2VsbHMoMTgsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OM3NoZWV0LCAiSiIsICJGIiwgIjEwIiwgSE9OM2RpY1QsIEhPTjNSb3dzKSAgICAgICdK77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygxOCwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04zc2hlZXQsICJLIiwgIkYiLCAiMTAiLCBIT04zZGljVCwgSE9OM1Jvd3MpICAgICAgJ0rvvIjnspfliKnvvIkKICAgICcx6YOo6ZuG6KiICiAgICB3cy5DZWxscygyMCwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJJIiwgIkgiLCAiMSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdL77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyMCwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkgiLCAiMSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdL77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyMSwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJJIiwgIkgiLCAiMiIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdM77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyMSwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkgiLCAiMiIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdM77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyMiwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJJIiwgIkgiLCAiMyIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdN77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyMiwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkgiLCAiMyIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdN77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyMywgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJJIiwgIkgiLCAiNCIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdO77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyMywgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkgiLCAiNCIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdO77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyNCwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJJIiwgIkgiLCAiNSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdP77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyNCwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkgiLCAiNSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdP77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyNiwgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJKIiwgIkYiLCAiMSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdQ77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyNiwgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkYiLCAiMSIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdQ77yI57KX5Yip77yJCiAgICB3cy5DZWxscygyNywgY29sMSkuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJKIiwgIkYiLCAiMiIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdR77yI5pWw6YeP77yJCiAgICB3cy5DZWxscygyNywgY29sMikuVmFsdWUgPSBHZXRWYWx1ZShIT04xc2hlZXQsICJLIiwgIkYiLCAiMiIsIEhPTjFkaWNULCBIT04xUm93cykgICAgICdR77yI57KX5Yip77yJCiAgICAnMumDqOmbhuioiAogICAgd3MuQ2VsbHMoMzAsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiRiIsICJCIiwgIjQiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnMe+8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMzAsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiSCIsICJCIiwgIjQiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnMe+8iOeyl+WIqe+8iQogICAgd3MuQ2VsbHMoMzEsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiRiIsICJCIiwgIjUiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnMu+8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMzEsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiSCIsICJCIiwgIjUiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnMu+8iOeyl+WIqe+8iQogICAgd3MuQ2VsbHMoMzIsIGNvbDEpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiRyIsICJCIiwgIjYiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnM++8iOaVsOmHj++8iQogICAgd3MuQ2VsbHMoMzIsIGNvbDIpLlZhbHVlID0gR2V0VmFsdWUoSE9OMnNoZWV0LCAiSCIsICJCIiwgIjYiLCBIT04yZGljVCwgSE9OMlJvd3MpICAgICAnM++8iOeyl+WIqe+8iQpFbmQgU3ViCifjg5Tjg5zjg4Pjg4jjgrfjg7zjg4jjgYvjgonlgKTjgpLlj5blvpfjgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiBHZXRWYWx1ZShCeVZhbCBzaGVldF9uYW1lLCBCeVZhbCBnX2NvbCBBcyBTdHJpbmcsIEJ5VmFsIGNvbDEgQXMgU3RyaW5nLCBCeVZhbCB2YWwxIEFzIFZhcmlhbnQsIEJ5VmFsIGRpY1QgQXMgT2JqZWN0LCBCeVJlZiBUUm93cygpIEFzIExvbmcpIEFzIFZhcmlhbnQKICAgIERpbSBpeCBBcyBMb25nCiAgICBEaW0gaiwgcm93LCBjdHIgQXMgTG9uZwogICAgRGltIGd2YWwgQXMgVmFyaWFudCAnUFbjgrfjg7zjg4jjgYvjgonlj5blvpfjgZfjgZ/pm4boqIjlr77osaHlgKQKICAgIERpbSBndmFsMSBBcyBWYXJpYW50ICdQVuOCt+ODvOODiOOBi+OCieWPluW+l+OBl+OBn+adoeS7tuWApAogICAgR2V0VmFsdWUgPSBFbXB0eSAn5Y+W5b6X5YCk5Yid5pyf5YyWCiAgICAn5ouF5b2T6ICF44Gu44OH44O844K/44GM44Gq44GE44Gq44KJ57WC5LqGCiAgICBJZiBkaWNULmV4aXN0cyh0cmdfa2V5KSA9IEZhbHNlIFRoZW4gRXhpdCBGdW5jdGlvbgogICAgJ+aLheW9k+iAheOBrua3u+Wtl+OBqOOCt+ODvOODiOWQjeOCkuaxuuWumgogICAgaXggPSBkaWNUKHRyZ19rZXkpCiAgICBjdHIgPSBUUm93cyhpeCwgMCkKICAgICfoqbLlvZPjgZnjgovooYzjga7mlbDjgbbjgpPnubDjgorov5TjgZkKICAgIEZvciBqID0gMSBUbyBjdHIKICAgICAgICByb3cgPSBUUm93cyhpeCwgaikgJ+ihjOeVquWPt+WPluW+lwogICAgICAgICflgKTjgpLlj5blvpfjgZnjgosKICAgICAgICBndmFsID0gV29ya2Jvb2tzKFVyaV9ib29rKS5Xb3Jrc2hlZXRzKHNoZWV0X25hbWUpLkNlbGxzKHJvdywgZ19jb2wpLlZhbHVlCiAgICAgICAgICflj5blvpflgKTjgYznqbrnmb3jgafjgarjgY/jgIHjgYvjgaTjgIHlj5blvpfmnaHku7bjgYzmiJDnq4vjgZnjgovjgarjgonjgIHliqDnrpfjgZnjgosKICAgICAgICBJZiBndmFsIDw+ICIiIFRoZW4KICAgICAgICAgICAgJ+WPluW+l+OBl+OBn+ODh+ODvOOCv+OBjOaVsOWtl+OBp+OBquOBhOWgtOWQiOOBr+OAgeOCqOODqeODvOihqOekuuW+jOOAgeWHpueQhuOCkuaJk+OBoeWIh+OCiwogICAgICAgICAgICBJZiBJc051bWVyaWMoZ3ZhbCkgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgICAgICBNc2dCb3ggKCLkuI3mraPjg4fjg7zjgr/mpJzlh7rjgILku6XkuIvjga7jg4fjg7zjgr/jgpLmraPjgZfjgY/kv67mraPjgZfjgabkuIvjgZXjgYTjgILlh6bnkIbjgpLmiZPjgaHliIfjgorjgb7jgZnjgIIiKQogICAgICAgICAgICAgICAgTXNnQm94ICgi44OW44OD44Kv5ZCNWyIgJiBVcmlfYm9vayAmICJdIOOCt+ODvOODiOWQjSgiICYgc2hlZXRfbmFtZSAmICIpIiAmICIg6KGM55Wq5Y+3PSIgJiByb3cgJiAiIOWIlz0iICYgZ19jb2wpCiAgICAgICAgICAgICAgICBNc2dCb3ggKGd2YWwpCiAgICAgICAgICAgICAgICBXb3JrYm9va3MoVXJpX2Jvb2spLkFjdGl2YXRlCiAgICAgICAgICAgICAgICBXb3JrYm9va3MoVXJpX2Jvb2spLldvcmtzaGVldHMoc2hlZXRfbmFtZSkuQWN0aXZhdGUKICAgICAgICAgICAgICAgIFdvcmtib29rcyhVcmlfYm9vaykuV29ya3NoZWV0cyhzaGVldF9uYW1lKS5DZWxscyhyb3csIGdfY29sKS5TZWxlY3QKICAgICAgICAgICAgICAgIEVuZAogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgJ+adoeS7tuOBruWApOOCkuWPluW+lwogICAgICAgICAgICBndmFsMSA9IFdvcmtib29rcyhVcmlfYm9vaykuV29ya3NoZWV0cyhzaGVldF9uYW1lKS5DZWxscyhyb3csIGNvbDEpLlRleHQKICAgICAgICAgICAgJ+adoeS7tuOBjOaIkOeri+OBmeOCi+OBquOCieWKoOeul+OBmeOCiwogICAgICAgICAgICBJZiBndmFsMSA9IHZhbDEgVGhlbgogICAgICAgICAgICAgICAgR2V0VmFsdWUgPSBHZXRWYWx1ZSArIGd2YWwKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICAgTmV4dAogRW5kIEZ1bmN0aW9uCifjg5Tjg5zjg4Pjg4jjg4bjg7zjg5bjg6voqq3jgb/ovrzjgb8KUHJpdmF0ZSBTdWIgcmVhZFBpdm90KEJ5VmFsIHNoZWV0X25hbWUgQXMgU3RyaW5nLCBCeVZhbCBkaWNUIEFzIE9iamVjdCwgQnlSZWYgVFJvd3MoKSBBcyBMb25nKQogICAgRGltIGluZGV4IEFzIExvbmcKICAgIERpbSBzaCBBcyBXb3Jrc2hlZXQKICAgIERpbSBtYXhyb3csIHJvdyBBcyBMb25nCiAgICBEaW0gZG1vbnRoLCBrZXkgQXMgU3RyaW5nCiAgICBpbmRleCA9IDAKICAgIGRtb250aCA9IHRyZ19tbSAmICLmnIgiCiAgICBTZXQgc2ggPSBXb3Jrc2hlZXRzKHNoZWV0X25hbWUpCiAgICBtYXhyb3cgPSBzaC5DZWxscyhSb3dzLmNvdW50LCAiQSIpLkVuZCh4bFVwKS5yb3cgJ1NoZWV0MSBB5YiX5pyA5aSn6KGMCiAgICAnM+ihjOOBi+OCieacgOe1guihjOOBvuOBp+e5sOOCiui/lOOBmQogICAgRm9yIHJvdyA9IDMgVG8gbWF4cm93CiAgICAgICAgJ+mbhuioiOaciOOBq+S4gOiHtOOBmeOCi+OBquOCieOAgeODhuODvOODluODq+OBq+agvOe0jeOBmeOCi++8iOmbhuioiOW5tOOBr+S7iuOBruOBqOOBk+OCjeS9v+eUqOOBl+OBquOBhO+8iQogICAgICAgIElmIHNoLkNlbGxzKHJvdywgIkEiKS5UZXh0ID0gZG1vbnRoIFRoZW4KICAgICAgICAgICAgJ+aUr+W6l+WQje+8i+iqsuWQje+8i+aLheW9k+iAheWQjQogICAgICAgICAgICBrZXkgPSBzaC5DZWxscyhyb3csICJEIikuVmFsdWUgJiAifCIgJiBzaC5DZWxscyhyb3csICJFIikuVmFsdWUgJiAifCIgJiBzaC5DZWxscyhyb3csICJDIikuVmFsdWUKICAgICAgICAgICAgQ2FsbCBhZGRfdGFibGUoc2hlZXRfbmFtZSwgZGljVCwgVFJvd3MsIGluZGV4LCByb3csIGtleSkKICAgICAgICBFbmQgSWYKICAgIE5leHQKRW5kIFN1Ygon44OG44O844OW44Or55m76YyyClByaXZhdGUgU3ViIGFkZF90YWJsZShCeVZhbCBzaGVldF9uYW1lIEFzIFN0cmluZywgQnlWYWwgZGljVCBBcyBPYmplY3QsIEJ5UmVmIFRSb3dzKCkgQXMgTG9uZywgQnlSZWYgaW5kZXggQXMgTG9uZywgQnlWYWwgcm93LCBCeVZhbCBrZXkgQXMgU3RyaW5nKQogICAgRGltIGksIGogQXMgTG9uZwogICAgSWYgZGljVC5leGlzdHMoa2V5KSA9IFRydWUgVGhlbgogICAgICAgIGkgPSBkaWNUKGtleSkKICAgICAgICBqID0gVFJvd3MoaSwgMCkKICAgICAgICBqID0gaiArIDEKICAgICAgICBJZiBqID4gUm1heCBUaGVuCiAgICAgICAgICAgIE1zZ0JveCAoc2hlZXRfbmFtZSAmICLjgacx5Lq644Gu44Gy44Go5pyI44Gu5pyA5aSn6KGM5pWw44Kq44O844OQ44O8IFJtYXjjgpLlpKfjgY3jgY/jgZfjgabjgY/jgaDjgZXjgYTjgIJSbWF4PSIgJiBSbWF4KQogICAgICAgICAgICBFbmQKICAgICAgICBFbmQgSWYKICAgICAgICBUUm93cyhpLCAwKSA9IGoKICAgICAgICBUUm93cyhpLCBqKSA9IHJvdwogICAgRWxzZQogICAgICAgIElmIGluZGV4ID4gUG1heCBUaGVuCiAgICAgICAgICAgIE1zZ0JveCAoc2hlZXRfbmFtZSAmICLjgaflvpPmpa3lk6Hjga7mnIDlpKfmlbDjgqrjg7zjg5Djg7wgUG1heOOCkuWkp+OBjeOBj+OBl+OBpuOBj+OBoOOBleOBhOOAglBtYXg9IiAmIFBtYXgpCiAgICAgICAgICAgIEVuZAogICAgICAgIEVuZCBJZgogICAgICAgIGRpY1Qoa2V5KSA9IGluZGV4CiAgICAgICAgVFJvd3MoaW5kZXgsIDApID0gMQogICAgICAgIFRSb3dzKGluZGV4LCAxKSA9IHJvdwogICAgICAgIGluZGV4ID0gaW5kZXggKyAxCiAgICBFbmQgSWYKRW5kIFN1Ygon5oyH5a6a5pyI44GL44KJ5oyH5a6a5pyI5a++5b+c44Gu44Kr44Op44Og5L2N572u77yI6KiI55S75pWw6YeP77yJ44KS6KiI566X44GZ44KLCifjgqvjg6njg6DkvY3nva7jga8x44GL44KJ44Gu6YCj55WqCicxMOaciD00IC4uLiA55pyIPTE4NApQcml2YXRlIEZ1bmN0aW9uIEdldENvbE51bWJlcihCeVZhbCBtbSBBcyBMb25nKQogICAgRGltIHgsIGl4IEFzIExvbmcKICAgIElmIG1tIDwgMTAgVGhlbiBtbSA9IG1tICsgMTIKICAgIHggPSBtbSAtIDEwCiAgICBpeCA9IHggKyB4IFwgMyArIHggXCA2CiAgICBHZXRDb2xOdW1iZXIgPSA0ICsgMTIgKiBpeApFbmQgRnVuY3Rpb24KJ+ODlOODnOODg+ODiOaDheWgseOCkuWHuuWKm+OBmeOCiwpQcml2YXRlIFN1YiBPdXRQaXZvdCgpCiAgICBDYWxsIE91dFBpdm90VW5pdCgiMemDqCIsIEhPTjFkaWNULCBIT04xUm93cykKICAgIENhbGwgT3V0UGl2b3RVbml0KCIy6YOoIiwgSE9OMmRpY1QsIEhPTjJSb3dzKQogICAgQ2FsbCBPdXRQaXZvdFVuaXQoIjPpg6giLCBIT04zZGljVCwgSE9OM1Jvd3MpCkVuZCBTdWIKJ+mDqOWNmOS9jeOBp+ODlOODnOODg+ODiOaDheWgseOCkuWHuuWKm+OBmeOCiwpQcml2YXRlIFN1YiBPdXRQaXZvdFVuaXQoQnlWYWwgc2hlZXROYW1lIEFzIFN0cmluZywgQnlWYWwgZGljVCBBcyBPYmplY3QsIEJ5UmVmIFRSb3dzKCkgQXMgTG9uZykKICAgIERpbSB3cyBBcyBXb3Jrc2hlZXQKICAgIERpbSBrZXkgQXMgVmFyaWFudAogICAgRGltIHJvdywgY29sLCBpeCwgY3RyLCBpLCBnbm8gQXMgTG9uZwogICAgVGhpc1dvcmtib29rLkFjdGl2YXRlCiAgICBTZXQgd3MgPSBXb3Jrc2hlZXRzKHNoZWV0TmFtZSkKICAgIHdzLkNlbGxzLkNsZWFyCiAgICByb3cgPSAwCiAgICAn5YWo44Gm44Gu44Kt44O844KS5Yem55CG44GZ44KLCiAgICBGb3IgRWFjaCBrZXkgSW4gZGljVAogICAgICAgIGl4ID0gZGljVChrZXkpCiAgICAgICAgcm93ID0gcm93ICsgMQogICAgICAgICfjgq3jg7zljbDlrZcKICAgICAgICB3cy5DZWxscyhyb3csIDEpLlZhbHVlID0ga2V5CiAgICAgICAgY3RyID0gVFJvd3MoaXgsIDApCiAgICAgICAgJ+ihjOeVquWPt+WNsOWtlwogICAgICAgIEZvciBpID0gMSBUbyBjdHIKICAgICAgICAgICAgZ25vID0gVFJvd3MoaXgsIGkpCiAgICAgICAgICAgIGNvbCA9IGkgKyAxCiAgICAgICAgICAgIHdzLkNlbGxzKHJvdywgY29sKS5WYWx1ZSA9IGdubwogICAgICAgIE5leHQKICAgIE5leHQKRW5kIFN1Ygo=