#!/bin/sh echo Content-type: text/html echo PATH=`echo $PATH":."` echo "" ##################################################### # FUNCIONES ##################################################### ./fprincipio "2" "Kaixo! Foros" if [ "$WWW_tipo" = "Nuevo" ] then if [ "$WWW_email" != "" ] && [ "$WWW_tit" != "" ] then id=`grep -i "^$WWW_email::$WWW_passwd::" elkarteaemail.dat` if [ "$id" = "" ] then echo "
" else WWW_izena=`echo $id | awk -F"::" '{print $3}'` echo `date -u +%d-%m-%Y::%T::`$WWW_izena"::"$WWW_email"::"$WWW_tit"::"$WWW_texto"::"$WWW_padre | sed -e 's/ /
/g' > kk$$ cat foro$WWW_nom.dat >> kk$$ cp kk$$ foro$WWW_nom.dat rm kk$$ fi else echo "

Para insertar rellena todos los campos
Foro berri bat sartzeko betezazu kanpo guztiak.
" fi fi echo "
" else lin=`wc -l foro$WWW_nom.dat | awk -F" " '{print $1}'` echo "

" if [ "$WWW_sig" = "" ] then WWW_sig=0 sig=15 ant="-15" else sig=`expr $WWW_sig + 15` ant=`expr $WWW_sig - 15` fi awk ' BEGIN { nomforo="'"$WWW_nom"'"; FS="::" } NR <= '"$sig"' && NR >= '"$WWW_sig"' { print ""$1"- "$5" ("$3")
"} ' foro$WWW_nom.dat echo "

" if [ "$ant" != "-10" ] then echo "<<<< Atrás/Atzera " fi if [ $sig -lt $lin ] then echo "-- Adelante / Aurrera >>>>

" fi echo "
" echo "Nuevo

" fi else titulo=`awk 'BEGIN { nomforo="'"$WWW_nom"'"; FS="::" } $1 == "'$WWW_id1'" && $2 == "'$WWW_id2'" { print $5}' foro$WWW_nom.dat ` padre=`awk 'BEGIN { nomforo="'"$WWW_nom"'"; FS="::" } $1 == "'$WWW_id1'" && $2 == "'$WWW_id2'" { print $7}' foro$WWW_nom.dat | sed -e 's/;/\&id2=/g' ` awk ' BEGIN { nomforo="'"$WWW_nom"'"; FS="::" } $1 == "'$WWW_id1'" && $2 == "'$WWW_id2'" { print ""$1"-"$5"
"$3" ("$4")

"$6} ' foro$WWW_nom.dat if [ "$padre" != "" ] then echo "" | sed -e 's/RE://' fi echo "
" echo "" echo "" echo "
" fi echo "
Comentarios/iruzkinak:aitor@kaixo" ./ffinal