<?php

/*

 * Snapr

 * Version 0.1 beta 1

 * Copyright (C) 2007 Dan Fuhry

 *

 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License

 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied

 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.

 */

/**

 * Generates a random filename for Snapr images.

 * @param int $length Optional - length of filename

 * @return string

 */

function gallery_make_filename($length = 24)

{

  $valid_chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';

  $valid_chars = enano_str_split($valid_chars);

  $ret = '';

  for ( $i = 0; $i < $length; $i++ )

  {

    $ret .= $valid_chars[mt_rand(0, count($valid_chars)-1)];

  }

  return $ret;

}

/**

 * Returns the extension of a file.

 * @param string file

 * @return string

 */

function get_file_extension($file)

{

  return substr($file, ( strrpos($file, '.') + 1 ));

}

/**

 * For a given image ID, return the folder hierarchy.

 * @param int The image ID

 * @return array

 */

function gallery_imgid_to_folder($img_id)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  if ( !is_int($img_id) )

    return array();

  $img_id = strval($img_id);

  $ret = array();

  $sanity = 0;

  $sanity_stack = array();

  while(true)

  {

    $sanity++;

    $q = $db->sql_query('SELECT img_title, img_id, folder_parent FROM '.table_prefix.'gallery WHERE img_id=' . $img_id . ';');

    if ( !$q )

      $db->_die();

    $row = $db->fetchrow();

    if ( !$row )

    {

      break;

    }

    if ( $sanity > 1 )

    {

      $ret[] = $row['img_title'];

    }

    if ( !$row['folder_parent'] )

    {

      break;

    }

    if ( in_array($row['img_id'], $sanity_stack) )

      return array('Infinite loop');

    $sanity_stack[] = $row['img_id'];

    $img_id = $row['folder_parent'];

  }

  return $ret;

}

/**

 * Generates a hierarchy of Gallery folders.

 * @return array

 */

function gallery_folder_hierarchy()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $q = $db->sql_query('SELECT img_id, img_title, folder_parent FROM '.table_prefix.'gallery WHERE is_folder=1');

  if ( !$q )

    $db->_die();

  if ( $db->numrows() < 1 )

  {

  }

  $lookup_table = array();

  $hier = array('_id' => 'NULL');

  $orphans = array();

  $persist_orphans = array();

  while ( $row = $db->fetchrow() )

  {

    if ( !$row['folder_parent'] )

    {

      // root-level folder

      $hier[ $row['img_title'] ] = array('_id' => $row['img_id']);

      $lookup_table[$row['img_id']] =& $hier[ $row['img_title'] ];

    }

    else if ( $row['folder_parent'] && isset($lookup_table[$row['folder_parent']]) )

    {

      // child folder, parent is resolved

      $lookup_table[ $row['folder_parent'] ][ $row['img_title'] ] = array('_id' => $row['img_id']);

      $lookup_table[ $row['img_id'] ] =& $lookup_table[ $row['folder_parent'] ][ $row['img_title'] ];

    }

    else if ( $row['folder_parent'] && !isset($lookup_table[$row['folder_parent']]) )

    {

      // child folder, orphan as of yet

      $orphans[] = $row;

    }

  }

  // Resolve orphans

  do

  {

    $persist_orphans = array();

    while ( count($orphans) > 0 )

    {

      $orphan =& $orphans[ ( count($orphans) - 1 ) ];

      if ( isset($lookup_table[$orphan['folder_parent']]) )

      {

        $lookup_table[ $orphan['folder_parent'] ][ $orphan['img_title'] ] = array('_id' => $orphan['img_id']);

        $lookup_table[ $orphan['img_id'] ] =& $lookup_table[ $orphan['folder_parent'] ][ $orphan['img_title'] ];

      }

      else

      {

        $persist_orphans[] = $orphans[ ( count($orphans) - 1 ) ];

        //echo 'BUG: ' . htmlspecialchars($orphan['img_title']) . ' (' . $orphan['img_id'] . ') is an orphan folder (parent is ' . $orphan['folder_parent'] . '); placing in root<br />';

        // $hier[ $orphan['img_title'] ] = array();

        // $lookup_table[$orphan['img_id']] =& $hier[ $orphan['img_title'] ];

      }

      unset($orphan, $orphans[ ( count($orphans) - 1 ) ]);

    }

    $orphans = $persist_orphans;

    //die('insanity:<pre>'.print_r($hier,true).print_r($lookup_table,true).print_r($persist_orphans,true).'</pre>');

  }

  while ( count($persist_orphans) > 0 );

  return $hier;

}

/**

 * Generates HTML for a folder selector.

 * @param string The form field name, defaults to folder_id.

 * @param bool Whether to auto-select the root or not. Defaults to true.

 * @return string

 */

function gallery_hier_formfield($field_name = 'folder_id', $autosel = true)

{

  $hier = gallery_folder_hierarchy();

  $img_join      = scriptPath . '/images/icons/joinbottom.gif';

  $img_join_term = scriptPath . '/images/icons/join.gif';

  $img_line      = scriptPath . '/images/icons/line.gif';

  $img_empty     = scriptPath . '/images/icons/empty.gif';

  $html = _gallery_hier_form_inner($hier, '<Root>', $field_name, -1, array(), $img_join, $img_join_term, $img_line, $img_empty, $autosel);

  return $html;

}

