Libros digitalizados

gallica


#!/bin/bash
name=$(basename ${0})
res=".highres"
first_page=1
libro=$1
last_page=$2

uso(){
echo "
$name Descarga libros digitalizados de http://gallica.bnf.fr/

Uso:
$name <Nombre> <nº de páginas> <url>

Nombre: El nombre que tendrá el fichero final empaquetado.
nº_de_páginas: El nº de páginas del libro o la página-
límite que queremos descargar.
url: url del documento.

Ejemplo:
$name scherzi 93 http://gallica.bnf.fr/ark:/12148/btv1b90100529


Enjoy it!
"

exit 0
}

descarga(){
for i in $( seq $first_page $last_page )
do
a="f$i"
echo $web$a$res >> enlaces.txt
done
wget -i enlaces.txt
}

renombrar(){
for i in $( ls * ); do
mv $i $i.jpg
done
}

if [ $# -lt 3 ]
then
uso
fi
if [ $# -gt 3 ]
then
echo "Solo se pueden poner 3 parámetros"
exit 0
fi
shift
shift
web=$@/
mkdir ~/$libro
cd ~/$libro
descarga
rm enlaces.txt
renombrar
zip $libro *.jpg
rm *.jpg
echo
echo "Hecho!"
echo "El libro está en el fichero ~/$libro/$libro.zip"
cd ..



*********************************************


Para Windows:

@echo off
color 0e
set ruta=C:\Documents and Settings\Administrador\Escritorio
set res=.highres
set first_page=1
echo.
echo ==================================================
echo.
echo Descarga las imagenes de libros digitalizados de
echo.
echo http://gallica.bnf.fr
echo.
echo ==================================================
echo.

set /p libro=Introduce el nombre del libro :
set /p last_page=Introduce el numero de paginas :
set /a last_page=last_page+1
set /p web=Introduce la URL :
cd %ruta%
mkdir %libro%
cd %libro%
set cont=1

:bucle
echo %web%/f%cont%%res% >> enlaces.txt
set /a cont=cont+1
if %cont% lss %last_page% (goto bucle) else (goto next)

:next
type enlaces.txt
start wget -i enlaces.txt
echo.
echo Pulsa una tecla cuando se cierre la ventana de wget
pause > nul
del enlaces.txt
dir
echo.
echo Hecho! Los archivos descargados estan en la carpeta %libro% en el Escritorio.
echo.
echo Pulsa una tecla
pause > nul
goto end

:end


No hay comentarios: