diff options
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"; |