git.ozlabs.org Git - ccan/blob - web/functions.php

   1 <?php
   2 function rmdirr($dirname)
   3 {
   4     // Sanity check
   5     if (!file_exists($dirname)) {
   6         return false;
   7     }
   8
   9     // Simple delete for a file
  10     if (is_file($dirname) || is_link($dirname)) {
  11         return unlink($dirname);
  12     }
  13
  14     // Loop through the folder
  15     $dir = dir($dirname);
  16     while (false !== $entry = $dir->read()) {
  17         // Skip pointers
  18         if ($entry == '.' || $entry == '..') {
  19             continue;
  20         }
  21
  22         // Recurse
  23         rmdirr($dirname . DIRECTORY_SEPARATOR . $entry);
  24     }
  25
  26     // Clean up
  27     $dir->close();
  28     return rmdir($dirname);
  29 }
  30
  31 function getccanadmin($db)
  32 {
  33         //forming admin mail addresses from data base
  34         $handle = sqlite3_open($db) or die("Could not open database");
  35         $query = "SELECT email FROM users where admin=\"true\"";
  36         $result = sqlite3_query($handle, $query) or die("Error in query: ".sqlite3_error($handle));
  37
  38         while ($row = sqlite3_fetch_array($result))
  39          $admin = $admin.$row['email'].",";
  40    return $admin;
  41 }
  42 ?>