/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*-
 *
 * Copyright (C) 2010 Richard Hughes <richard@hughsie.com>
 *
 * Licensed under the GNU General Public License Version 2
 *
 * 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; 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 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 Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <glib-object.h>
#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif
#ifdef HAVE_SYS_STAT_H
#include <sys/stat.h>
#endif
#include <fcntl.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#if defined(BACKEND_TYPE_FREEBSD)
#include <sys/sysctl.h>
#endif

#define EXIT_CODE_SUCCESS   0
#define EXIT_CODE_FAILED    1
#define EXIT_CODE_ARGUMENTS_INVALID 3
#define EXIT_CODE_INVALID_USER    4
#define EXIT_CODE_NO_BRIGHTNESS_SWITCH  5

#if !defined(BACKEND_TYPE_FREEBSD)
#define BACKLIGHT_SYSFS_LOCATION  "/sys/class/backlight"
#define BRIGHTNESS_SWITCH_LOCATION  "/sys/module/video/parameters/brightness_switch_enabled"
#endif


#if defined(BACKEND_TYPE_FREEBSD)
gboolean
acpi_video_is_enabled (gchar *device)
{
  return (backlight_helper_get_switch (device) == 1) ? TRUE : FALSE;
}

gint
backlight_helper_get_switch (gchar *device)
{
  size_t size;
  gint buf, res = -1;
  gchar *name;

  name = g_strdup_printf ("hw.acpi.video.%s.active", device);
  size = sizeof (buf);

  if (sysctlbyname (name, &buf, &size, NULL, 0) == 0)
    res = buf;

  g_free (name);
  return res;
}

gint
backlight_helper_get_brightness (gchar *device)
{
  size_t size;
  gint buf, res = -1;
  gchar *name;

  name = g_strdup_printf ("hw.acpi.video.%s.brightness", device);
  size = sizeof (buf);

  if (sysctlbyname (name, &buf, &size, NULL, 0) == 0)
    res = buf;

  g_free (name);
  return res;
}

gint
int_cmp (gconstpointer a, gconstpointer b)
{
  return (gint) a < (gint) b ? -1 : ((gint) a == (gint) b ? 0 : 1);
}

GList *
backlight_helper_get_levels (gchar *device)
{
  size_t size;
  gint *levels;
  gint nlevels, i;
  GList *list = NULL, *item;
  gchar *name;

  name = g_strdup_printf ("hw.acpi.video.%s.levels", device);

  /* allocate memory */
  sysctlbyname (name, NULL, &size, NULL, 0);
  levels = (int *) malloc (size);

  if (sysctlbyname (name, levels, &size, NULL, 0) == 0) {
    nlevels = size / sizeof (gint);

    for (i = 0; i < nlevels; i++) {
      /* no duplicate item */
      item = g_list_find (list, GINT_TO_POINTER (levels[i]));
      if (item == NULL)
        list = g_list_append (list,
                  GINT_TO_POINTER (levels[i]));
    }
  }

  g_free (levels);
  g_free (name);

  if (list != NULL)
    list = g_list_sort (list, int_cmp);

  return list;
}

gboolean
backlight_helper_set_switch (gchar *device, gint value)
{
  size_t size;
  gint buf, old_buf;
  gchar *name;
  gint res = -1;
  gboolean result = FALSE;

  name = g_strdup_printf ("hw.acpi.video.%s.active", device);

  res = backlight_helper_get_switch (device);
  if (res != -1) {
    old_buf = res;
    size = sizeof (buf);

    /* we change value and check if it's really different */
    if (sysctlbyname (name, &buf, &size, &value, sizeof (value)) == 0) {
      res = backlight_helper_get_switch (device);
      if (res != -1 && res != old_buf)
        result = TRUE;
    }
  }
  g_free (name);

  return result;
}

gboolean
backlight_helper_set_brightness (gchar *device, gint value)
{
  size_t size;
  gint buf, old_buf;
  gchar *name;
  gint res = -1;
  gboolean result = FALSE;

  name = g_strdup_printf ("hw.acpi.video.%s.brightness", device);

  res = backlight_helper_get_brightness (device);
  if (res != -1) {
    old_buf = res;
    size = sizeof (buf);

    /* we change value, and check if it's really different */
    if (sysctlbyname (name, &buf, &size, &value, sizeof (value)) == 0) {
      res = backlight_helper_get_brightness (device);
      if (res != -1 && res != old_buf)
        result = TRUE;
    }
  }

  g_free (name);

  return result;
}

