/usr/lib/oar/oar_checkdb.pl is in oar-server 2.5.2-4.1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 | #!/usr/bin/perl
# $Id$
# Check if the database connection is ok
# Return exit status >0 otherwise
use strict;
use warnings;
use DBI();
use OAR::IO;
use OAR::Conf qw(init_conf dump_conf get_conf is_conf);
if (defined(OAR::IO::connect_ro_one_log("log"))) {exit 0;}
else{exit 1;}
|