Imports System.IO

Public Class frmProgDetails
    Private PROG As New cProgramme
    Public codename As String = ""

    Dim sicherheitsfrageUeberspringen = False


    Private Sub frmProgDetails_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        'Dim usrCntlProgramme As New usrCntlProgramme
        'usrCntlProgramme.init()
    End Sub

    Private Sub frmProgDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
        init()
    End Sub
    Public Sub showData()
        If codename = "ADMIN" Then picIcon.Image = My.Resources.admin
        If codename = "UID" Then picIcon.Image = My.Resources.uid_ico
        If codename = "DISPO" Then picIcon.Image = My.Resources.dispo_ico
        If codename = "PARKZEIT" Then picIcon.Image = My.Resources.parkzeit
        If codename = "MONITORING" Then picIcon.Image = My.Resources.admin
        If codename = "ROUTINE_MANAGER" Then picIcon.Image = My.Resources.admin_monitoring
        If codename = "MAIL_SENDER" Then picIcon.Image = My.Resources.admin_monitoring
        If codename = "DOKU" Then picIcon.Image = My.Resources.doku_sym



        lblTitel.Text = codename

        Dim daten As cProgramm = Nothing
        ' daten = New cProgramm
        daten = PROG.getProgrammByCodeName(codename)
        txtSourcePfad.Text = daten.prog_source_path
        txtDevPfad.Text = daten.prog_dev_path
        txtProdPfad.Text = daten.prog_prod_path
        txtInstallSourcePfad.Text = daten.prog_installer_source_path
        txtInstallDevPfad.Text = daten.prog_installer_dev_path
        txtInstallProdPfad.Text = daten.prog_installer_prod_path
        txtVersion.Text = daten.prog_aktuelleVersion
        txtInfo.Text = daten.prog_info

        txtProdPfadAtilla.Text = daten.prog_prod_path_atilla
        txtInstallProdPfadAtilla.Text = daten.prog_installer_prod_path_atilla

        txtProdPfadImex.Text = daten.prog_prod_path_imex
        txtInstallProdPfadimex.Text = daten.prog_installer_prod_path_imex

        txtProdPfadSBG.Text = daten.prog_prod_path_SBG
        txtInstallProdPfadSBG.Text = daten.prog_installer_prod_path_SBG

        txtProdPfadWAI.Text = daten.prog_prod_path_WAI
        txtInstallProdPfadWAI.Text = daten.prog_installer_prod_path_WAI

        txtProdPfadNKD.Text = daten.prog_prod_path_NKD
        txtInstallProdPfadNKD.Text = daten.prog_installer_prod_path_NKD

        txtProdPfadNEU.Text = daten.prog_prod_path_NEU
        txtInstallProdPfadNEU.Text = daten.prog_installer_prod_path_NEU
         
    End Sub

    Private Sub btnVersionAkt_Click(sender As Object, e As EventArgs) Handles btnVersionAkt.Click
        PROG.setProgrammVersion(codename, txtVersion.Text)
        init()
    End Sub

    Private Sub btnSourceAkt_Click(sender As Object, e As EventArgs) Handles btnSourceAkt.Click
        PROG.setParam("prog_source_path", txtSourcePfad.Text, codename)
        init()
    End Sub
    Private Sub init()
        If codename = "NEW" Then
            btnInsert.Visible = True
            grpName.Visible = True
            btnDevAkt.Visible = False
            btnDevCopy.Visible = False
            btnInstallDevAkt.Visible = False
            btnInstallDevCopy.Visible = False
            btnInstallProdAkt.Visible = False
            btnInstallProdCopy.Visible = False
            btnInstallSourceAkt.Visible = False
            btnProdAkt.Visible = False
            btnProdCopy.Visible = False
            btnSourceAkt.Visible = False
            btnVersionAkt.Visible = False
            btnAktInfo.Visible = False
            lblTitelDetails.Visible = False
            lblTitel.Visible = False
            picIcon.Visible = False
        Else
            showData()
        End If

    End Sub

    Private Sub btnDevAkt_Click(sender As Object, e As EventArgs) Handles btnDevAkt.Click
        PROG.setParam("prog_dev_path", txtDevPfad.Text, codename)
        init()
    End Sub

    Private Sub btnProdAkt_Click(sender As Object, e As EventArgs) Handles btnProdAkt.Click
        PROG.setParam("prog_prod_path", txtProdPfad.Text, codename)
        init()
    End Sub

    Private Sub btnInstallSourceAkt_Click(sender As Object, e As EventArgs) Handles btnInstallSourceAkt.Click
        PROG.setParam("prog_installer_source_path", txtInstallSourcePfad.Text, codename)
        init()
    End Sub

    Private Sub btnInstallDevAkt_Click(sender As Object, e As EventArgs) Handles btnInstallDevAkt.Click
        PROG.setParam("prog_installer_dev_path", txtInstallDevPfad.Text, codename)
        init()
    End Sub

    Private Sub btnInstallProdAkt_Click(sender As Object, e As EventArgs) Handles btnInstallProdAkt.Click
        PROG.setParam("prog_installer_prod_path", txtInstallProdPfad.Text, codename)
        init()
    End Sub

    Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        Dim daten As New cProgramm
        daten.prog_codename = txtProgramCodeName.Text
        daten.prog_name = txtProgramName.Text
        daten.prog_aktuelleVersion = txtVersion.Text
        daten.prog_info = txtInfo.Text
        daten.prog_source_path = txtSourcePfad.Text
        daten.prog_dev_path = txtDevPfad.Text
        daten.prog_prod_path = txtProdPfad.Text
        daten.prog_installer_source_path = txtInstallSourcePfad.Text
        daten.prog_installer_dev_path = txtInstallDevPfad.Text
        daten.prog_installer_prod_path = txtInstallProdPfad.Text


        daten.prog_installer_prod_path_atilla = txtProdPfadAtilla.Text
        daten.prog_prod_path_atilla = txtInstallProdPfadAtilla.Text
        daten.prog_prod_path_imex = txtProdPfadImex.Text
        daten.prog_installer_prod_path_imex = txtInstallProdPfadimex.Text
        daten.prog_prod_path_SBG = txtProdPfadSBG.Text
        daten.prog_installer_prod_path_SBG = txtInstallProdPfadSBG.Text
        daten.prog_prod_path_WAI = txtProdPfadWAI.Text
        daten.prog_installer_prod_path_WAI = txtInstallProdPfadWAI.Text
        daten.prog_prod_path_NKD = txtProdPfadNKD.Text
        daten.prog_installer_prod_path_NKD = txtInstallProdPfadNKD.Text
        daten.prog_prod_path_NEU = txtProdPfadNEU.Text
        daten.prog_installer_prod_path_NEU = txtInstallProdPfadNEU.Text
         

        If PROG.insertProgramm(daten) Then Me.Close()

    End Sub

    Private Sub btnAktInfo_Click(sender As Object, e As EventArgs) Handles btnAktInfo.Click
        PROG.setParam("prog_info", txtInfo.Text, codename)
        init()
    End Sub

    Sub setBG(sender As Button, erg As Boolean)
        If erg Then
            sender.BackColor = Color.LightGreen
        Else
            sender.BackColor = Color.Red
        End If
    End Sub

    Dim PROG_FUNC As New cProgramFunctions

    Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "")
        sender.BackColor = Color.LightGray
        Application.DoEvents()
        Me.Refresh()
        If von = "" Then sender.BackColor = Color.White : Exit Sub
        If nach = "" Then sender.BackColor = Color.White : Exit Sub
        If checkSicherheitsfrage(von, nach) Then
            setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx))
        End If
        Application.DoEvents()
        Me.Refresh()

        If standort <> "" Then
            SaveLogFile(nach, standort)
        End If

    End Sub



    Function checkSicherheitsfrage(von, nach) As Boolean
        If sicherheitsfrageUeberspringen Then Return True
        If vbYes = MsgBox("Möchten Sie folgende Aktion ausführen?:" & vbNewLine & vbNewLine & " Kopiere alle Files von: " & von & vbNewLine & "Nach: " & nach, vbYesNo, "Aktion ausführen?") Then
            Return True
        End If
        Return False
    End Function
    Private Sub btnDevCopy_Click(sender As Object, e As EventArgs) Handles btnDevCopy.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtDevPfad.Text, cbxZip.Checked)
    End Sub

    Private Sub btnProdCopy_Click(sender As Object, e As EventArgs) Handles btnProdCopy.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfad.Text, cbxZip.Checked)

    End Sub

    Private Sub btnInstallDevCopy_Click(sender As Object, e As EventArgs) Handles btnInstallDevCopy.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallDevPfad.Text, cbxZip.Checked)

    End Sub

    Private Sub btnInstallProdCopy_Click(sender As Object, e As EventArgs) Handles btnInstallProdCopy.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfad.Text, cbxZip.Checked)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PROG.setParam("prog_prod_path_atilla", txtProdPfadAtilla.Text, codename)
        init()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PROG.setParam("prog_installer_prod_path_atilla", txtInstallProdPfadAtilla.Text, codename)
        init()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadAtilla.Text, cbxZip.Checked, If(cbxStandorttxtErstellen.Checked, "ATILLA", ""))
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadAtilla.Text, cbxZip.Checked)

    End Sub


    Sub genTxtStandort(pfadAtilla)
        Try
            If Not File.Exists(pfadAtilla & "Standort.txt") Then
                File.Create(pfadAtilla & "Standort.txt")
            End If

            '   Dim fs As New FileStream(pfadAtilla & "Standort.txt", FileMode.CreateNew)
            ''   Dim sw As New StreamWriter(fs)
            '  sw.WriteLine("ATILLA")
            '  sw.Close()


            My.Computer.FileSystem.WriteAllText(pfadAtilla & "Standort.txt", "ATILLA", False)

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Public Sub SaveLogFile(Pfad, TEXT)
        If Pfad.trim = "" Then Exit Sub
        Dim Dateiname As String = "\Standort.txt"

        Dim streami As FileStream
        If Directory.Exists(Pfad) = True Then
            streami = File.Create(Pfad & Dateiname)
        Else
            Directory.CreateDirectory(Pfad)
            streami = File.Create(Pfad & Dateiname)
        End If

        Dim cfile As StreamWriter = New StreamWriter(streami, System.Text.Encoding.Default)

        cfile.WriteLine(TEXT)
        cfile.Close()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        PROG.setParam("prog_prod_path_imex", txtProdPfadImex.Text, codename)
        init()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadImex.Text, cbxZip.Checked, If(cbxStandorttxtErstellenImex.Checked, "IMEX", ""))

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        PROG.setParam("prog_installer_prod_path_imex", txtInstallProdPfadimex.Text, codename)
        init()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadimex.Text, cbxZip.Checked)

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        PROG.setParam("prog_prod_path_sbg", txtProdPfadSBG.Text, codename)
        init()
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadSBG.Text, cbxZip.Checked, If(cbxStandorttxtErstellenSBG.Checked, "SBG", ""))

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        PROG.setParam("prog_installer_prod_path_sbg", txtInstallProdPfadSBG.Text, codename)
        init()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadSBG.Text, cbxZip.Checked)

    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        If vbYes = MsgBox("Möchten Sie die Programmdaten an alle NL verteilen?", vbYesNo, "Aktion ausführen?") Then
            sicherheitsfrageUeberspringen = True
            btnDevCopy.PerformClick()
            btnProdCopy.PerformClick()
            Button2.PerformClick()
            Button6.PerformClick()
            Button12.PerformClick()
            Button16.PerformClick()
            Button18.PerformClick()
            Button20.PerformClick()
        End If
        sicherheitsfrageUeberspringen = False
    End Sub


    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If vbYes = MsgBox("Möchten Sie die Programmdaten an alle NL verteilen?", vbYesNo, "Aktion ausführen?") Then
            sicherheitsfrageUeberspringen = True
            btnInstallDevCopy.PerformClick()
            btnInstallProdCopy.PerformClick()
            Button4.PerformClick()
            Button8.PerformClick()
            Button10.PerformClick()
            Button22.PerformClick()
            Button24.PerformClick()
            Button26.PerformClick()
        End If
        sicherheitsfrageUeberspringen = False
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        PROG.setParam("prog_prod_path_wai", txtProdPfadWAI.Text, codename)
        init()
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        PROG.setParam("prog_prod_path_nkd", txtProdPfadNKD.Text, codename)
        init()
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        PROG.setParam("prog_prod_path_neu", txtProdPfadNEU.Text, codename)
        init()
    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        PROG.setParam("prog_installer_prod_path_wai", txtInstallProdPfadWAI.Text, codename)
        init()
    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
        init()
    End Sub

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
        init()
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadWAI.Text, cbxZip.Checked, If(cbxStandorttxtErstellenWAI.Checked, "WAI", ""))

    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadNKD.Text, cbxZip.Checked, If(cbxStandorttxtErstellenNKD.Checked, "NKD", ""))

    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadNEU.Text, cbxZip.Checked, If(cbxStandorttxtErstellenNEU.Checked, "NEU", ""))

    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadWAI.Text, cbxZip.Checked)

    End Sub

    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)

    End Sub

    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
        copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)

    End Sub
End Class