1*bb113e63SAndrew Rist# ************************************************************* 2*bb113e63SAndrew Rist# 3*bb113e63SAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 4*bb113e63SAndrew Rist# or more contributor license agreements. See the NOTICE file 5*bb113e63SAndrew Rist# distributed with this work for additional information 6*bb113e63SAndrew Rist# regarding copyright ownership. The ASF licenses this file 7*bb113e63SAndrew Rist# to you under the Apache License, Version 2.0 (the 8*bb113e63SAndrew Rist# "License"); you may not use this file except in compliance 9*bb113e63SAndrew Rist# with the License. You may obtain a copy of the License at 10*bb113e63SAndrew Rist# 11*bb113e63SAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 12*bb113e63SAndrew Rist# 13*bb113e63SAndrew Rist# Unless required by applicable law or agreed to in writing, 14*bb113e63SAndrew Rist# software distributed under the License is distributed on an 15*bb113e63SAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*bb113e63SAndrew Rist# KIND, either express or implied. See the License for the 17*bb113e63SAndrew Rist# specific language governing permissions and limitations 18*bb113e63SAndrew Rist# under the License. 19*bb113e63SAndrew Rist# 20*bb113e63SAndrew Rist# ************************************************************* 21cdf0e10cSrcweirpackage common; 22cdf0e10cSrcweir 23cdf0e10cSrcweir$REFRESH_TIME = 5; 24cdf0e10cSrcweir 25cdf0e10cSrcweirsub File_read 26cdf0e10cSrcweir{ 27cdf0e10cSrcweir $sFilename = @_[ 0 ]; 28cdf0e10cSrcweir 29cdf0e10cSrcweir @aFileContentList = ""; 30cdf0e10cSrcweir open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n"; 31cdf0e10cSrcweir while( <F_CURRPIC> ) 32cdf0e10cSrcweir { 33cdf0e10cSrcweir push( @aFileContentList, $_ ); 34cdf0e10cSrcweir } 35cdf0e10cSrcweir close( F_CURRPIC ); 36cdf0e10cSrcweir 37cdf0e10cSrcweir return @aFileContentList; 38cdf0e10cSrcweir} ##File_read 39cdf0e10cSrcweir 40cdf0e10cSrcweir 41cdf0e10cSrcweirsub HTTP_getRequest 42cdf0e10cSrcweir{ 43cdf0e10cSrcweir # post- or get- method ? 44cdf0e10cSrcweir if( $ENV{ 'REQUEST_METHOD' } eq 'GET' ) 45cdf0e10cSrcweir { 46cdf0e10cSrcweir # get parameters from querystring (get) 47cdf0e10cSrcweir $sRequest = $ENV{ 'QUERY_STRING' } 48cdf0e10cSrcweir } 49cdf0e10cSrcweir else 50cdf0e10cSrcweir { 51cdf0e10cSrcweir # get parameters from stdin (post) 52cdf0e10cSrcweir read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } ); 53cdf0e10cSrcweir } 54cdf0e10cSrcweir # process parameters 55cdf0e10cSrcweir @aRequestList = split( /&/, $sRequest ); 56cdf0e10cSrcweir foreach $Feld ( @aRequestList ) 57cdf0e10cSrcweir { 58cdf0e10cSrcweir ( $name, $sValue ) = split( /=/, $Feld ); 59cdf0e10cSrcweir $sValue =~ tr/+/ /; 60cdf0e10cSrcweir $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 61cdf0e10cSrcweir $sValue =~ s/<!--(.|\n)*-->//g; 62cdf0e10cSrcweir $aRequestMap{ $name } = $sValue; 63cdf0e10cSrcweir } 64cdf0e10cSrcweir 65cdf0e10cSrcweir return %aRequestMap; 66cdf0e10cSrcweir} ##HTTP_getRequest 67cdf0e10cSrcweir 68*bb113e63SAndrew Rist1; 69