Re: Interfaz dpkg>web
On Sun, Dec 27, 1998 at 05:13:40PM +0000, Antonio Calvo Rodriguez wrote:
> Este fin de semana e estado preparando unas paginas web para un servidor
> que tengo en el trabajo,
> me interesaria mostrar una lista de los paquetes instalados en el mismo,
> para ello he escrito
> este script, pero como mis conocimientos son bastante limitados, me
> gustaria saber si alguien
> ha escrito algo parecido , o por lo menos como filtrar los paquetes no
> instalados para reducir el
> tamaño de la pagina generada ).
>
Mira a ver si te vale esto ;-)
Si aun sigues queriendo hacer la tabla, me lo dices i te digo como hacerlo.
Bueno, feliz año nuevo a todos!!
--BEGIN--
#!/usr/local/bin/perl -w
#---------------------------------------------------------------------
# Nombre: deb2web [genera lista de debs instalados para la web]
#
#----------------------------------------------------------------------
# Leemos la lista de paquetes
open(DEBS, "dpkg -l |");
# Cabecera HTML
print <<EOF;
<html>
<head>
<title>Lista de paquetes instalados</title>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
</head
<body>
<pre>
Paquete Versión Descripción
--------------- -------------- --------------------------------------------
EOF
# Para cada linea
while($linea = <DEBS>) {
# Pasamos de la linea si el paquete no está instalado,
# i.e. el segundo carácter de la linea ha de ser "i"
next unless ($linea =~ /^.i/);
# Machacamos los primeros tres caracteres
$linea =~ s/^...//;
print "$linea";
}
# Final HTML
print <<EOF;
</pre>
</body>
</html>
EOF
close(DEBS);
--END--
--
Rafa C. Marcos
BCN Art Directe (Promotora d'Art)
http://www.bcnartdirecte.com
------------------------------------------------------------------------
Visit Internet Virtual Studios at: http://www.bcnartdirecte.com/studios
Reply to: