Añadir repositorios automáticamente: necesito beta-testers

Buen ejemplo de Show Me The Code.

Felicitaciones Luismago, yo estuve pensando en ello y llegue a la conclusion que ya tenemos una herramienta como esa easyurpmi tan solo habria que pasarla a modo local para no usar la interfaz web, digo que pasemos el codigo de easyurpmi a una aplicacion y que tenga dos modos un avanzado donde uno elija las cosas y un novato donde haga las cosas automaticamente. ¿Que piensas?

--
¿Quien es Jesucristo?

A portada. Animo. Yo lo voy a probar.
-----------------------------
Hemos venido a pasar el rato.

He hecho lo que pone en el Install y me da ésto:

[root@TxemaLinux jose]# addmedia.pl
Can't locate auto/urpm/read_config.al in @INC (@INC contains: /usr/lib/libDrakX /usr/lib/perl5/5.8.8/i386-linux /usr/lib/perl5/5.8.8 /usr/lib/perl5/site_perl/5.8.8/i386-linux /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.7/i386-linux /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl .) at /usr/sbin/addmedia.pl line 269

Ya me ofrecí en su día de testeador. Lo descargaré y probaré en cuanto tenga un hueco (pocos días)

Todo es relativo.

Clap, clap, clap, felcitaciones Luismago!!

Excelente iniciativa, postearé la noticia en Open Kairos, a fin de convocar a beta-testers!!

--
Sergio Belkin
Soluciones Informáticas Open Source
Mandriva Authorized Solutions Provider
http://www.openkairos.com
----------------------------------------

Yo esperaría que el script hiciese el respaldo de los repos ;), de esa manera, si por x motivo no funciona, lo ideal sería que por medio de un argumento se pudiese lograr que todo vuelva a su estado original si algún cambio se ha suscitado... lamentablemente no entiendo nada de perl por lo que solo me quedo un propuestas y beta tester. :D

Por cierto, en la primera prueba que hice el script me arrojó este mensaje al inicio del proceso:

[root@MDV2007 rookie-star]# ./addmedia.pl
no se puede acceder al archivo hdlist de «plf-free», soporte
 ignoradono se puede acceder al archivo hdlist de «plf-nonfree», 
soporte ignoradono se puede acceder al archivo hdlist de 
«plf-free_backports», soporte ignoradono se puede acceder al archivo
 hdlist de «plf-nonfree_backports», soporte ignoradono se puede 
acceder al archivo hdlist de «pacho», soporte ignoradono se puede 
acceder al archivo hdlist de «Non-free Updates», soporte ignoradono 
se puede acceder al archivo hdlist de «wisc-main», soporte 
ignoradono se puede acceder al archivo hdlist de 
«wisc-main_backports», soporte ignoradono se puede acceder al 
archivo hdlist de «wisc-contrib», soporte ignoradono se puede 
acceder al archivo hdlist de «wisc-contrib_updates», soporte 
ignoradono se puede acceder al archivo hdlist de 
«wisc-contrib_backports», soporte ignoradono se puede acceder al 
archivo hdlist de «wisc-main_updates», soporte ignoradoquitando el 
soporte «plf-free»

Luego, inmediatamente an la línea sgte. arrojó esto:

quitando el soporte «plf-nonfree»
quitando el soporte «plf-free_backports»
quitando el soporte «plf-nonfree_backports»
quitando el soporte «pacho»
quitando el soporte «Non-free Updates»
quitando el soporte «wisc-main»
quitando el soporte «wisc-main_backports»
quitando el soporte «wisc-contrib»
quitando el soporte «wisc-contrib_updates»
quitando el soporte «wisc-contrib_backports»
quitando el soporte «wisc-main_updates»

Es decir que borro todos los repos configurados y se supone que eso es lo que hace no es así, bueno, en este punto mi sugerencia, aunque reconozco que puede ser mucho pedir :D, sería que ojalá los repos antiguos no fuesen eliminados sino que deshabilitados, tal como se puede hacer en rpmdrake, ahora, yo no he logrado sber como se hace con algún urpm?, pero puede ser problema del idioma al leer el man, así es que si alguien sabe, pues que aproveche de contarme. thk! :D

en fin, continuando con el proceso, inmediatamente en la línea sgte, el script arrojó esto:

