patch for wwwgnats.pl for use with gnats-3.112.1

patch for wwwgnats.pl for use with gnats-3.112.1

[Hans Drexler]

Hi,

Last week I upgraded from gnats-3.107b to gnats-3.112.1 (FreeBSD 4.0
STABLE). We use the wwwgnats package to view our GNATS database. The
package is (I think) very old, but it worked!  Anyway, after the
upgrade we couldn't edit PR's using our browsers anymore. After some
searching I found out that a small change in the file "libgnats.pl" solves
the problem. If anybody is interested I put the changed lines below (not a
patch, sorry!).

Hans Drexler


File libgnats.pl, line 260

Old text:

    chop($_ = <PREDIT>);
    close(PREDIT);
    if ($_ ne "") {
        if (!/exists/) {
            s/.*by //g; tr/_/ /;
            return "Problem report $semipr is being edited by $_.\n";
        } else {
            return "GNATS is currently locked, try again in a moment\n";
        }
    }

New text: (three lines added, 1 changed)

    chop($_ = <PREDIT>);
    close(PREDIT);
    if ($_ ne "") {
        if (/From /) {
            return "";
        }
        elsif (!/exists/) {
            s/.*by //g; tr/_/ /;
            return "Problem report $semipr is being edited by $_.\n";
        } else {
            return "GNATS is currently locked, try again in a moment\n";
        }
    }