// 

/**

 * Inner loop for form field generator (needs to call itself recursively)

 * @access private

 */

function _gallery_hier_form_inner($el, $name, $fname, $depth, $depth_img, $img_join, $img_join_term, $img_line, $img_empty, $sel = false)

{

  $html = '';

  foreach ( $depth_img as $sw )

    $html .= '<img alt="  " src="' . $sw . '" />';

  $html .= '<label><input ' . ( $sel ? 'checked="checked"' : '' ) . ' type="radio" name="' . $fname . '" value="' . $el['_id'] . '" /> ' . htmlspecialchars($name) . '</label><br />';

  if ( count($el) > 1 )

  {

    // Writing this image logic sucked.

    $count = 0;

    foreach ( $el as $key => $el_lower )

    {

      $count++;

      if ( $key == '_id' )

        continue;

      $depth_mod = $depth_img;

      $last = ( $count == count($el) );

      for ( $i = 0; $i < count($depth_mod); $i++ )

      {

        if ( $depth_mod[$i] == $img_join_term || $depth_mod[$i] == $img_empty )

          $depth_mod[$i] = $img_empty;

        else

          $depth_mod[$i] = $img_line;

      }

      if ( $last )

        $depth_mod[] = $img_join_term;

      else

        $depth_mod[] = $img_join;

      $html .= _gallery_hier_form_inner($el_lower, $key, $fname, ( $depth + 1 ), $depth_mod, $img_join, $img_join_term, $img_line, $img_empty);

    }

  }

  return $html;

}

/**

 * Returns an array containing the IDs of all of the given folder ID's children. Recursive function.

 * @param int ID of folder

 */

function gal_fetch_all_children($id)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  if ( !is_int($id) )

  {

    die('not int');

    return false;

  }

  $children = array();

  $q = $db->sql_query('SELECT img_id,is_folder FROM '.table_prefix.'gallery WHERE folder_parent=' . $id . ';');

  if ( !$q )

    $db->_die();

  if ( $db->numrows() < 1 )

  {

    return $children;

  }

  $folders = array();

  while ( $row = $db->fetchrow() )

  {

    $children[] = intval($row['img_id']);

    if ( $row['is_folder'] == 1 )

      $folders[] = intval($row['img_id']);

  }

  foreach ( $folders as $folder )

  {

    $grandchildren = gal_fetch_all_children($folder);

    if ( $grandchildren === false )

    {

      return false;

    }

    $children = array_merge($children, $grandchildren);

  }

  return $children;

}

/**

 * Lists all normal files within a given directory. Recursive function. Can also return the list of directories in the second parameter by reference.

 * @param string Directory to search

 * @param array Variable in which to store 

 * @return array Not multi-depth

 */

function gal_dir_recurse($dir, &$dirlist)

{

  $dir_handle = opendir($dir);

  if ( !$dir_handle )

    return false;

  $entries = array();

  $dirlist = array();

  while ( true )

  {

    $file = readdir($dir_handle);

    if ( !$file )

      break;

    if ( $file == '.' || $file == '..' )

      continue;

    $file = $dir . '/' . $file;

    if ( is_dir($file) )

    {

      $children = gal_dir_recurse($file, $dirtemp);

      $dirlist[] = $file;

      $dirlist = array_merge($dirlist, $dirtemp);

      $entries = array_merge($entries, $children);

    }

    else if ( is_file($file) )

    {

      $entries[] = $file;

    }

    else

    {

      die($file . ' is not a file or directory');

    }

  }

  closedir($dir_handle);

  return $entries;

}

/**

 * Wrapper for JSON decoding that works on Enano 1.0.x and 1.1.x

 * @param string JSON datastream...

 * @return mixed

 */

function snapr_json_decode($data)

{

  if ( defined('ENANO_ATLEAST_1_1') )

  {

    try

    {

      $decoded = enano_json_decode($data);

    }

    catch ( Exception $e )

    {

      $response = array(

        'mode' => 'error',

        'error' => 'Exception in JSON parser.'

      );

      die(enano_json_encode($response));

    }

  }

  else

  {

    $json = new Services_JSON(SERVICES_JSON_LOOSE_TYPE);

    $decoded = $json->decode($data);

  }

  return ( isset($decoded) ) ? $decoded : false;

}

/**

 * Wrapper for JSON encoding that works on Enano 1.0.x and 1.1.x

 * @param mixed Data to encode

 * @return string

 */

function snapr_json_encode($data)

{

  if ( defined('ENANO_ATLEAST_1_1') )

  {

    try

    {

      $encoded = enano_json_encode($data);

    }

    catch ( Exception $e )

    {

      $response = array(

        'mode' => 'error',

        'error' => 'Exception in JSON encoder.'

      );

      die(enano_json_encode($response));

    }

  }

  else

  {

    $json = new Services_JSON(SERVICES_JSON_LOOSE_TYPE);

    $encoded = $json->encode($data);

  }

  return ( isset($encoded) ) ? $encoded : false;

}

?>