/*
 * Find device which supports backlight brightness
 */
static gchar *
backlight_helper_get_device (void)
{
  /* devices in priority order */
  gchar *types[] = { "lcd", "crt", "out", "ext", "tv", NULL };
  gchar *device = NULL;
  gint i;

  device = (gchar *) g_malloc (sizeof (gchar));

  for (i = 0; types[i] != NULL; i++) {
    g_snprintf (device, (gulong) strlen (types[i]), "%s0", types[i]);

    /* stop, when first device is found */
    if (acpi_video_is_enabled (device))
      break;
  }

  return device;
}

/*
 * Backlight helper main function
 */
gint
main (gint argc, gchar *argv[])
{
  GOptionContext *context;
  gint uid;
  gint euid;
  guint retval = 0;
  const gchar *pkexec_uid_str;
  gint ret = -1;
  gint set_brightness = -1;
  gboolean get_brightness = FALSE;
  gboolean get_max_brightness = FALSE;
  gint set_brightness_switch = -1;
  gboolean get_brightness_switch = FALSE;
  gchar *device = NULL;
  GList *list = NULL;

  const GOptionEntry options[] = {
    { "set-brightness", '\0', 0, G_OPTION_ARG_INT, &set_brightness,
       /* command line argument */
      "Set the current brightness", NULL },
    { "get-brightness", '\0', 0, G_OPTION_ARG_NONE, &get_brightness,
       /* command line argument */
      "Get the current brightness", NULL },
    { "get-max-brightness", '\0', 0, G_OPTION_ARG_NONE, &get_max_brightness,
       /* command line argument */
      "Get the number of brightness levels supported", NULL },
    { "set-brightness-switch", '\0', 0, G_OPTION_ARG_INT, &set_brightness_switch,
                  /* command line argument */
      "Enable or disable ACPI video brightness switch handling", NULL },
    { "get-brightness-switch", '\0', 0, G_OPTION_ARG_NONE, &get_brightness_switch,
                  /* command line argument */
      "Get the current setting of the ACPI video brightness switch handling", NULL },
    { NULL }
  };

  context = g_option_context_new (NULL);
  g_option_context_set_summary (context, "Xfce Power Manager Backlight Helper");
  g_option_context_add_main_entries (context, options, NULL);
  g_option_context_parse (context, &argc, &argv, NULL);
  g_option_context_free (context);

  /* no input */
  if (set_brightness == -1 && !get_brightness && !get_max_brightness &&
      set_brightness_switch == -1 && !get_brightness_switch) {
    g_printerr ("No valid option was specified\n");
    retval = EXIT_CODE_ARGUMENTS_INVALID;
    goto out;
  }

  /* find backlight device */
  device = backlight_helper_get_device ();

  if (device != NULL) {
    /* get the current setting of the ACPI video brightness switch handling */
    if (get_brightness_switch) {
      ret = backlight_helper_get_switch (device);
      /* just print result to stdout */
      if (ret == -1)
      {
        g_printerr ("%d", ret);
        retval = EXIT_CODE_FAILED;
      }
      else
      {
        g_print ("%d", ret);
        retval = EXIT_CODE_SUCCESS;
      }
      goto out;
    }

    /* get current brightness level */
    if (get_brightness) {
      ret = backlight_helper_get_brightness (device);
      /* just print result to stdout */
      if (ret == -1)
      {
        g_printerr ("%d", ret);
        retval = EXIT_CODE_FAILED;
      }
      else
      {
        g_print ("%d", ret);
        retval = EXIT_CODE_SUCCESS;
      }
      goto out;
    }

    /* get maximum brightness level */
    if (get_max_brightness) {
      list = backlight_helper_get_levels (device);
      if (list != NULL) {
        /* just print result to stdout */
        g_print ("%d", (gint) g_list_last (list)->data);
        g_list_free (list);
        retval = EXIT_CODE_SUCCESS;
        goto out;
      }
      else {
        g_printerr ("Could not get the maximum value of the backlight\n");
        retval = EXIT_CODE_FAILED;
        goto out;
      }
    }

    /* get calling process */
    uid = getuid ();
    euid = geteuid ();
    if (uid != 0 || euid != 0) {
      g_printerr ("This program can only be used by the root user\n");
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }

    /* check we're not being spoofed */
    pkexec_uid_str = g_getenv ("PKEXEC_UID");
    if (pkexec_uid_str == NULL) {
      g_printerr ("This program must only be run through pkexec\n");
      retval = EXIT_CODE_INVALID_USER;
      goto out;
    }

    /* set the brightness level */
    if (set_brightness != -1) {
      if (backlight_helper_set_brightness (device, set_brightness)) {
        retval = EXIT_CODE_SUCCESS;
        goto out;
      }
      else {
        g_printerr ("Could not set the value of the backlight\n");
        retval = EXIT_CODE_FAILED;
        goto out;
      }
    }

    /* enable or disable ACPI video brightness switch handling */
    if (set_brightness_switch != -1) {
      if (backlight_helper_set_switch (device, set_brightness_switch)) {
        retval = EXIT_CODE_SUCCESS;
        goto out;
      }
      else {
        g_printerr ("Could not set the value of the brightness switch\n");
        retval = EXIT_CODE_FAILED;
        goto out;
      }
    }
  }
  else {
    retval = ret;
    goto out;
  }
out:
  return retval;
}
#else
typedef enum {
  BACKLIGHT_TYPE_UNKNOWN,
  BACKLIGHT_TYPE_FIRMWARE,
  BACKLIGHT_TYPE_PLATFORM,
  BACKLIGHT_TYPE_RAW
} BacklightType;

