blob: fe6314846906fd488105ee0b35d3866f1c40e586 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
package VNDB::Util::Request;
use strict;
use warnings;
use Encode;
use Exporter 'import';
our @EXPORT;
@EXPORT = qw| ReqParam ReqSaveUpload ReqCookie
ReqMethod ReqHeader ReqUri ReqIP |;
sub new {
return bless {}, ref($_[0]) || $_[0];
}
sub ReqParam {
my($s,$n) = @_;
return wantarray
? map { decode 'UTF-8', defined $_ ? $_ : '' } $FCGI::Handler::c->param($n)
: decode 'UTF-8', defined $FCGI::Handler::c->param($n) ? $FCGI::Handler::c->param($n) : '';
}
sub ReqSaveUpload {
my($s,$n,$f) = @_;
open my $F, '>', $f or die "Unable to write to $f: $!";
print $F $FCGI::Handler::c->param($n);
close $F;
}
sub ReqCookie {
my $c = Cookie::XS->fetch;
return $c && ref($c) eq 'HASH' && $c->{$_[1]} ? $c->{$_[1]}[0] : '';
}
sub ReqMethod {
return ($ENV{REQUEST_METHOD}||'') =~ /post/i ? 'POST' : 'GET';
}
sub ReqHeader {
(my $v = uc $_[1]) =~ tr/-/_/;
return $ENV{"HTTP_$v"}||'';
}
sub ReqUri {
return $ENV{REQUEST_URI};
}
sub ReqIP {
return $ENV{REMOTE_ADDR};
}
1;
|