#!/usr/local/bin/perl

# Written by Ch. Tronche (http://tronche.com/)
# Copyright by the author. This is unmaintained, no-warranty free software. 
# Please use freely. It is appreciated (but by no means mandatory) to
# acknowledge the author's contribution. Thank you.
# Started on Sun Mar  9 17:11:07 1997

use strict 'refs';
use strict 'subs';
use integer;

$_ = $ENV{'QUERY_STRING'};
$zoom = /\bzoom=([128])\b/o ? $1 : 4;
$resolution = /\bresolution=([128])\b/o ? $1 : 4;

$width = 768 / $zoom;
$height = 576 / $zoom;

print <<END
Content-Type: text/html

<P ALIGN=center>
<IMG SRC="http://tronche.lri.fr:8002/$resolution" WIDTH=$width HEIGHT=$height BORDER=0>
END