www/plugins/auto/couteau_suisse/couteau_suisse/outils/maj_auto_php5.php

   1 <?php
   2 // PHP 5 mini : utilise sqlite pour questionner SVN 1.7
   3 function cs_svn17($dir) {
   4         if(!class_exists('PDO')) return false;
   5         try {
   6                 $db = new PDO('sqlite:' . $dir);
   7         //      foreach ($db->query('SELECT * FROM SQLite_master WHERE type=\'table\';') as $row) print_r($row);
   8                 if($res = $db->query('SELECT root FROM REPOSITORY;')) {
   9                         foreach($res as $row) { $url = $row[0]; break; }
  10                         if($res = $db->query("SELECT repos_path FROM NODES WHERE local_relpath='$b';"))
  11                                 foreach($res as $row) { $url .= '/' . $row[0]; break; }
  12                         if($res = $db->query("SELECT MAX(changed_revision) FROM NODES WHERE local_relpath LIKE '$b%';"))
  13                                 foreach ($res as $row) return array($row[0], $url);
  14                 }
  15         } catch(PDOException $e) {
  16                 return false;
  17         }
  18         return false;
  19 }
  20 ?>