diff options
| author | Christian Lippka <cl@openoffice.org> | 2002-12-12 12:57:06 +0000 |
|---|---|---|
| committer | Christian Lippka <cl@openoffice.org> | 2002-12-12 12:57:06 +0000 |
| commit | eea1fa36cc87a906d4946e62ab90443f41183d82 (patch) | |
| tree | 954cce3229cea2000a6587980178c8cac8d2f067 /sd/res/webview/savepic.pl | |
| parent | 0c01e6d221e4c740d82d13701e52ac4bf76f8edb (diff) | |
#105940# converting dos line ends to unix line ends to work with newer perl
Diffstat (limited to 'sd/res/webview/savepic.pl')
| -rw-r--r-- | sd/res/webview/savepic.pl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/sd/res/webview/savepic.pl b/sd/res/webview/savepic.pl new file mode 100644 index 000000000000..8d545aa108b0 --- /dev/null +++ b/sd/res/webview/savepic.pl @@ -0,0 +1,41 @@ +#!/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 "<HTML>\n<HEAD>\n"; +print "<META http-equiv=\"refresh\" CONTENT=\"0 ;URL=editpic.pl\">"; +print "<title>savepic.pl</title>"; +print "</HEAD>\n"; +print "<BODY>\n"; +print "</BODY>\n"; +print "</HTML>\n"; +%> |