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"; 26print "<HTML>\n"; 27 28print "<HEAD>\n"; 29print "<title>editpic.pl</title>"; 30print "</HEAD>\n"; 31 32print "<BODY>\n"; 33 $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); 34 @aPictureArray = common::File_read( "picture.txt" ); 35 $nPictureArrayLen = @aPictureArray; 36 print "<FORM action=\"savepic.pl\" method=get>\n"; 37 if( abs( $sCurrPic ) > 1 ) 38 { 39 print "<INPUT type=submit name=\"Auswahl\" value=\"-\"></INPUT>\n"; 40 } 41 else 42 { 43 print "<INPUT type=button value=\" \"></INPUT>\n"; 44 } 45 print "<INPUT type=text name=\"CurrPic\" value=\""; 46 print $sCurrPic; 47 print "\" SIZE=3></INPUT>\n"; 48 if( abs( $sCurrPic ) < ( $nPictureArrayLen - 1 ) ) 49 { 50 print "<INPUT type=submit name=\"Auswahl\" value=\"+\"></INPUT>\n"; 51 } 52 else 53 { 54 print "<INPUT type=button value=\" \"></INPUT>\n"; 55 } 56 print "<INPUT type=submit name=\"Auswahl\" value=\"$$2\"></INPUT>\n"; 57 print "</FORM>\n"; 58print "</BODY>\n"; 59 60print "</HTML>\n"; 61