Source Code for owner.pl
#!/usr/local/bin/perl -w
use Pg;
$conn = Pg::connectdb("dbname = template1");
if ($conn->status == PGRES_CONNECTION_BAD) {
$msg = $conn->errorMessage;
print
"unable to establish connection to the backend\n";
print "$msg\n";
exit(1);
}
@query =(
"SELECT usename, datname FROM pg_user, pg_database",
"WHERE usesysid = int2in(int4out(datdba))",
"ORDER BY usename, datname;");
$result = $conn->exec("@query");
if ($result->resultStatus != PGRES_TUPLES_OK) {
$msg = $result->cmdStatus;
print "Error processing the query!\n";
print "$msg\n";
exit(1);
}
$tuples = $result->ntuples;
for ($i = 0; $i < $tuples; $i++) {
$uname = $result->getvalue($i, 0);
$db = $result->getvalue($i,1);
write;
}
format STDOUT_TOP =
Owner of PostgreSQL Databases:
Username Database
.
format STDOUT =
$uname, $db
.
Copyright © 1994 - 2018 Linux Journal. All rights reserved.