Complete the error reporting fix that revision 1.32 started:

If gaining the lock fails, then catch that error and explain it to the user.
This commit is contained in:
Ceri Davies 2003-06-08 20:59:51 +00:00
parent c62ba726c5
commit 8456cf94b7
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=17203

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.32 2003/05/21 18:48:51 ceri Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.33 2003/05/21 18:57:10 ceri Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -92,6 +92,11 @@ while(<Q>) {
}
print &html_footer;
exit;
} elsif (/^lockf: /) {
print "<p>The PR database is currently busy; please try ",
"<A HREF=\"./query-pr.cgi?pr=$pr\">your query</A> again.";
print &html_footer;
exit;
}
# In e-mail header