sd/res/webview/common.pl

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package common;
  20
  21 $REFRESH_TIME = 5;
  22
  23 sub File_read
  24 {
  25     $sFilename = @_[ 0 ];
  26
  27     @aFileContentList = "";
  28     open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n";
  29     while( <F_CURRPIC> )
  30     {
  31         push( @aFileContentList, $_ );
  32     }
  33     close( F_CURRPIC );
  34
  35     return @aFileContentList;
  36 }   ##File_read
  37
  38
  39 sub HTTP_getRequest
  40 {
  41     # post- or get- method ?
  42     if( $ENV{ 'REQUEST_METHOD' } eq 'GET' )
  43     {
  44         # get parameters from querystring (get)
  45         $sRequest = $ENV{ 'QUERY_STRING' }
  46     }
  47     else
  48     {
  49         # get parameters from stdin (post)
  50         read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } );
  51     }
  52     # process parameters
  53     @aRequestList = split( /&/, $sRequest );
  54     foreach $Feld ( @aRequestList )
  55     {
  56         ( $name, $sValue ) = split( /=/, $Feld );
  57         $sValue =~ tr/+/ /;
  58         $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  59         $sValue =~ s/<!--(.|\n)*-->//g;
  60         $aRequestMap{ $name } = $sValue;
  61     }
  62
  63     return %aRequestMap;
  64 }   ##HTTP_getRequest
  65
  66 1;