xref: /aoo4110/main/sd/res/webview/poll.pl (revision b1cdbd2c)
1*b1cdbd2cSJim Jagielski#!/usr/bin/perl
2*b1cdbd2cSJim Jagielski# *************************************************************
3*b1cdbd2cSJim Jagielski#
4*b1cdbd2cSJim Jagielski#  Licensed to the Apache Software Foundation (ASF) under one
5*b1cdbd2cSJim Jagielski#  or more contributor license agreements.  See the NOTICE file
6*b1cdbd2cSJim Jagielski#  distributed with this work for additional information
7*b1cdbd2cSJim Jagielski#  regarding copyright ownership.  The ASF licenses this file
8*b1cdbd2cSJim Jagielski#  to you under the Apache License, Version 2.0 (the
9*b1cdbd2cSJim Jagielski#  "License"); you may not use this file except in compliance
10*b1cdbd2cSJim Jagielski#  with the License.  You may obtain a copy of the License at
11*b1cdbd2cSJim Jagielski#
12*b1cdbd2cSJim Jagielski#    http://www.apache.org/licenses/LICENSE-2.0
13*b1cdbd2cSJim Jagielski#
14*b1cdbd2cSJim Jagielski#  Unless required by applicable law or agreed to in writing,
15*b1cdbd2cSJim Jagielski#  software distributed under the License is distributed on an
16*b1cdbd2cSJim Jagielski#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
17*b1cdbd2cSJim Jagielski#  KIND, either express or implied.  See the License for the
18*b1cdbd2cSJim Jagielski#  specific language governing permissions and limitations
19*b1cdbd2cSJim Jagielski#  under the License.
20*b1cdbd2cSJim Jagielski#
21*b1cdbd2cSJim Jagielski# *************************************************************
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielskirequire "common.pl";
24*b1cdbd2cSJim Jagielski
25*b1cdbd2cSJim Jagielskiprint "Content-type: text/html\n\n";
26*b1cdbd2cSJim Jagielskiprint "<HTML>";
27*b1cdbd2cSJim Jagielski
28*b1cdbd2cSJim Jagielski# get current and last shown picture id
29*b1cdbd2cSJim Jagielski$sCurrPic = join( "", common::File_read( "currpic.txt" ) );
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski%aRequestMap = common::HTTP_getRequest();
32*b1cdbd2cSJim Jagielski$sLastPic = $aRequestMap{ "LastPic" };
33*b1cdbd2cSJim Jagielski
34*b1cdbd2cSJim Jagielskiprint "<HEAD>";
35*b1cdbd2cSJim Jagielski    print "<META http-equiv=\"refresh\" CONTENT=\"" . $common::REFRESH_TIME . "; URL=poll.pl?LastPic=" . $sCurrPic . "\">";
36*b1cdbd2cSJim Jagielskiprint "</HEAD>";
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielski#' a new picture was chosen ?
39*b1cdbd2cSJim Jagielskiif( $sLastPic ne $sCurrPic )
40*b1cdbd2cSJim Jagielski{
41*b1cdbd2cSJim Jagielski    # then show the new picture
42*b1cdbd2cSJim Jagielski    print "<BODY bgcolor=\"red\" onLoad=\"parent.frame1.location.href='./show.pl?" . $sCurrPic . "'\">";
43*b1cdbd2cSJim Jagielski}
44*b1cdbd2cSJim Jagielskielse
45*b1cdbd2cSJim Jagielski{
46*b1cdbd2cSJim Jagielski    # otherwise do nothing
47*b1cdbd2cSJim Jagielski    print "<BODY bgcolor=\"green\">";
48*b1cdbd2cSJim Jagielski}
49*b1cdbd2cSJim Jagielski
50*b1cdbd2cSJim Jagielskiprint "</BODY>";
51*b1cdbd2cSJim Jagielski
52*b1cdbd2cSJim Jagielskiprint "</HTML>";
53