#!/usr/bin/perl require "common.pl"; print "Content-type: text/html\n\n"; print ""; # get current and last shown picture id $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); %aRequestMap = common::HTTP_getRequest(); $sLastPic = $aRequestMap{ "LastPic" }; print ""; print ""; print ""; #' a new picture was chosen ? if( $sLastPic ne $sCurrPic ) { # then show the new picture print ""; } else { # otherwise do nothing print ""; } print ""; print "";