1 |
# -*- perl -*- |
#!/usr/bin/perl |
2 |
# CleanLog |
# CleanLog |
3 |
# Vadim Mikheev, (c) 2000, PostgreSQL Inc. |
# Vadim Mikheev, (c) 2000, PostgreSQL Inc. |
4 |
|
|
6 |
& eval 'exec perl -S $0 $argv:q' |
& eval 'exec perl -S $0 $argv:q' |
7 |
if 0; |
if 0; |
8 |
|
|
9 |
use lib "@LIBDIR@"; |
use lib "/usr/share/postgresql/contrib"; |
10 |
|
|
11 |
use Getopt::Long; |
use Getopt::Long; |
12 |
use RServ; |
use RServ; |
38 |
|
|
39 |
my $conn = Pg::connectdb($minfo); |
my $conn = Pg::connectdb($minfo); |
40 |
|
|
41 |
|
$RServ::quiet = !$verbose; |
42 |
|
|
43 |
$res = CleanLog($conn, $howold); |
$res = CleanLog($conn, $howold); |
44 |
|
|
45 |
exit(1) if $res < 0; |
exit(1) if $res < 0; |