#105940# converting dos line ends to unix line ends to work with newer perl
This commit is contained in:
parent
4b86d377a2
commit
0c01e6d221
1 changed files with 48 additions and 0 deletions
48
sd/res/webview/common.pl
Normal file
48
sd/res/webview/common.pl
Normal file
|
@ -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;
|
Loading…
Reference in a new issue