Usuario:BotWikisource/Asistente/códigos/Traslados de títulos y catg
Apariencia
beta
# -*- coding: utf-8 -*-
#traslada títulos de los capítuloa,categoría y versión para imprimir
import wikipedia,re,Ayudante
es_site=(wikipedia.Site("es","wikisource"))
log=u"[[Usuario:BotWikisource/Asistente|Asistente]]:Trasladando Catg y Documentos"
cat=u'Misterio'
new=u'Misterio (Bazán)'
'''
ap=wikipedia.Page(es_site, Documento)
texto=ap.get()
cat=u'Category:%s'%cat
cat=catlib.Category(es_site,cat)
m= cat.articles()
'''
m=Ayudante.ArticulosCat(es_site,cat)
indice=[]
for i in m:
a=u'%s'%i.title()
if re.search(u":",a):
#---abro página original
ap=wikipedia.Page(es_site, a)
texto=ap.get()
#---cambio catg por la actual
salida=Ayudante.CambioCatg(texto,cat,new)
#---grabo nueva página
NuevaPagina=u'%s:%s'%(new,a.split(u":")[1])
indice.append(NuevaPagina)
apnew=wikipedia.Page(es_site, NuevaPagina)
apnew.put(salida,log)
print u"Ha creado la [[%s]]" %NuevaPagina
#---cuelgo cartel de borrado en la antigua
salida=u'{{Destruir|trasladada a un nuevo título}}'
ap.put(salida,log)
################################################
#---crear nueva versión para imprimir
salida=u"{{versión para imprimir|%s}}" %new
PagImprimir=u'%s (Versión para imprimir)'% (new)
for u in indice:
salida+=u'{{%s}}\n'%u
ap=wikipedia.Page(es_site, PagImprimir)
ap.put(salida,log)
#--elimino antigua versión
PagImprimir=u'%s (Versión para imprimir)\n'% (cat)
ap=wikipedia.Page(es_site, PagImprimir)
salida=u'{{Destruir|trasladada a un nuevo título}}'
ap.put(salida,log)