/*-*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*-*/

/***
  This file is part of systemd.

  Copyright 2011 Lennart Poettering

  systemd 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.

  systemd 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 systemd; If not, see <http://www.gnu.org/licenses/>.
***/

#include <dbus/dbus.h>

#include <errno.h>
#include <string.h>
#include <unistd.h>

#include "util.h"
#include "strv.h"
#include "dbus-common.h"
#include "polkit.h"

#define NULL_ADJTIME_UTC "0.0 0 0\n0\nUTC\n"
#define NULL_ADJTIME_LOCAL "0.0 0 0\n0\nLOCAL\n"

#define INTERFACE                                                       \
        " <interface name=\"org.freedesktop.timedate1\">\n"             \
        "  <property name=\"Timezone\" type=\"s\" access=\"read\"/>\n"  \
        "  <property name=\"LocalRTC\" type=\"b\" access=\"read\"/>\n"  \
        "  <method name=\"SetTime\">\n"                                 \
        "   <arg name=\"usec_utc\" type=\"x\" direction=\"in\"/>\n"     \
        "   <arg name=\"relative\" type=\"b\" direction=\"in\"/>\n"     \
        "   <arg name=\"user_interaction\" type=\"b\" direction=\"in\"/>\n" \
        "  </method>\n"                                                 \
        "  <method name=\"SetTimezone\">\n"                             \
        "   <arg name=\"timezone\" type=\"s\" direction=\"in\"/>\n"     \
        "   <arg name=\"user_interaction\" type=\"b\" direction=\"in\"/>\n" \
        "  </method>\n"                                                 \
        "  <method name=\"SetLocalRTC\">\n"                             \
        "   <arg name=\"local_rtc\" type=\"b\" direction=\"in\"/>\n"    \
        "   <arg name=\"fix_system\" type=\"b\" direction=\"in\"/>\n"   \
        "   <arg name=\"user_interaction\" type=\"b\" direction=\"in\"/>\n" \
        "  </method>\n"                                                 \
        " </interface>\n"

#define INTROSPECTION                                                   \
        DBUS_INTROSPECT_1_0_XML_DOCTYPE_DECL_NODE                       \
        "<node>\n"                                                      \
        INTERFACE                                                       \
        BUS_PROPERTIES_INTERFACE                                        \
        BUS_INTROSPECTABLE_INTERFACE                                    \
        BUS_PEER_INTERFACE                                              \
        "</node>\n"

#define INTERFACES_LIST                         \
        BUS_GENERIC_INTERFACES_LIST             \
        "org.freedesktop.locale1\0"

const char timedate_interface[] _introspect_("timedate1") = INTERFACE;

static char *zone = NULL;
static bool local_rtc = false;

static void free_data(void) {
        free(zone);
        zone = NULL;

        local_rtc = false;
}

static bool valid_timezone(const char *name) {
        const char *p;
        char *t;
        bool slash = false;
        int r;
        struct stat st;

        assert(name);

        if (*name == '/' || *name == 0)
                return false;

        for (p = name; *p; p++) {
                if (!(*p >= '0' && *p <= '9') &&
                    !(*p >= 'a' && *p <= 'z') &&
                    !(*p >= 'A' && *p <= 'Z') &&
                    !(*p == '-' || *p == '_' || *p == '+' || *p == '/'))
                        return false;

                if (*p == '/') {

                        if (slash)
                                return false;

                        slash = true;
                } else
                        slash = false;
        }

        if (slash)
                return false;

        t = strappend("/usr/share/zoneinfo/", name);
        if (!t)
                return false;

        r = stat(t, &st);
        free(t);

        if (r < 0)
                return false;

        if (!S_ISREG(st.st_mode))
                return false;

        return true;
}

static void verify_timezone(void) {
        char *p, *a = NULL, *b = NULL;
        size_t l, q;
        int j, k;

        if (!zone)
                return;

        p = strappend("/usr/share/zoneinfo/", zone);
        if (!p) {
                log_error("Out of memory");
                return;
        }

        j = read_full_file("/etc/localtime", &a, &l);
        k = read_full_file(p, &b, &q);

        free(p);

        if (j < 0 || k < 0 || l != q || memcmp(a, b, l)) {
                log_warning("/etc/localtime and /etc/timezone out of sync.");
                free(zone);
                zone = NULL;
        }

        free(a);
        free(b);
}

