[SPIP] +2.1.12

[velocampus/web/www.git] / www / plugins / auto / couteau_suisse / couteau_suisse / outils / maj_auto_php5.php

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/maj_auto_php5.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/maj_auto_php5.php
new file mode 100644 (file)
index 0000000..432afa4
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/maj_auto_php5.php
@@ -0,0 +1,20 @@
+<?php
+// PHP 5 mini : utilise sqlite pour questionner SVN 1.7
+function cs_svn17($dir) {
+       if(!class_exists('PDO')) return false;
+       try { 
+               $db = new PDO('sqlite:' . $dir);
+       //      foreach ($db->query('SELECT * FROM SQLite_master WHERE type=\'table\';') as $row) print_r($row);
+               if($res = $db->query('SELECT root FROM REPOSITORY;')) {
+                       foreach($res as $row) { $url = $row[0]; break; }
+                       if($res = $db->query("SELECT repos_path FROM NODES WHERE local_relpath='$b';"))
+                               foreach($res as $row) { $url .= '/' . $row[0]; break; }
+                       if($res = $db->query("SELECT MAX(changed_revision) FROM NODES WHERE local_relpath LIKE '$b%';"))
+                               foreach ($res as $row) return array($row[0], $url);
+               }
+       } catch(PDOException $e) {
+               return false;
+       }
+       return false;
+}
+?>
\ No newline at end of file