gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MT3289 : check_sysprefs.pl case sensitive variable names 

Variable names for systempreferences are now case sensitive.
Changing check_sysprefs in relation with this change

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Henri-Damien LAURENT 2010-04-11 20:40:57 +02:00 committed by Chris Cormack
parent c584003c1d
commit 641616ef7f
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
misc/check_sysprefs.pl
View File

@ -15,29 +15,31 @@ 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();
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() ) {
if ( $data->{variable} eq $variable ) {
next;
}
}
print
"$name has a reference to $variable, this does not exist in the database\n";
}
}
close FILE;
}
}
$sth->finish();
}
find(\&check_sys_pref,@ARGV);
find( \&check_sys_pref, @ARGV );