[Koha-cvs] koha/installer install.pl [rel_3_0]

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Henri-Damien LAURENT <hdl>      07/02/16 13:14:09

Modified files:
        installer      : install.pl 

Log message:
        Adding grants check for user at Any host if user at host doesnot have 
right access.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/installer/install.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.4&r2=1.1.2.5

Patches:
Index: install.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer/Attic/install.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- install.pl  16 Feb 2007 10:34:23 -0000      1.1.2.4
+++ install.pl  16 Feb 2007 13:14:08 -0000      1.1.2.5
@@ -186,6 +186,17 @@
             
((index($line,'SELECT')>0)&&(index($line,'INSERT')>0)&&(index($line,'UPDATE')>0)&&(index($line,'DELETE')>0)&&(index($line,'CREATE')>0)&&(index($line,'DROP')>0)));
           }
         }
+        unless ($grantaccess){
+          $rq=$dbh->prepare("SHOW GRANTS FOR \'$info{user}\'\@'\%'");
+          $rq->execute;
+          while (my ($line)=$rq->fetchrow){
+            my $dbname=$info{dbname};
+            if ($line=~m/$dbname/ || index($line,'*.*')>0){
+              $grantaccess=1 if (index($line,'ALL PRIVILEGES')>0 ||
+              
((index($line,'SELECT')>0)&&(index($line,'INSERT')>0)&&(index($line,'UPDATE')>0)&&(index($line,'DELETE')>0)&&(index($line,'CREATE')>0)&&(index($line,'DROP')>0)));
+            }
+          }
+        }
         $template->param("checkgrantaccess"=>$grantaccess);
       }
     } else {