Main Koha release repository
https://koha-community.org
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
919 B
39 lines
919 B
#!/usr/bin/perl
|
|
|
|
# script to test for missing systempreferences
|
|
# export KOHA_CONF
|
|
# export PERL5LIB
|
|
# then ./check_sysprefs.pl path (if path is blank it will use .)
|
|
|
|
use File::Find;
|
|
use C4::Context;
|
|
|
|
@ARGV = qw(.) unless @ARGV;
|
|
|
|
sub check_sys_pref {
|
|
my $dbh = C4::Context->dbh();
|
|
my $query = "SELECT * FROM systempreferences WHERE variable = ?";
|
|
my $sth = $dbh->prepare($query);
|
|
if (! -d _ ){
|
|
my $name=$File::Find::name;
|
|
if ($name =~ /(\.pl|\.pm)$/){
|
|
open (FILE,"$_") || die "cant open $name";
|
|
while (my $inp = <FILE>){
|
|
if ($inp =~ /C4::Context->preference\((.*?)\)/){
|
|
my $variable = $1;
|
|
$variable =~s /\'|\"//g;
|
|
$sth->execute($variable);
|
|
if (my $data=$sth->fetchrow_hashref()){
|
|
}
|
|
else {
|
|
print "$name has a reference to $variable, this does not exist in the database\n";
|
|
}
|
|
}
|
|
}
|
|
close FILE;
|
|
}
|
|
}
|
|
$sth->finish();
|
|
}
|
|
|
|
find(\&check_sys_pref,@ARGV);
|
|
|