/* -*- mode: c++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
 *  vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
 *
 *  Copyright (C) 2008 Sun Microsystems, Inc.
 *  Copyright (C) 2011 Stewart Smith
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; version 2 of the License.
 *
 *  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 more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include <config.h>
#include <drizzled/function/str/strfunc.h>
#include <drizzled/function/str/load_file.h>
#include <drizzled/error.h>
#include <drizzled/catalog/local.h>
#include <drizzled/session.h>
#include <drizzled/internal/my_sys.h>
#include <drizzled/sys_var.h>
#include <drizzled/system_variables.h>

#include <boost/filesystem.hpp>

#include <fcntl.h>
#include <sys/stat.h>
#include <iostream>

namespace fs=boost::filesystem;
using namespace std;

namespace drizzled
{

String *Item_load_file::val_str(String *str)
{
  assert(fixed == 1);
  String *file_name;
  int file;
  struct stat stat_info;

  if (!(file_name= args[0]->val_str(str)))
  {
    null_value = 1;
    return 0;
  }

  fs::path target_path(fs::system_complete(catalog::local_identifier().getPath()));
  fs::path to_file(file_name->c_ptr());
  if (not to_file.has_root_directory())
  {
    target_path /= to_file;
  }
  else
  {
    target_path= to_file;
  }

  /* Read only allowed from within dir specified by secure_file_priv */
  if (not secure_file_priv.string().empty())
  {
    fs::path secure_file_path(fs::system_complete(secure_file_priv));
    if (target_path.file_string().substr(0, secure_file_path.file_string().size()) != secure_file_path.file_string())
    {
      /* Read only allowed from within dir specified by secure_file_priv */
      my_error(ER_OPTION_PREVENTS_STATEMENT, MYF(0), "--secure-file-priv"); 
      null_value = 1;
      return 0;
    }
  }

  if (stat(target_path.file_string().c_str(), &stat_info))
  {
    my_error(ER_TEXTFILE_NOT_READABLE, MYF(0), file_name->c_ptr());
    goto err;
  }

  if (!(stat_info.st_mode & S_IROTH))
  {
    my_error(ER_TEXTFILE_NOT_READABLE, MYF(0), file_name->c_ptr());
    goto err;
  }

  if (stat_info.st_size > (long) session.variables.max_allowed_packet)
  {
    push_warning_printf(&session, DRIZZLE_ERROR::WARN_LEVEL_WARN,
                        ER_WARN_ALLOWED_PACKET_OVERFLOWED,
                        ER(ER_WARN_ALLOWED_PACKET_OVERFLOWED),
                        func_name(), session.variables.max_allowed_packet);
    goto err;
  }

  if (stat_info.st_size == 0)
  {
    goto err;
  }

  tmp_value.alloc((size_t)stat_info.st_size);
  if ((file = internal::my_open(target_path.file_string().c_str(), O_RDONLY, MYF(0))) < 0)
    goto err;
  if (internal::my_read(file, (unsigned char*) tmp_value.ptr(), (size_t)stat_info.st_size, MYF(MY_NABP)))
  {
    internal::my_close(file, MYF(0));
    goto err;
  }
  if (strlen(tmp_value.ptr()) == 0)
  {
    goto err;
  }
  tmp_value.length((size_t)stat_info.st_size);
  internal::my_close(file, MYF(0));
  null_value = 0;
  return(&tmp_value);

err:
  null_value = 1;
  return 0;
}


} /* namespace drizzled */