recuperando archivo media.cfg...
...recuperación hecha
añadido soporte Main (Official2007.0-1)
añadido soporte Main Updates (Official2007.0-2)
añadido soporte Main Testing (Official2007.0-3)
añadido soporte Main Backports (Official2007.0-4)
añadido soporte Contrib (Official2007.0-5)
añadido soporte Contrib Updates (Official2007.0-6)
añadido soporte Contrib Testing (Official2007.0-7)
añadido soporte Contrib Backports (Official2007.0-8)
añadido soporte PLF Free (Official2007.0-9)
añadido soporte PLF Non-free (Official2007.0-10)
añadido soporte PLF Free Backports (Official2007.0-11)
añadido soporte PLF Non-free Backports (Official2007.0-12)
recuperando hdlist fuente (o síntesis) de «Main (Official2007.0-1)»...
--22:47:27--  http://ftp.rediris.es/pub/linux/distributions/mandrakelinux/official/
2007.0/i586/media/media_info/hdlist_main.cz
           => `/var/cache/urpmi/partial/hdlist_main.cz'
Resolviendo ftp.rediris.es... 130.206.1.5
Connecting to ftp.rediris.es|130.206.1.5|:80... conectado.
Petición HTTP enviada, esperando respuesta... 200 OK
Longitud: 30,654,200 (29M) [text/plain]
The sizes do not match (local 13023360) -- retrieving.
--22:47:27--  http://ftp.rediris.es/pub/linux/distributions/mandrakelinux/official/
2007.0/i586/media/media_info/hdlist_main.cz
           => `/var/cache/urpmi/partial/hdlist_main.cz'
Connecting to ftp.rediris.es|130.206.1.5|:80... conectado.
Petición HTTP enviada, esperando respuesta... 200 OK
Longitud: 30,654,200 (29M) [text/plain]

100%[===========================================================================>] 30,654,200   124.66K/s    ETA 00:00

