1#!/usr/bin/env perl 2# ************************************************************* 3# 4# Licensed to the Apache Software Foundation (ASF) under one 5# or more contributor license agreements. See the NOTICE file 6# distributed with this work for additional information 7# regarding copyright ownership. The ASF licenses this file 8# to you under the Apache License, Version 2.0 (the 9# "License"); you may not use this file except in compliance 10# with the License. You may obtain a copy of the License at 11# 12# http://www.apache.org/licenses/LICENSE-2.0 13# 14# Unless required by applicable law or agreed to in writing, 15# software distributed under the License is distributed on an 16# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 17# KIND, either express or implied. See the License for the 18# specific language governing permissions and limitations 19# under the License. 20# 21# ************************************************************* 22 23require "common.pl"; 24 25print "Content-type: text/html\n\n"; 26 27# get current and next picture 28$sCurrPic = join( "", common::File_read( "currpic.txt" ) ); 29@aPictureArray = common::File_read( "picture.txt" ); 30 31# not last picture or wrong input ? 32if( abs( $sCurrPic ) > 0 ) 33{ 34 $nCurrPic = abs( $sCurrPic ); 35 $nPictureArrayLen = @aPictureArray; 36 if( $nCurrPic < $nPictureArrayLen ) 37 { 38 $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ]; 39 $sPictureName2 = ( split( ";", @aPictureArray[ $nCurrPic + 1 ] ) )[ 1 ]; 40 } 41 else 42 { 43 $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ]; 44 $sPictureName2 = $sPictureName1; 45 } 46} 47 48print "<HTML>"; 49 50print "<HEAD>"; 51 print "<TITLE>$$1</TITLE>"; 52print "</HEAD>"; 53 54print "<BODY bgcolor=\"white\">"; 55 print "<P ALIGN=CENTER><IMG src=\"" . $sPictureName1 . "\" width=$$4 height=$$5 border=0>"; 56 print "<P><IMG src=\"" . $sPictureName2 . "\" width=1 height=1 border=0>"; 57print "</BODY>"; 58 59print "</HTML>"; 60