#!/usr/bin/perl require "common.pl"; %aRequestMap = common::HTTP_getRequest(); # get new picture $sCurrPic = $aRequestMap{ "CurrPic" }; @aPictureArray = common::File_read( "picture.txt" ); $nPictureArrayLen = @aPictureArray; # check if + or - was pressed if( $aRequestMap{ "Auswahl" } eq "+" ) { $sCurrPic = abs( $sCurrPic ) + 1; } if( $aRequestMap{ "Auswahl" } eq "-" ) { $sCurrPic = abs( $sCurrPic ) - 1; } # save picture name if( (abs( $sCurrPic ) > 0) && ( abs( $sCurrPic ) < ( $nPictureArrayLen ) ) ) { open( F_CURRPIC, ">currpic.txt"); print F_CURRPIC abs( $sCurrPic ); close( F_CURRPIC ); } # return to edit page print "Content-type: text/html\n\n"; print "\n\n"; print ""; print "savepic.pl"; print "\n"; print "\n"; print "\n"; print "\n"; %>