#!/usr/bin/perl require "common.pl"; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "editpic.pl"; print "\n"; print "\n"; $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); @aPictureArray = common::File_read( "picture.txt" ); $nPictureArrayLen = @aPictureArray; print "
\n"; if( abs( $sCurrPic ) > 1 ) { print "\n"; } else { print "\n"; } print "\n"; if( abs( $sCurrPic ) < ( $nPictureArrayLen - 1 ) ) { print "\n"; } else { print "\n"; } print "\n"; print "
\n"; print "\n"; print "\n";