parent
beaf9f4530
commit
24c634b943
|
@ -1,35 +0,0 @@
|
|||
#!/bin/ksh
|
||||
# Dependencias: xinput
|
||||
#
|
||||
# Autor: Tuxliban Torvalds <o-sanchez@linuxmail.org>
|
||||
|
||||
script="${0##*/}"
|
||||
|
||||
function ayuda {
|
||||
printf %s "\
|
||||
Script para desactivar teclado interno en portátiles mientras se está en el servidor gráfico.
|
||||
|
||||
Uso: $script [arg]
|
||||
Ejemplo:
|
||||
$script on Activa teclado interno
|
||||
$script off Desactiva teclado interno
|
||||
$script --help, -h Muestra este mensaje de ayuda
|
||||
|
||||
"
|
||||
}
|
||||
|
||||
# Salir si existe un error
|
||||
set -e
|
||||
|
||||
ID=$(xinput --list | awk '/Translated/ {print $7}' | cut -d '=' -f 2)
|
||||
|
||||
case "$1" in
|
||||
on)
|
||||
xinput set-int-prop "$ID" "Device Enabled" 8 1
|
||||
;;
|
||||
off)
|
||||
xinput set-int-prop "$ID" "Device Enabled" 8 0
|
||||
;;
|
||||
--help|-h|*)
|
||||
ayuda
|
||||
esac
|
|
@ -1,14 +0,0 @@
|
|||
#!/bin/ksh
|
||||
# Script que muestra el porcentaje activo del volumen del sistema
|
||||
# Dependencias: alsa-utils
|
||||
#
|
||||
# Autor: Tuxliban Torvalds <o-sanchez@linuxmail.org>
|
||||
|
||||
STATUS=$(amixer get Master | awk -F'[][]' 'END{ print $6 }')
|
||||
LEVEL=$(amixer get Master | awk -F'[][]' 'END{ print $2 }')
|
||||
|
||||
if [[ $STATUS == on ]]; then
|
||||
print "VOL $LEVEL"
|
||||
else
|
||||
print "VOL mute"
|
||||
fi
|
|
@ -1,106 +0,0 @@
|
|||
#!/bin/ksh
|
||||
#
|
||||
# Script que elimina paquetes de la caché que ya no están instalados en el sistema
|
||||
#
|
||||
# NOTA: En caso de usar doas, es necesario que en el archivo de configuración se
|
||||
# tenga configurada la persistencia, de lo contrario por cada archivo por eliminar
|
||||
# será necesario confirmar introduciendo lo contraseña.
|
||||
#
|
||||
# Lista de códigos de salida
|
||||
# 0 - éxito
|
||||
# 9 - operación exitosa, pero no se encontraron archivos para eliminar
|
||||
# 10 - operación exitosa, pero no se eliminaron los archivos encontrados
|
||||
# 11 - respuesta seleccionada inválida
|
||||
# 12 - mensaje de ayuda mostrado
|
||||
#
|
||||
# Autor: Tuxliban Torvalds <o-sanchez@linuxmail.org>
|
||||
|
||||
script="${0##*/}"
|
||||
|
||||
function ayuda {
|
||||
printf %s "\
|
||||
$script ayuda a eliminar definitivamente aquellos paquetes que quedan guardados en la caché del sistema.
|
||||
|
||||
Modo de uso:
|
||||
$script <argumento>
|
||||
|
||||
--list | -l Muestra una lista de los paquetes que la no están en uso
|
||||
--help | -h Muestra este mensaje de ayuda
|
||||
|
||||
"
|
||||
}
|
||||
|
||||
# Identificar cómo escalar permisos de administrador
|
||||
function admin {
|
||||
if command -v sudo >/dev/null && sudo -l | grep -q -e ' ALL$' -e xbps-install; then
|
||||
print sudo
|
||||
elif command -v doas >/dev/null && [ -f /etc/doas.conf ]; then
|
||||
print doas
|
||||
elif [[ $(id -u) != 0 ]]; then
|
||||
print su
|
||||
fi
|
||||
}
|
||||
|
||||
cache_dir=/var/cache/xbps
|
||||
_arch=$(xbps-uhelper arch) # Obtener arquitectura
|
||||
|
||||
function lista {
|
||||
# Obtener lista de paquetes instalados en el sistema
|
||||
xbps-query -l | awk '{print $2}' > /tmp/installed.txt
|
||||
|
||||
# Obtener lista de paquetes en la caché del sistema
|
||||
for package in /var/cache/xbps/*.xbps; do
|
||||
base=${package##*/}
|
||||
print "${base%."$_arch".xbps}"
|
||||
done > /tmp/cache.txt
|
||||
_diff=$(diff /tmp/cache.txt /tmp/installed.txt | awk '/</ {print $2}')
|
||||
|
||||
if [[ -n $_diff ]]; then
|
||||
# Mostrar lista de paquetes que no están en la caché y que no se encuentran instalados
|
||||
printf '%s\n\n' "Los siguiente paquetes ya no se encuentran instalados en el sistema:"
|
||||
printf '%s\n' $_diff | column
|
||||
else
|
||||
printf '%s\n\n' "No hay paquetes por eliminar"
|
||||
exit 9
|
||||
fi
|
||||
}
|
||||
|
||||
case $1 in
|
||||
-l|--list)
|
||||
lista
|
||||
printf '\n%s\n' "¿Deseas eliminar los paquetes? s/n"
|
||||
read -r respuesta
|
||||
|
||||
case "$respuesta" in
|
||||
[sS])
|
||||
diff /tmp/cache.txt /tmp/installed.txt | awk '/</ {print $2}' > /tmp/delete.txt
|
||||
print "Ingrese la contraseña de administrador:"
|
||||
print "Eliminando los paquetes..."
|
||||
while read -r pkg; do
|
||||
cmd=$(admin)
|
||||
if [ "$cmd" = "sudo" ]; then
|
||||
sudo rm -fv "${cache_dir}/${pkg}.${_arch}.xbps"
|
||||
elif [ "$cmd" = "doas" ]; then
|
||||
doas rm -fv "${cache_dir}/${pkg}.${_arch}.xbps"
|
||||
elif [ "$cmd" = "su" ]; then
|
||||
su -c "rm -fv ${cache_dir}/${pkg}.${_arch}.xbps"
|
||||
fi
|
||||
done < /tmp/delete.txt
|
||||
rm -f /tmp/*.txt
|
||||
exit 0
|
||||
;;
|
||||
[nN])
|
||||
rm -f /tmp/*.txt
|
||||
exit 10
|
||||
;;
|
||||
*)
|
||||
print "Respuesta inválida."
|
||||
rm -f /tmp/*.txt
|
||||
exit 11
|
||||
esac
|
||||
;;
|
||||
-h|--help|*)
|
||||
ayuda
|
||||
exit 12
|
||||
esac
|
||||
|
Loading…
Reference in New Issue