static int read_data(void) {
        int r;

        free_data();

        r = read_one_line_file("/etc/timezone", &zone);
        if (r < 0 && r != -ENOENT)
                return r;

        verify_timezone();

        local_rtc = hwclock_is_localtime() > 0;

        return 0;
}

static int write_data_timezone(void) {
        int r = 0;
        char *p;

        if (!zone) {
                if (unlink("/etc/timezone") < 0 && errno != ENOENT)
                        r = -errno;

                if (unlink("/etc/localtime") < 0 && errno != ENOENT)
                        r = -errno;

                return r;
        }

        p = strappend("/usr/share/zoneinfo/", zone);
        if (!p) {
                log_error("Out of memory");
                return -ENOMEM;
        }

        r = symlink_or_copy_atomic(p, "/etc/localtime");
        free(p);

        if (r < 0)
                return r;

        r = write_one_line_file_atomic("/etc/timezone", zone);
        if (r < 0)
                return r;

        return 0;
}

static int write_data_local_rtc(void) {
        int r;
        char *s, *w;

        r = read_full_file("/etc/adjtime", &s, NULL);
        if (r < 0) {
                if (r != -ENOENT)
                        return r;

                if (!local_rtc)
                        return 0;

                w = strdup(NULL_ADJTIME_LOCAL);
                if (!w)
                        return -ENOMEM;
        } else {
                char *p, *e;
                size_t a, b;

                p = strchr(s, '\n');
                if (!p) {
                        free(s);
                        return -EIO;
                }

                p = strchr(p+1, '\n');
                if (!p) {
                        free(s);
                        return -EIO;
                }

                p++;
                e = strchr(p, '\n');
                if (!p) {
                        free(s);
                        return -EIO;
                }

                a = p - s;
                b = strlen(e);

                w = new(char, a + (local_rtc ? 5 : 3) + b + 1);
                if (!w) {
                        free(s);
                        return -ENOMEM;
                }

                *(char*) mempcpy(stpcpy(mempcpy(w, s, a), local_rtc ? "LOCAL" : "UTC"), e, b) = 0;

                if (streq(w, NULL_ADJTIME_UTC)) {
                        free(w);

                        if (unlink("/etc/adjtime") < 0) {
                                if (errno != ENOENT)
                                        return -errno;
                        }

                        return 0;
                }
        }

        r = write_one_line_file_atomic("/etc/adjtime", w);
        free(w);

        return r;
}

