Let database figure out close time for connection.

diff --git a/Net-Server-NNTP/lib/Net/Server/NNTP/Postgres.pm b/Net-Server-NNTP/lib/Net/Server/NNTP/Postgres.pm
index 13e1850764f79d5ec3e9be19dbe97b12eaadaec7..5a7d541fa29cfb984cacaaf88e84130b23c22bb6 100644 (file)
--- a/Net-Server-NNTP/lib/Net/Server/NNTP/Postgres.pm
+++ b/Net-Server-NNTP/lib/Net/Server/NNTP/Postgres.pm
@@ -417,12 +417,12 @@ sub log_stats {
                $s->commit;
                $s->rollback;
 
                $s->commit;
                $s->rollback;
 

-               my $stats = $s->prepare(q{insert into sessions (peer, addr, port, connected, closed, received, refused, rejected, postponed) values (?,?,?,timestamp with time zone 'epoch' + ? * INTERVAL '1 second',timestamp with time zone 'epoch' + ? * INTERVAL '1 second',?,?,?,?)});
+               my $stats = $s->prepare(q{insert into sessions (peer, addr, port, connected, closed, received, refused, rejected, postponed) values (?,?,?,timestamp with time zone 'epoch' + ? * INTERVAL '1 second',current_timestamp,?,?,?,?)});

 
                $stats->execute($s->{nntp}{peername},
                        $s->{server}->{peeraddr},
                        $s->{server}->{peerport},
 
                $stats->execute($s->{nntp}{peername},
                        $s->{server}->{peeraddr},
                        $s->{server}->{peerport},

-                       $s->{nntp}{connecttime}, time,
+                       $s->{nntp}{connecttime},

                        $rec, $ref, $rej, $postp);
                $s->commit;
        }
                        $rec, $ref, $rej, $postp);
                $s->commit;
        }