1#!/usr/bin/perl 2 3require "common.pl"; 4 5print "Content-type: text/html\n\n"; 6print "<HTML>\n"; 7 8print "<HEAD>\n"; 9print "<title>editpic.pl</title>"; 10print "</HEAD>\n"; 11 12print "<BODY>\n"; 13 $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); 14 @aPictureArray = common::File_read( "picture.txt" ); 15 $nPictureArrayLen = @aPictureArray; 16 print "<FORM action=\"savepic.pl\" method=get>\n"; 17 if( abs( $sCurrPic ) > 1 ) 18 { 19 print "<INPUT type=submit name=\"Auswahl\" value=\"-\"></INPUT>\n"; 20 } 21 else 22 { 23 print "<INPUT type=button value=\" \"></INPUT>\n"; 24 } 25 print "<INPUT type=text name=\"CurrPic\" value=\""; 26 print $sCurrPic; 27 print "\" SIZE=3></INPUT>\n"; 28 if( abs( $sCurrPic ) < ( $nPictureArrayLen - 1 ) ) 29 { 30 print "<INPUT type=submit name=\"Auswahl\" value=\"+\"></INPUT>\n"; 31 } 32 else 33 { 34 print "<INPUT type=button value=\" \"></INPUT>\n"; 35 } 36 print "<INPUT type=submit name=\"Auswahl\" value=\"$$2\"></INPUT>\n"; 37 print "</FORM>\n"; 38print "</BODY>\n"; 39 40print "</HTML>\n"; 41