1*cdf0e10cSrcweirpackage common; 2*cdf0e10cSrcweir 3*cdf0e10cSrcweir$REFRESH_TIME = 5; 4*cdf0e10cSrcweir 5*cdf0e10cSrcweirsub File_read 6*cdf0e10cSrcweir{ 7*cdf0e10cSrcweir $sFilename = @_[ 0 ]; 8*cdf0e10cSrcweir 9*cdf0e10cSrcweir @aFileContentList = ""; 10*cdf0e10cSrcweir open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n"; 11*cdf0e10cSrcweir while( <F_CURRPIC> ) 12*cdf0e10cSrcweir { 13*cdf0e10cSrcweir push( @aFileContentList, $_ ); 14*cdf0e10cSrcweir } 15*cdf0e10cSrcweir close( F_CURRPIC ); 16*cdf0e10cSrcweir 17*cdf0e10cSrcweir return @aFileContentList; 18*cdf0e10cSrcweir} ##File_read 19*cdf0e10cSrcweir 20*cdf0e10cSrcweir 21*cdf0e10cSrcweirsub HTTP_getRequest 22*cdf0e10cSrcweir{ 23*cdf0e10cSrcweir # post- or get- method ? 24*cdf0e10cSrcweir if( $ENV{ 'REQUEST_METHOD' } eq 'GET' ) 25*cdf0e10cSrcweir { 26*cdf0e10cSrcweir # get parameters from querystring (get) 27*cdf0e10cSrcweir $sRequest = $ENV{ 'QUERY_STRING' } 28*cdf0e10cSrcweir } 29*cdf0e10cSrcweir else 30*cdf0e10cSrcweir { 31*cdf0e10cSrcweir # get parameters from stdin (post) 32*cdf0e10cSrcweir read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } ); 33*cdf0e10cSrcweir } 34*cdf0e10cSrcweir # process parameters 35*cdf0e10cSrcweir @aRequestList = split( /&/, $sRequest ); 36*cdf0e10cSrcweir foreach $Feld ( @aRequestList ) 37*cdf0e10cSrcweir { 38*cdf0e10cSrcweir ( $name, $sValue ) = split( /=/, $Feld ); 39*cdf0e10cSrcweir $sValue =~ tr/+/ /; 40*cdf0e10cSrcweir $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 41*cdf0e10cSrcweir $sValue =~ s/<!--(.|\n)*-->//g; 42*cdf0e10cSrcweir $aRequestMap{ $name } = $sValue; 43*cdf0e10cSrcweir } 44*cdf0e10cSrcweir 45*cdf0e10cSrcweir return %aRequestMap; 46*cdf0e10cSrcweir} ##HTTP_getRequest 47*cdf0e10cSrcweir 48*cdf0e10cSrcweir1;