c#! /bin/csh -f

netscape: http://www.phys.uu.nl/~jleeuwen/luuk/?addmsg

mkdir -m 755 ~/public_html/luuk/fotos/`tail -n 1 ~/public_html/luuk/data/berichten.dat | awk '{print $1}'`
cd ~/public_html/luuk/fotos/`tail -n 1 ~/public_html/luuk/data/berichten.dat | awk '{print $1}'`

mv /home/strknd/jleeuwen/public_html/upload/files/`ls -1rt /home/strknd/jleeuwen/public_html/upload/files/ | tail -n 1` .

mkdir orig 80 150 300 500 800 1200
chmod 755 orig 80 150 300 500 800 1200
cd orig
unzip ../*zip 
mv */* .

ls -1 * | perl -e 'while (<STDIN>) { $x=$_; chop; $x =~ s/ /_/g; $x =~ s/[\(\)]//g; print "mv \"$_\" $x" if / / ;}'
echo " Copy paste these rename lines "

ls -1 *jpg *JPG | awk '{print "convert -size 80x500 "$1" -resize 80x500 +profile \"*\" ../80/"$1}' | csh -f
ls -1 *jpg *JPG | awk '{print "convert -size 150x150 "$1" -resize 150x150 +profile \"*\" ../150/"$1}' | csh -f
ls -1 *jpg *JPG | awk '{print "convert -size 300x300 "$1" -resize 300x300 +profile \"*\" ../300/"$1}' | csh -f
ls -1 *jpg *JPG | awk '{print "convert -size 500x500 "$1" -resize 500x500 +profile \"*\" ../500/"$1}' | csh -f
ls -1 *jpg *JPG | awk '{print "convert -size 800x800 "$1" -resize 800x800 +profile \"*\" ../800/"$1}' | csh -f
ls -1 *jpg *JPG | awk '{print "convert -size 1200x1200 "$1" -resize 1200x1200 +profile \"*\" ../1200/"$1}' | csh -f


ls -1 *mpg *MPG| awk '{print "(<a href=\"http://www.phys.uu.nl/~jleeuwen/luuk/fotos/XXX/orig/"$1"\" style=\"color: #FFF;text-decoration:underline;\">filmpje</a>)"}' >> ../../../data/berichten.dat

cd ..
cp -a ../pics.dat .

chmod 644 orig/*mpg 80/* 150/* 300/* 500/* 800/* 1200/*

echo "pico pics.dat ../../data/berichten.dat"