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