🚀 go-pugleaf

Marco <marco@lomejordeinternet.net> wrote:
: Tengo el siguiente script para poner todas la imagenes jpg de un directorio
: en un  lienzo de 250x250, pero me falla, y nu se porque. Lo qtengo echo en
: PHP, pero lo necesito para Bash, y como simepre el bash no es lo mio.

: #!/bin/sh
: for f in $* ;do
:  convert -geometry 80x80 $file t_$file
:  #echo "<a href=\"$f\"><img src=\"t_$f\" width=\"80\" height=\"80\"></a>"
: done
: # end of script

: Lamada al programa:

: ./programa *.jpg *.jpg


	Supongamos que tienes la lista de ficheros en files.txt
	(si no es asi, find -type f -name \*.jpg -print > files.txt),
	y que los ficheros estan en ./normal/ y existe ./preview/

	Crear previews:
---------------------------------------------------------------------------
#!/bin/ksh


while read file
do

	echo $file >&2

	NAME=`echo "$file" | sed -e 's/\....$//'`

	if [ -f preview/$NAME.gif ]
	then
		:
	else
		convert -verbose -interlace LINE -geom 128 \
		normal/$file preview/$NAME.gif 2>&1 |\
		sed -e 's/\(.*\)[ ]\([0-9]*\)\(x\)\([0-9]*\)\(=>\)\([0-9]*\)\(x\)\([0-9]*\)\(.*\)/\2 \4 \6 \8/'|\
		read WO HO WR HR
		SO=`du -sk normal/$file | awk '{print $1}'`
		SR=`du -sk preview/$NAME.gif | awk '{print $1}'`
		echo $file $WO $HO $SO >> normal/idx.txt
		echo $NAME.gif $WR $HR $SR >> preview/idx.txt
	fi
done < files.txt
---------------------------------------------------------------------------

	Crear htmls:

---------------------------------------------------------------------------
#!/bin/ksh


typeset -Z2 HN


BASE=fotos
let HN=0
let IN=0
let IR=0

NROW=2
NCOL=4
NPAGE=`expr $NROW \* $NCOL`

while read file
do
	NAME=`echo "$file" | sed -e 's/\....$//'`


	#egrep "^$file" originals/idx.txt | read f WO HO SO
	egrep "^$file" normal/idx.txt | read f W H S
	egrep "^$NAME" preview/idx.txt | read f WP HP SP

	if [ $IN -eq 0 ]
	then
		echo "Creating new $BASE-$HN.html" >&2
		cat > $BASE-$HN.html << eof
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>
<HEAD>
<TITLE>Fotos: p�gina %PAG%</TITLE>
<meta http-equiv=Content-Type content="text/html; charset=ISO-8859-1">
<meta name=Title content="Afotos: p�gina %PAG%">
<meta name=Keywords content="fotos">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">

<H1 ALIGN=CENTER>Fotos: p�gina %PAG%</H1>

<HR WIDTH="75%">
<center><table border=0>
eof
	fi

	if [ $IR -eq 0 ]
	then
		echo "...creating new row" >&2
		cat >> $BASE-$HN.html << eof
<tr>
eof
	fi

	cat >> $BASE-$HN.html << eof

<TD align="center">
<A HREF="normal/$file">
<IMG SRC="preview/$NAME" ALT="$file" WIDTH="$WP" HEIGHT="$HP">
</A><BR>
<A HREF="normal/$file">
$file
<br>
${W}x${H} $S Kb
</A>
</TD>
eof

	let IR=$IR+1

	if [ $IR -eq $NCOL ]
	then
		echo "...closing row" >&2
		echo '</tr>' >> $BASE-$HN.html
		let IR=0
	fi

	let IN=$IN+1
	
	if [ $IN -eq $NPAGE ]
	then
		echo "...closing html" >&2
		cat >> $BASE-$HN.html << eof

</table><br>
</center>
<HR WIDTH="75%">
<p>Ir a la p�gina: 
%NAV%
</p>
</BODY>
</HTML>
eof
	let IN=0
	let HN=$HN+1
	fi

	echo $file >&2


done < files.txt

if [ $IN -ne $NPAGE ]
then
	echo "...closing html" >&2
	cat >> $BASE-$HN.html << eof
</tr>
</table><br>
</center>
<HR WIDTH="75%">
<p>Ir a la p�gina: 
%NAV%
</p>
</BODY>
</HTML>
eof
fi

if [ $IN -eq 0 ]
then
	rm $BASE-$HN.html
	let HN=$HN-1
fi

typeset -Z2 AHN
let I=1
let NH=$HN+1
NAV=""
while [ $I -le $NH ]
do
	let AHN=$I-1
	let HN=$I
	NAV="${NAV}|<A HREF=\"$BASE-$AHN.html\">${HN}<\/A>"
	let I=$I+1
done

let I=1
typeset -Z0 PNH
PNH=$NH
while [ $I -le $NH ]
do
	let AHN=$I-1
	let HN=$I
	sed -e "s,\%PAG\%,$I de $PNH," \
	-e "s/\%NAV\%/${NAV}|/" \
	-e "s,|<A HREF=\"$BASE-$AHN.html\">${HN}<\/A>|,|${HN}|," \
	$BASE-$AHN.html >> foo && mv foo $BASE-$AHN.html
	let I=$I+1
done
---------------------------------------------------------------------------


	Ejemplo "en vivo" del resultado:

	http://phoebe.cps.unizar.es/~spd/pub/img/fotos-00.html


	PS: de todas formas existen soluciones precocinadas para hacer
	esto; y seguramente mas completas y faciles de usar...

-- 
finger spd@shiva.cps.unizar.es for PGP      /
.mailcap tip of the day:                   /             La vida es una carcel
application/ms-tnef; cat '%s' > /dev/null /           con las puertas abiertas
text/x-vcard; cat '%s' > /dev/null       /            (A. Calamaro)