static DBusHandlerResult timedate_message_handler(
                DBusConnection *connection,
                DBusMessage *message,
                void *userdata) {

        const BusProperty properties[] = {
                { "org.freedesktop.timedate1", "Timezone", bus_property_append_string, "s", zone       },
                { "org.freedesktop.timedate1", "LocalRTC", bus_property_append_bool,   "b", &local_rtc },
                { NULL, NULL, NULL, NULL, NULL }
        };

        DBusMessage *reply = NULL, *changed = NULL;
        DBusError error;
        int r;

        assert(connection);
        assert(message);

        dbus_error_init(&error);

        if (dbus_message_is_method_call(message, "org.freedesktop.timedate1", "SetTimezone")) {
                const char *z;
                dbus_bool_t interactive;

                if (!dbus_message_get_args(
                                    message,
                                    &error,
                                    DBUS_TYPE_STRING, &z,
                                    DBUS_TYPE_BOOLEAN, &interactive,
                                    DBUS_TYPE_INVALID))
                        return bus_send_error_reply(connection, message, &error, -EINVAL);

                if (!valid_timezone(z))
                        return bus_send_error_reply(connection, message, NULL, -EINVAL);

                if (!streq_ptr(z, zone)) {
                        char *t;

                        r = verify_polkit(connection, message, "org.freedesktop.timedate1.set-timezone", interactive, &error);
                        if (r < 0)
                                return bus_send_error_reply(connection, message, &error, r);

                        t = strdup(z);
                        if (!t)
                                goto oom;

                        free(zone);
                        zone = t;

                        /* 1. Write new configuration file */
                        r = write_data_timezone();
                        if (r < 0) {
                                log_error("Failed to set timezone: %s", strerror(-r));
                                return bus_send_error_reply(connection, message, NULL, r);
                        }

                        if (local_rtc) {
                                struct timespec ts;
                                struct tm *tm;

                                /* 2. Teach kernel new timezone */
                                hwclock_apply_localtime_delta();

                                /* 3. Sync RTC from system clock, with the new delta */
                                assert_se(clock_gettime(CLOCK_REALTIME, &ts) == 0);
                                assert_se(tm = localtime(&ts.tv_sec));
                                hwclock_set_time(tm);
                        }

                        log_info("Changed timezone to '%s'.", zone);

                        changed = bus_properties_changed_new(
                                        "/org/freedesktop/timedate1",
                                        "org.freedesktop.timedate1",
                                        "Timezone\0");
                        if (!changed)
                                goto oom;
                }

        } else if (dbus_message_is_method_call(message, "org.freedesktop.timedate1", "SetLocalRTC")) {
                dbus_bool_t lrtc;
                dbus_bool_t fix_system;
                dbus_bool_t interactive;

                if (!dbus_message_get_args(
                                    message,
                                    &error,
                                    DBUS_TYPE_BOOLEAN, &lrtc,
                                    DBUS_TYPE_BOOLEAN, &fix_system,
                                    DBUS_TYPE_BOOLEAN, &interactive,
                                    DBUS_TYPE_INVALID))
                        return bus_send_error_reply(connection, message, &error, -EINVAL);

                if (lrtc != local_rtc) {
                        struct timespec ts;

                        r = verify_polkit(connection, message, "org.freedesktop.timedate1.set-local-rtc", interactive, &error);
                        if (r < 0)
                                return bus_send_error_reply(connection, message, &error, r);

                        local_rtc = lrtc;

                        /* 1. Write new configuration file */
                        r = write_data_local_rtc();
                        if (r < 0) {
                                log_error("Failed to set RTC to local/UTC: %s", strerror(-r));
                                return bus_send_error_reply(connection, message, NULL, r);
                        }

                        /* 2. Teach kernel new timezone */
                        if (local_rtc)
                                hwclock_apply_localtime_delta();
                        else
                                hwclock_reset_localtime_delta();

                        /* 3. Synchronize clocks */
                        assert_se(clock_gettime(CLOCK_REALTIME, &ts) == 0);

                        if (fix_system) {
                                struct tm tm;

                                /* Sync system clock from RTC; first,
                                 * initialize the timezone fields of
                                 * struct tm. */
                                if (local_rtc)
                                        tm = *localtime(&ts.tv_sec);
                                else
                                        tm = *gmtime(&ts.tv_sec);

                                /* Override the main fields of
                                 * struct tm, but not the timezone
                                 * fields */
                                if (hwclock_get_time(&tm) >= 0) {

                                        /* And set the system clock
                                         * with this */
                                        if (local_rtc)
                                                ts.tv_sec = mktime(&tm);
                                        else
                                                ts.tv_sec = timegm(&tm);

                                        clock_settime(CLOCK_REALTIME, &ts);
                                }

                        } else {
                                struct tm *tm;

                                /* Sync RTC from system clock */
                                if (local_rtc)
                                        tm = localtime(&ts.tv_sec);
                                else
                                        tm = gmtime(&ts.tv_sec);

                                hwclock_set_time(tm);
                        }

                        log_error("RTC configured to %s time.", local_rtc ? "local" : "UTC");

                        changed = bus_properties_changed_new(
                                        "/org/freedesktop/timedate1",
                                        "org.freedesktop.timedate1",
                                        "LocalRTC\0");
                        if (!changed)
                                goto oom;
                }

        } else if (dbus_message_is_method_call(message, "org.freedesktop.timedate1", "SetTime")) {
                int64_t utc;
                dbus_bool_t relative;
                dbus_bool_t interactive;

                if (!dbus_message_get_args(
                                    message,
                                    &error,
                                    DBUS_TYPE_INT64, &utc,
                                    DBUS_TYPE_BOOLEAN, &relative,
                                    DBUS_TYPE_BOOLEAN, &interactive,
                                    DBUS_TYPE_INVALID))
                        return bus_send_error_reply(connection, message, &error, -EINVAL);

                if (!relative && utc <= 0)
                        return bus_send_error_reply(connection, message, NULL, -EINVAL);

                if (!relative || utc != 0) {
                        struct timespec ts;
                        struct tm* tm;

                        r = verify_polkit(connection, message, "org.freedesktop.timedate1.set-time", interactive, &error);
                        if (r < 0)
                                return bus_send_error_reply(connection, message, &error, r);

                        if (relative)
                                timespec_store(&ts, now(CLOCK_REALTIME) + utc);
                        else
                                timespec_store(&ts, utc);

                        /* Set system clock */
                        if (clock_settime(CLOCK_REALTIME, &ts) < 0) {
                                log_error("Failed to set local time: %m");
                                return bus_send_error_reply(connection, message, NULL, -errno);
                        }

                        /* Sync down to RTC */
                        if (local_rtc)
                                tm = localtime(&ts.tv_sec);
                        else
                                tm = gmtime(&ts.tv_sec);

                        hwclock_set_time(tm);

                        log_info("Changed local time to %s", ctime(&ts.tv_sec));
                }

        } else
                return bus_default_message_handler(connection, message, INTROSPECTION, INTERFACES_LIST, properties);

        if (!(reply = dbus_message_new_method_return(message)))
                goto oom;

        if (!dbus_connection_send(connection, reply, NULL))
                goto oom;

        dbus_message_unref(reply);
        reply = NULL;

        if (changed) {

                if (!dbus_connection_send(connection, changed, NULL))
                        goto oom;

                dbus_message_unref(changed);
        }

        return DBUS_HANDLER_RESULT_HANDLED;

oom:
        if (reply)
                dbus_message_unref(reply);

        if (changed)
                dbus_message_unref(changed);

        dbus_error_free(&error);

        return DBUS_HANDLER_RESULT_NEED_MEMORY;
}