static BacklightType
backlight_helper_get_type (const gchar *sysfs_path)
{
  gboolean ret;
  gchar *filename = NULL;
  GError *error = NULL;
  gchar *type_tmp = NULL;
  BacklightType type = BACKLIGHT_TYPE_UNKNOWN;

  filename = g_build_filename (sysfs_path,
             "type", NULL);
  ret = g_file_get_contents (filename,
           &type_tmp,
           NULL, &error);
  if (!ret) {
    if (error)
    {
      g_warning ("failed to get type: %s", error->message);
      g_error_free (error);
    }
    goto out;
  }
  if (g_str_has_prefix (type_tmp, "platform")) {
    type = BACKLIGHT_TYPE_PLATFORM;
    goto out;
  }
  if (g_str_has_prefix (type_tmp, "firmware")) {
    type = BACKLIGHT_TYPE_FIRMWARE;
    goto out;
  }
  if (g_str_has_prefix (type_tmp, "raw")) {
    type = BACKLIGHT_TYPE_RAW;
    goto out;
  }
out:
  g_free (filename);
  g_free (type_tmp);
  return type;
}

/*
 * Find best backlight using the kernel-supplied backlight type
 */
static gchar *
backlight_helper_get_best_backlight (void)
{
  const gchar *device_name;
  const gchar *filename_tmp;
  gchar *best_device = NULL;
  gchar *filename = NULL;
  GDir *dir = NULL;
  GError *error = NULL;
  GPtrArray *sysfs_paths = NULL;
  BacklightType *backlight_types = NULL;
  guint i;

  /* search the backlight devices and prefer the types:
   * firmware -> platform -> raw */
  dir = g_dir_open (BACKLIGHT_SYSFS_LOCATION, 0, &error);
  if (dir == NULL) {
    if (error)
    {
      g_warning ("failed to find any devices: %s", error->message);
      g_error_free (error);
    }
    goto out;
  }
  sysfs_paths = g_ptr_array_new_with_free_func (g_free);
  device_name = g_dir_read_name (dir);
  while (device_name != NULL) {
    filename = g_build_filename (BACKLIGHT_SYSFS_LOCATION,
               device_name, NULL);
    g_ptr_array_add (sysfs_paths, filename);
    device_name = g_dir_read_name (dir);
  }

  /* no backlights */
  if (sysfs_paths->len == 0)
    goto out;

  /* find out the type of each backlight */
  backlight_types = g_new0 (BacklightType, sysfs_paths->len);
  for (i = 0; i < sysfs_paths->len; i++) {
    filename_tmp = g_ptr_array_index (sysfs_paths, i);
    backlight_types[i] = backlight_helper_get_type (filename_tmp);
  }

  /* any devices of type firmware -> platform -> raw? */
  for (i = 0; i < sysfs_paths->len; i++) {
    if (backlight_types[i] == BACKLIGHT_TYPE_FIRMWARE) {
      best_device = g_strdup (g_ptr_array_index (sysfs_paths, i));
      goto out;
    }
  }
  for (i = 0; i < sysfs_paths->len; i++) {
    if (backlight_types[i] == BACKLIGHT_TYPE_PLATFORM) {
      best_device = g_strdup (g_ptr_array_index (sysfs_paths, i));
      goto out;
    }
  }
  for (i = 0; i < sysfs_paths->len; i++) {
    if (backlight_types[i] == BACKLIGHT_TYPE_RAW) {
      best_device = g_strdup (g_ptr_array_index (sysfs_paths, i));
      goto out;
    }
  }
out:
  g_free (backlight_types);
  if (sysfs_paths != NULL)
    g_ptr_array_unref (sysfs_paths);
  if (dir != NULL)
    g_dir_close (dir);
  return best_device;
}

