diff options
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 502b81e6..27abf20f 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -740,5 +740,20 @@ sub merge { } } +sub type { + + my $self = shift @_; + + if (!$ENV{REQUEST_METHOD} or + ( $ENV{REQUEST_METHOD} ne ("HEAD" or "GET" or "POST") ) ) { + + $self->error("Request method unset or set to unknown value"); + } + + return $ENV{REQUEST_METHOD}; +} + +sub DESTROY {} + 1; |