diff options
author | Christian Lippka <cl@openoffice.org> | 2002-12-12 12:50:18 +0000 |
---|---|---|
committer | Christian Lippka <cl@openoffice.org> | 2002-12-12 12:50:18 +0000 |
commit | 0c01e6d221e4c740d82d13701e52ac4bf76f8edb (patch) | |
tree | e48b56ea4cc6d47c3e3235457d8cefdf06711fba /sd/res | |
parent | #103556# handle multiple selections with controls correct (diff) | |
download | core-0c01e6d221e4c740d82d13701e52ac4bf76f8edb.tar.gz core-0c01e6d221e4c740d82d13701e52ac4bf76f8edb.zip |
#105940# converting dos line ends to unix line ends to work with newer perl
Diffstat (limited to 'sd/res')
-rw-r--r-- | sd/res/webview/common.pl | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/sd/res/webview/common.pl b/sd/res/webview/common.pl new file mode 100644 index 000000000000..fc4a4866a6d7 --- /dev/null +++ b/sd/res/webview/common.pl @@ -0,0 +1,48 @@ +package common; + +$REFRESH_TIME = 5; + +sub File_read +{ + $sFilename = @_[ 0 ]; + + @aFileContentList = ""; + open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n"; + while( <F_CURRPIC> ) + { + push( @aFileContentList, $_ ); + } + close( F_CURRPIC ); + + return @aFileContentList; +} ##File_read + + +sub HTTP_getRequest +{ + # post- or get- method ? + if( $ENV{ 'REQUEST_METHOD' } eq 'GET' ) + { + # get parameters from querystring (get) + $sRequest = $ENV{ 'QUERY_STRING' } + } + else + { + # get parameters from stdin (post) + read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } ); + } + # process parameters + @aRequestList = split( /&/, $sRequest ); + foreach $Feld ( @aRequestList ) + { + ( $name, $sValue ) = split( /=/, $Feld ); + $sValue =~ tr/+/ /; + $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; + $sValue =~ s/<!--(.|\n)*-->//g; + $aRequestMap{ $name } = $sValue; + } + + return %aRequestMap; +} ##HTTP_getRequest + +1;
\ No newline at end of file |