/*
 * Write a value to a sysfs entry
 */
static gboolean
backlight_helper_write (const gchar *filename, gint value, GError **error)
{
  gchar *text = NULL;
  gint retval;
  gint length;
  gint fd = -1;
  gboolean ret = TRUE;

  fd = open (filename, O_WRONLY);
  if (fd < 0) {
    ret = FALSE;
    g_set_error (error, 1, 0, "failed to open filename: %s", filename);
    goto out;
  }

  /* convert to text */
  text = g_strdup_printf ("%i", value);
  length = strlen (text);

  /* write to device file */
  retval = write (fd, text, length);
  if (retval != length) {
    ret = FALSE;
    g_set_error (error, 1, 0, "writing '%s' to %s failed", text, filename);
    goto out;
  }
out:
  if (fd >= 0)
    close (fd);
  g_free (text);
  return ret;
}

/*
 * Backlight helper main function
 */
gint
main (gint argc, gchar *argv[])
{
  GOptionContext *context;
  gint uid;
  gint euid;
  guint retval = 0;
  const gchar *pkexec_uid_str;
  GError *error = NULL;
  gboolean ret = FALSE;
  gint set_brightness = -1;
  gboolean get_brightness = FALSE;
  gboolean get_max_brightness = FALSE;
  gint set_brightness_switch = -1;
  gboolean get_brightness_switch = FALSE;
  gchar *filename = NULL;
  gchar *filename_file = NULL;
  gchar *contents = NULL;

  const GOptionEntry options[] = {
    { "set-brightness", '\0', 0, G_OPTION_ARG_INT, &set_brightness,
       /* command line argument */
      "Set the current brightness", NULL },
    { "get-brightness", '\0', 0, G_OPTION_ARG_NONE, &get_brightness,
       /* command line argument */
      "Get the current brightness", NULL },
    { "get-max-brightness", '\0', 0, G_OPTION_ARG_NONE, &get_max_brightness,
       /* command line argument */
      "Get the number of brightness levels supported", NULL },
    { "set-brightness-switch", '\0', 0, G_OPTION_ARG_INT, &set_brightness_switch,
                  /* command line argument */
      "Enable or disable ACPI video brightness switch handling", NULL },
    { "get-brightness-switch", '\0', 0, G_OPTION_ARG_NONE, &get_brightness_switch,
                  /* command line argument */
      "Get the current setting of the ACPI video brightness switch handling", NULL },
    { NULL }
  };

  context = g_option_context_new (NULL);
  g_option_context_set_summary (context, "Xfce Power Manager Backlight Helper");
  g_option_context_add_main_entries (context, options, NULL);
  g_option_context_parse (context, &argc, &argv, NULL);
  g_option_context_free (context);

  /* no input */
  if (set_brightness == -1 && !get_brightness && !get_max_brightness &&
      set_brightness_switch == -1 && !get_brightness_switch) {
    puts ("No valid option was specified");
    retval = EXIT_CODE_ARGUMENTS_INVALID;
    goto out;
  }

  /* for brightness switch modifications, check for existence of the sysfs entry */
  if (set_brightness_switch != -1 || get_brightness_switch) {
    ret = g_file_test (BRIGHTNESS_SWITCH_LOCATION, G_FILE_TEST_EXISTS);
    if (!ret) {
      g_printerr ("Video brightness switch setting not available.\n");
      retval = EXIT_CODE_NO_BRIGHTNESS_SWITCH;
      goto out;
    }
  } else {  /* find backlight device */
    filename = backlight_helper_get_best_backlight ();
    if (filename == NULL) {
      puts ("No backlights were found on your system");
      retval = EXIT_CODE_INVALID_USER;
      goto out;
    }
  }

  /* get the current setting of the ACPI video brightness switch handling */
  if (get_brightness_switch) {
    ret = g_file_get_contents (BRIGHTNESS_SWITCH_LOCATION, &contents, NULL, &error);
    if (!ret) {
      if (error)
      {
        g_printerr ("Could not get the value of the brightness switch: %s\n", error->message);
        g_error_free (error);
      }
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }

    /* just print the contents to stdout */
    g_print ("%s", contents);
    retval = EXIT_CODE_SUCCESS;
    goto out;
  }

  /* get current brightness level */
  if (get_brightness) {
    filename_file = g_build_filename (filename, "brightness", NULL);
    ret = g_file_get_contents (filename_file, &contents, NULL, &error);
    if (!ret) {
      if (error)
      {
        g_printerr ("Could not get the value of the backlight: %s\n", error->message);
        g_error_free (error);
      }
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }

    /* just print the contents to stdout */
    g_print ("%s", contents);
    retval = EXIT_CODE_SUCCESS;
    goto out;
  }

  /* get maximum brightness level */
  if (get_max_brightness) {
    filename_file = g_build_filename (filename, "max_brightness", NULL);
    ret = g_file_get_contents (filename_file, &contents, NULL, &error);
    if (!ret) {
      if (error)
      {
        g_printerr ("Could not get the maximum value of the backlight: %s\n", error->message);
        g_error_free (error);
      }
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }

    /* just print the contents to stdout */
    g_print ("%s", contents);
    retval = EXIT_CODE_SUCCESS;
    goto out;
  }

  /* get calling process */
  uid = getuid ();
  euid = geteuid ();
  if (uid != 0 || euid != 0) {
    puts ("This program can only be used by the root user");
    retval = EXIT_CODE_ARGUMENTS_INVALID;
    goto out;
  }

  /* check we're not being spoofed */
  pkexec_uid_str = g_getenv ("PKEXEC_UID");
  if (pkexec_uid_str == NULL) {
    puts ("This program must only be run through pkexec");
    retval = EXIT_CODE_INVALID_USER;
    goto out;
  }

  /* set the brightness level */
  if (set_brightness != -1) {
    filename_file = g_build_filename (filename, "brightness", NULL);
    ret = backlight_helper_write (filename_file, set_brightness, &error);
    if (!ret) {
      if (error)
      {
        g_printerr ("Could not set the value of the backlight: %s\n", error->message);
        g_error_free (error);
      }
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }
    retval = EXIT_CODE_SUCCESS;
    goto out;
  }

  /* enable or disable ACPI video brightness switch handling */
  if (set_brightness_switch != -1) {
    ret = backlight_helper_write (BRIGHTNESS_SWITCH_LOCATION,
                set_brightness_switch, &error);
    if (!ret) {
      if (error)
      {
        g_printerr ("Could not set the value of the brightness switch: %s\n", error->message);
        g_error_free (error);
      }
      retval = EXIT_CODE_ARGUMENTS_INVALID;
      goto out;
    }
  }

  /* success */
  retval = EXIT_CODE_SUCCESS;
out:
  g_free (filename);
  g_free (filename_file);
  g_free (contents);
  return retval;
}
#endif
