diff options
author | Christian Pointner <equinox@spreadspace.org> | 2015-10-06 23:59:23 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@spreadspace.org> | 2015-10-06 23:59:23 (GMT) |
commit | ddcb9685d9ab3c59cabfdd69614315af668435ec (patch) | |
tree | 4af76c4bc6b7448064266b2aa6c1ca8c99fe96a3 /utils/rhrd-sanity-check | |
parent | 245fa7576b4a2d848435f4eee3d7f41cbf042e8a (diff) |
renamed most utils from rd-* to rhrd-*
Diffstat (limited to 'utils/rhrd-sanity-check')
-rwxr-xr-x | utils/rhrd-sanity-check | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check new file mode 100755 index 0000000..ced1d30 --- /dev/null +++ b/utils/rhrd-sanity-check @@ -0,0 +1,98 @@ +#!/usr/bin/perl -w +# +# rhrdlibs +# +# Copyright (C) 2015 Christian Pointner <equinox@helsinki.at> +# +# This file is part of rhrdlibs. +# +# rhrdlibs is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# any later version. +# +# rhrdlibs is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with rhrdlibs. If not, see <http://www.gnu.org/licenses/>. +# + +use strict; +use lib "../lib/"; +use RHRD::rddb; + +# this is ridiculous but makes it a little harder to create/remove users... +# if ($> != 0 ) { +# print STDERR "this must be run as root!\n"; +# exit 1; +# } + +sub print_usage +{ + print STDERR "Usage: rhrd-sanity-check\n"; +} + +my $num_args = $#ARGV + 1; +if($num_args > 0) { + print_usage(); + exit(1); +} +my $ret = 0; + + +sub check_groups +{ + my ($ctx) = @_; + + print "groups:\n"; + + my @groups = RHRD::rddb::list_groups($ctx); + if(!defined $groups[0] && defined $groups[1]) { + print STDERR "$groups[1]: $groups[2]"; + return 1; + } + for my $group (@groups) { + next if($group eq $ctx->{'config'}{'specialgroups'}{'system'}); + next if($group eq $ctx->{'config'}{'specialgroups'}{'shows'}); + next if($group eq $ctx->{'config'}{'specialgroups'}{'allshows'}); + next if($group eq $ctx->{'config'}{'specialgroups'}{'allpools'}); + next if($group eq $ctx->{'config'}{'specialgroups'}{'alljingles'}); + print " " . $group . "\n"; + } + return 0; +} + +sub check_logs +{ + my ($ctx) = @_; + + print "logs:\n"; + print " check not yet implemtned!!\n"; +} + +sub check_dropboxes +{ + my ($ctx) = @_; + + print "dropboxes:\n"; + print " check not yet implemtned!!\n"; +} + +my ($ctx, $status, $errorstring) = RHRD::rddb::init(); +if(defined $ctx) { + check_groups($ctx); + print "\n"; + check_logs($ctx); + print "\n"; + check_dropboxes($ctx); + + RHRD::rddb::destroy($ctx); +} else { + print STDERR "$errorstring\n"; + $ret = 1; +} + +exit $ret; |