diff options
| author | Christian Pointner <equinox@helsinki.at> | 2015-09-06 04:28:51 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2015-09-06 04:28:51 (GMT) |
| commit | f2cf3cf6fb0df68168245c82a029279f190ffe94 (patch) | |
| tree | 071d60e84ae6dd9d5f68863af7ca86f3a413047e /rh-bin/listdropboxes.cgi | |
| parent | b8c174cf5f3321c7f10620f204daa2824e48fc46 (diff) | |
improved response codes for cgi scripts
Diffstat (limited to 'rh-bin/listdropboxes.cgi')
| -rwxr-xr-x | rh-bin/listdropboxes.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi index 03dc4ee..f008c51 100755 --- a/rh-bin/listdropboxes.cgi +++ b/rh-bin/listdropboxes.cgi @@ -50,14 +50,15 @@ while (my $q = CGI::Fast->new) { $errorstring = $dropboxes[2]; } } elsif($result == 0) { - $responsecode = 403; + $responsecode = 401; } else { $responsecode = 500; } RHRD::rddb::closedb($dbh); } - print "Content-type: application/xml; charset=UTF-8\n\n"; + print "Content-type: application/xml; charset=UTF-8\n"; + print "Status: $responsecode\n\n"; if($responsecode != 200) { print "<RDWebResult>\n"; |