diff options
Diffstat (limited to 'sd/res/webview/poll.pl')
-rw-r--r-- | sd/res/webview/poll.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/sd/res/webview/poll.pl b/sd/res/webview/poll.pl new file mode 100644 index 000000000000..08a31c3e22b4 --- /dev/null +++ b/sd/res/webview/poll.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +require "common.pl"; + +print "Content-type: text/html\n\n"; +print "<HTML>"; + +# get current and last shown picture id +$sCurrPic = join( "", common::File_read( "currpic.txt" ) ); + +%aRequestMap = common::HTTP_getRequest(); +$sLastPic = $aRequestMap{ "LastPic" }; + +print "<HEAD>"; + print "<META http-equiv=\"refresh\" CONTENT=\"" . $common::REFRESH_TIME . "; URL=poll.pl?LastPic=" . $sCurrPic . "\">"; +print "</HEAD>"; + +#' a new picture was chosen ? +if( $sLastPic ne $sCurrPic ) +{ + # then show the new picture + print "<BODY bgcolor=\"red\" onLoad=\"parent.frame1.location.href='./show.pl?" . $sCurrPic . "'\">"; +} +else +{ + # otherwise do nothing + print "<BODY bgcolor=\"green\">"; +} + +print "</BODY>"; + +print "</HTML>";
\ No newline at end of file |