22:51:50 (114.16 KB/s) - `/var/cache/urpmi/partial/hdlist_main.cz' saved [30654200/30654200]

Y bueno, lo anterior se repitió con cada nuevo repositorio.

tic tac... tac tic :D otra sugerencia:

¿Por qué no usar el archivo de síntesis por defecto? que un argumento se encargue de permitir utilizar hdlist.cz. emho!
mis razones para postular esto es que de partida el usuario quiere ver que es linux, que hace linux, cual es su gracia, el novato jamás querrá escribir un tratado latero como este mientras se bajan los hdlist xDDD xDDDD

continuemos... mientras escribo esto todavía se están descargando los hdlist.cz :S, en fin, aprovechando el tiempo me dediqué a revisar la velocidad de bajada de los repos que estaban siendo configurados, ¿y que creen? "Nada mal" :D yo quiero saber como se hace en bash, eso de detectar el sitio que mejor prestación otorgue en ese momento :D, todavía no soy capi con perl, mejor vamos con los tiempos:

recuperando hdlist fuente (o síntesis) de «Main (Official2007.0-1)»...
--22:47:27--  http://ftp.rediris.es/ 124.66K/s

recuperando hdlist fuente (o síntesis) de «Main Updates (Official2007.0-2)»...
--22:52:02--  http://ftp.rediris.es/ 118.97K/s

recuperando hdlist fuente (o síntesis) de «Main Testing (Official2007.0-3)»...
--22:53:53--  http://ftp.rediris.es/ 121.82K/s

--22:54:32--  http://ftp.rediris.es/ 116.66K/s

--22:54:46--  http://ftp.rediris.es/ 112.30K/s

en fin... ninguno bajó de 110K/s :D

Y todo terminó a las:
--23:05:25--

Lo que nos da como 18 minutos para configurar los repos, 
esto con una conexión de 1MB, para mi es mucho tiempo, insisto en que
 hay que utilizar el fichero sintetizado, ¿Aparte de más info, que otra 
ventaja otorga el hecho de utilizar el fichero de info completo?

En todo caso, 18 minutos es el tiempo ideal para escribir este testamento

xDDD

Para terminar, un listado de repos arroja esto:

[root@MDV2007 guala]# urpmq --list-media
Main (Official2007.0-1)
Main Updates (Official2007.0-2)
Main Testing (Official2007.0-3)
Main Backports (Official2007.0-4)
Contrib (Official2007.0-5)
Contrib Updates (Official2007.0-6)
Contrib Testing (Official2007.0-7)
Contrib Backports (Official2007.0-8)
PLF Free (Official2007.0-9)
PLF Non-free (Official2007.0-10)
PLF Free Backports (Official2007.0-11)
PLF Non-free Backports (Official2007.0-12)

¿Y la actualización? de eso no hubo nada :D, o queda para el último... no va? :O

En resumidas cuentas, a mi me funcionó bien el script, la única duda es el primer grupo de mensajes que arrojó al inicio, a mi gustó es innecesario y nada de entendible.

Por si las moscas, así terminó el script:

examinando archivo de clave pública de «PLF Non-free Backports (Official2007.0-12)»...
realizando una segunda pasada para computar las dependencias

examinando el archivo hdlist [/var/lib/urpmi/hdlist.Main (Official2007.0-1).cz]
se generó el archivo de síntesis hdlist para el soporte «Main (Official2007.0-1)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Main Updates (Official2007.0-2).cz]
se generó el archivo de síntesis hdlist para el soporte «Main Updates (Official2007.0-2)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Main Testing (Official2007.0-3).cz]
se generó el archivo de síntesis hdlist para el soporte «Main Testing (Official2007.0-3)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Main Backports (Official2007.0-4).cz]
se generó el archivo de síntesis hdlist para el soporte «Main Backports (Official2007.0-4)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Contrib (Official2007.0-5).cz]
se generó el archivo de síntesis hdlist para el soporte «Contrib (Official2007.0-5)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Contrib Updates (Official2007.0-6).cz]
se generó el archivo de síntesis hdlist para el soporte «Contrib Updates (Official2007.0-6)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Contrib Testing (Official2007.0-7).cz]
se generó el archivo de síntesis hdlist para el soporte «Contrib Testing (Official2007.0-7)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.Contrib Backports (Official2007.0-8).cz]
se generó el archivo de síntesis hdlist para el soporte «Contrib Backports (Official2007.0-8)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.PLF Free (Official2007.0-9).cz]
se generó el archivo de síntesis hdlist para el soporte «PLF Free (Official2007.0-9)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.PLF Non-free (Official2007.0-10).cz]
se generó el archivo de síntesis hdlist para el soporte «PLF Non-free (Official2007.0-10)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.PLF Free Backports (Official2007.0-11).cz]
se generó el archivo de síntesis hdlist para el soporte «PLF Free Backports (Official2007.0-11)»
examinando el archivo hdlist [/var/lib/urpmi/hdlist.PLF Non-free Backports (Official2007.0-12).cz]
se generó el archivo de síntesis hdlist para el soporte «PLF Non-free Backports (Official2007.0-12)»
escrito archivo de configuración [/etc/urpmi/urpmi.cfg]
escrito archivo de configuración [/etc/urpmi/urpmi.cfg]

En todo caso mi argumento para decir que no intentó actualizar es que grep no encontró nada que coincidiese con esta salida:

[root@MDV2007 rookie-star]# urpmi --auto-update
ya está todo instalado

Me despido y espero que te sirva de algo ver que a alguien le funciona y más encima poder ver para comparar no lo sé :D, pero de mi parte muchas gracias, ahora intentaré entender perl para hacer algo similar en bash. xD

Salu2 y ¡ánimo! para terminarlo con sus correspondientes mejorías y todo como corresponda!!! ;)

Felicidades, Luismago, por la iniciativa y el script en cuestión. La verdad es que me he fiado tanto que lo he pasado sin hacer copias de seguridad ;-)

Y no me ha defraudado. No me ha dado ninguna información extraña, ni al suprimir los reposistorios anteriores ni al añadir los nuevos.

Por mi parte... ¡Prueba superada!

Gracias!

Nota Postpost: Resulta que el script me ha configurado los repositorios de cica. Pero con cica estoy siempre teniendo el problema de que los marcados como updates (main y contrib) no van y siempre me pongo los de rediris. En cuanto he hecho mi primer urpmi --auto-update me ha cascado diciéndome que no podía descargar de cica.

Lo comento por si lo puedes tener en cuenta.

Esto es lo que me contesta cuando lo lanzo:

Can't locate auto/urpm/read_config.al in @INC (@INC contains: 
/usr/lib/libDrakX 
/usr/lib/perl5/5.8.8/i386-linux 
/usr/lib/perl5/5.8.8 
/usr/lib/perl5/site_perl/5.8.8/i386-linux 
/usr/lib/perl5/site_perl/5.8.8 
/usr/lib/perl5/site_perl 
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux 
/usr/lib/perl5/vendor_perl/5.8.8 
/usr/lib/perl5/vendor_perl/5.8.7 
/usr/lib/perl5/vendor_perl/5.8.7/i386-linux 
/usr/lib/perl5/vendor_perl/5.8.6 
/usr/lib/perl5/vendor_perl .) at 
/usr/sbin/addmedia.pl line 269

Estoy en la beta de la 2007.1 instalada desde live cd, por lo que alcanzo a entender puede que falten cosas de perl y por eso no funcione. ¿me equivoco?.
De momento tirare de lo clasico para ponerlo en castellano, en breve tendreis noticias mias.
P.D. Lo de los indices comprimidos creo que habria estado bien ahora al principio, mas que nada para poder hacer varias puevas sin tener que esperar tanto tiempo.

¿Se abandono este proyecto?

--
¿Quien es Jesucristo?