Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Encuesta De Distribucion Con Lsb_release
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Encuesta De Distribucion Con Lsb_release 
 
Hola a todos.
Hace un tiempo hice una función para obtener el nombre de la distribución GNU/Linux, funciona bien y hace lo que se espera.
Con la intención de que esta función contemple todas las distribuciones (por lo menos de los que estamos en este foro) me gustaría saber, si serian tan amables de usar esta función  en vuestro sistema y que comenten si funciona bien o si les dice "Desconocida"  en cuyo caso por favor envíen la salida del comando:
lsb_release -d | cut -d':' -f2

Saludos.

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

 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
Tincho:
Si funciona en mi equipo, detecta "mint", y la salida del comando que dices es:
Citar:
$ lsb_release -d | cut -d':' -f2
Linux Mint 18.2 Sonya

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
jsbsan escribió: [Ver mensaje]
Tincho:
Si funciona en mi equipo, detecta "mint", y la salida del comando que dices es:
Citar:
$ lsb_release -d | cut -d':' -f2
Linux Mint 18.2 Sonya

ok, perfecto, gracias.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
En mi caso la salida de consola pone debian y la salida del comando es:
Citar:

Debian GNU/Linux testing (buster)


Así que deduzco que funciona.  

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
Guizans escribió: [Ver mensaje]
En mi caso la salida de consola pone debian y la salida del comando es:
Citar:

Debian GNU/Linux testing (buster)


Así que deduzco que funciona.  

Un saludo.


Gracias, yo también tengo esa distro  

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
una imagen habla mas que mil palabras

 screenshot_20170726_223125
 




===================
------
Telegram : @sepulvedamarcos
 
chaskux - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
Hola... el comando
-----------------
lsb_release -d | cut -d':' -f2
-----------------

en Ubuntu me da: Ubuntu 16.04.2 LTS
y en Peppermint arroja: Peppermint 7 Seven

Saludos...
 



 
vicr - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
vicr escribió: [Ver mensaje]
Hola... en Ubuntu me da: Ubuntu 16.04.2 LTS y en Peppermint arroja: Peppermint 7 Seven...

Ok, gracias Vicr, agregue Peppermint a la lisa de distros en la funcion DistroShort() y en PkgStat()

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
tincho escribió: [Ver mensaje]
...para obtener el nombre de la distribución GNU/Linux

......sin Shell :    

Public Sub Main()
 
 Dim s As String
 
  s = Scan(File.Load("/etc/lsb-release"), "*DESCRIPTION=*\n")[1]
  
  Print s
  
End



o tambien:

Public Sub Main()
 
 Dim s As String
 
  s = Replace(File.Load("/etc/issue"), "\\", "\0")
  s = Scan(s, "*\0*")[0]
  
  Print s
  
End



o más brevemente:

Public Sub Main()
 
 Dim s As String
 
  s = File.Load("/etc/issue.net")
  
  Print s
  
End

 



 
última edición por vuott el Sabado, 29 Julio 2017, 19:15; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encuesta De Distribucion Con Lsb_release 
 
vuott escribió: [Ver mensaje]
......sin Shell :    
Public Sub Main()
 Dim s As String
  s = File.Load("/etc/issue.net")
  Print s
End


Ok, he cambiado la función en base a esta propuesta, que usa solo gambas y archivos del sistema. Siempre que se pueda ahorrar el paso "Shell" es una ventaja, así que muchas gracias Vuott.
Por otra parte el directorio /etc se encuentra lleno de archivos similares con información interesante.
Una duda que surge es que FreeBSD tiene el directorio /etc, al igual que GNU/Linux pero ¿Tiene también el archivo "/etc/issue.net"?

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario