blob: 18000c9f4c901e74960dae3f87a548c39cc28193 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl
use CGI;
if ($ENV{'REQUEST_METHOD'} eq "DELETE") {
$queryString = $ENV{'QUERY_STRING'};
if ($queryString eq "200-ok") {
$returnCode = 200;
} elsif ($queryString eq "202-accepted") {
$returnCode = 202;
} elsif ($queryString eq "204-no-content") {
$returnCode = 204;
} else {
$returnCode = 404;
}
} else {
# 405 = Method Not Allowed
$returnCode = 405;
}
$q = new CGI;
print $q->header(-status=>$returnCode);
|