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