#!/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; $sound = /\bsound=([01])\b/o ? $1 : 0; $effectiveResolution = $resolution < $zoom ? $zoom : $resolution; $width = 768 / $zoom; $height = 576 / $zoom; $higheres = $effectiveResolution / 2; $loweres = $effectiveResolution * 2; $higherzoom = $zoom / 2; $lowerzoom = $zoom * 2; $clock = $effectiveResolution > 8 ? '&clock' : ''; print < Christophe Tronche's office live

Christophe Tronche's office live

END if ($lowerzoom <= 8) { print "", " Zoom ", "down\n"; } print <	END if ($higherzoom) { print "", "Zoom UP \n"; } print "
"; if ($loweres <= 8) { print " Lower res\n"; } print "	"; if ($effectiveResolution > $zoom) { print "Higher res \n"; } print "

\n"; ################################################################################ $irix = $ENV{'HTTP_USER_AGENT'} =~ /\bIRIX\b/o; if ($sound) { print "\n

\n"; } if ($irix) { if ($sound) { $nextSound = 0; $nextSoundText = 'off'; } else { $nextSound = 1; $nextSoundText = 'on'; } print <

Turn SOUND $nextSoundText

END } ################################################################################ print < You're now seeing my office live, provided that your browser can handle animated GIF (such as Netscape).

The frame rate depends on the speed on your path. END print < You may get a better quality by clicking on the image. The reason is that Netscape needs some colors to render the arrows, but will use the full color palette if only the picture is present.

More real-time pictures END print <

Christophe Tronche, ch@tronche.com

END