// Copyright (C) 2016 The Android Open Source Project
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//      http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include <sys/capability.h>
#include <sys/types.h>
#include <unistd.h>

#include <libminijail.h>

#include <android-base/logging.h>
#include <android-base/macros.h>

const uid_t kSystemUid = 1000U;

gid_t groups[] = {kSystemUid + 1, kSystemUid + 2};

size_t getgroups_with_alloc(gid_t** plist) {
  *plist = NULL;

  int nsupp_groups = getgroups(0, NULL);
  if (nsupp_groups < 0) {
    PLOG(ERROR) << "getgroups(0)";
    return 0;
  }
  if (nsupp_groups == 0) {
    LOG(INFO) << "No supplementary groups.";
    return 0;
  }

  *plist = (gid_t*)calloc((size_t)nsupp_groups, sizeof(gid_t));
  nsupp_groups = getgroups(nsupp_groups, *plist);
  if (nsupp_groups < 0) {
    PLOG(ERROR) << "getgroups(nsupp_groups)";
    free(*plist);
    return 0;
  }
  return nsupp_groups;
}

bool check_ugid(uid_t expected_id) {
  bool success = true;

  uid_t ruid = getuid();
  if (ruid != expected_id) {
    LOG(ERROR) << "rUID " << ruid << " is not " << expected_id;
    success = false;
  }
  gid_t rgid = getgid();
  if (rgid != expected_id) {
    LOG(ERROR) << "rGID " << ruid << " is not " << expected_id;
    success = false;
  }
  return success;
}

bool check_groups(size_t expected_size, gid_t* expected_list) {
  bool success = true;

  gid_t* actual_list;
  size_t actual_size = getgroups_with_alloc(&actual_list);

  if (expected_size != actual_size) {
    LOG(ERROR) << "Mismatched supplementary group list size: expected "
               << expected_size << ", actual " << actual_size;
    success = false;
  }

  for (size_t i = 0; i < expected_size; i++) {
    bool found = false;
    for (size_t j = 0; j < actual_size; j++) {
      if (expected_list[i] == actual_list[j]) {
        // Test next expected GID.
        found = true;
        break;
      }
    }
    if (!found) {
      LOG(ERROR) << "Expected GID " << expected_list[i] << " not found.";
      success = false;
    }
  }
  free(actual_list);
  return success;
}

void log_resugid() {
  uid_t ruid, euid, suid;
  gid_t rgid, egid, sgid;
  getresuid(&ruid, &euid, &suid);
  getresgid(&rgid, &egid, &sgid);

  LOG(INFO) << "ruid " << ruid << " euid " << euid << " suid " << suid;
  LOG(INFO) << "rgid " << rgid << " egid " << egid << " sgid " << sgid;

  gid_t* list;
  size_t nsupp_groups = getgroups_with_alloc(&list);
  for (size_t i = 0; i < (size_t)nsupp_groups; i++) {
    LOG(INFO) << "supp gid " << i + 1 << " " << list[i];
  }
  free(list);
}

int main(void) {
  minijail* j = minijail_new();
  minijail_change_user(j, "system");
  minijail_change_group(j, "system");
  size_t num_groups = arraysize(groups);
  minijail_set_supplementary_gids(j, num_groups, groups);
  minijail_use_caps(j, CAP_TO_MASK(CAP_SETUID) | CAP_TO_MASK(CAP_SETGID));
  minijail_enter(j);

  bool success = check_ugid(kSystemUid);
  success = success && check_groups(num_groups, groups);

  minijail_destroy(j);
  minijail* j2 = minijail_new();
  minijail_change_uid(j2, 5 * kSystemUid);
  minijail_change_gid(j2, 5 * kSystemUid);
  minijail_enter(j2);

  success = success && check_ugid(5 * kSystemUid);

  return success ? 0 : 1;
}