He encontrado un problema al intentar correr la versión Taller_2015-0.3.75.tar.bz2 con la subrutina GetDistribution()
Por si te sirve te comento que yo hice una función para averiguar la distro.
Public Function Distro() As String 'devuelve la distribución instalada xmi
Dim sDis As String
Shell "lsb_release -d | cut -d':' -f2" To sDis
Replace(sDis, gb.Tab, "")
sDis = Trim(sDis)
Return sDis
End
Public Function DistroShort() As String
Dim strDistro As String
Dim strDistroShort As String
Dim stxDistros As New String[]
Dim stxDistro As New String[]
Dim intN As Integer
Shell "lsb_release -d | cut -d':' -f2" To strDistro
Replace(strDistro, gb.Tab, "")
strDistro = Trim(strDistro)
strDistro = strDistro
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = String.LCase(strDistro)
stxDistros.clear
stxDistro.clear
stxDistros.Add("arch")
stxDistros.Add("debian")
stxDistros.Add("fedora")
stxDistros.Add("redhat")
stxDistros.Add("gentoo")
stxDistros.Add("manjaro")
stxDistros.Add("mint")
stxDistros.Add("opensuse")
stxDistros.Add("ubuntu")
stxDistro = Split(strDistro, " ")
strDistroShort = "Desconocida"
For intN = 0 To stxDistro.Max
If stxDistros.Find(stxDistro[intN]) <> -1 Then
strDistroShort = stxDistro[intN]
Break
Endif
Next
Return strDistroShort
End
Dim sDis As String
Shell "lsb_release -d | cut -d':' -f2" To sDis
Replace(sDis, gb.Tab, "")
sDis = Trim(sDis)
Return sDis
End
Public Function DistroShort() As String
Dim strDistro As String
Dim strDistroShort As String
Dim stxDistros As New String[]
Dim stxDistro As New String[]
Dim intN As Integer
Shell "lsb_release -d | cut -d':' -f2" To strDistro
Replace(strDistro, gb.Tab, "")
strDistro = Trim(strDistro)
strDistro = strDistro
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = String.LCase(strDistro)
stxDistros.clear
stxDistro.clear
stxDistros.Add("arch")
stxDistros.Add("debian")
stxDistros.Add("fedora")
stxDistros.Add("redhat")
stxDistros.Add("gentoo")
stxDistros.Add("manjaro")
stxDistros.Add("mint")
stxDistros.Add("opensuse")
stxDistros.Add("ubuntu")
stxDistro = Split(strDistro, " ")
strDistroShort = "Desconocida"
For intN = 0 To stxDistro.Max
If stxDistros.Find(stxDistro[intN]) <> -1 Then
strDistroShort = stxDistro[intN]
Break
Endif
Next
Return strDistroShort
End
Saludos.
Uruguay