static int connect_bus(DBusConnection **_bus) {
        static const DBusObjectPathVTable timedate_vtable = {
                .message_function = timedate_message_handler
        };
        DBusError error;
        DBusConnection *bus = NULL;
        int r;

        assert(_bus);

        dbus_error_init(&error);

        bus = dbus_bus_get_private(DBUS_BUS_SYSTEM, &error);
        if (!bus) {
                log_error("Failed to get system D-Bus connection: %s", bus_error_message(&error));
                r = -ECONNREFUSED;
                goto fail;
        }

        if (!dbus_connection_register_object_path(bus, "/org/freedesktop/timedate1", &timedate_vtable, NULL)) {
                log_error("Not enough memory");
                r = -ENOMEM;
                goto fail;
        }

        if (dbus_bus_request_name(bus, "org.freedesktop.timedate1", DBUS_NAME_FLAG_DO_NOT_QUEUE, &error) < 0) {
                log_error("Failed to register name on bus: %s", error.message);
                r = -EEXIST;
                goto fail;
        }

        if (_bus)
                *_bus = bus;

        return 0;

fail:
        dbus_connection_close(bus);
        dbus_connection_unref(bus);

        dbus_error_free(&error);

        return r;
}

int main(int argc, char *argv[]) {
        int r;
        DBusConnection *bus = NULL;

        log_set_target(LOG_TARGET_AUTO);
        log_parse_environment();
        log_open();

        if (argc == 2 && streq(argv[1], "--introspect")) {
                fputs(DBUS_INTROSPECT_1_0_XML_DOCTYPE_DECL_NODE
                      "<node>\n", stdout);
                fputs(timedate_interface, stdout);
                fputs("</node>\n", stdout);
                return 0;
        }

        if (argc != 1) {
                log_error("This program takes no arguments.");
                r = -EINVAL;
                goto finish;
        }

        umask(0022);

        r = read_data();
        if (r < 0) {
                log_error("Failed to read timezone data: %s", strerror(-r));
                goto finish;
        }

        r = connect_bus(&bus);
        if (r < 0)
                goto finish;

        while (dbus_connection_read_write_dispatch(bus, -1))
                ;

        r = 0;

finish:
        free_data();

        if (bus) {
                dbus_connection_flush(bus);
                dbus_connection_close(bus);
                dbus_connection_unref(bus);
        }

        return r < 0 ? EXIT_FAILURE : EXIT_SUCCESS;
}