/*
* Functions for generating bind9 configurations to enable dynamic dns for a subdomain via TSIG authentication
* which is unique to that subdomain
*/
use crate::constants::DOMAIN_REGEX;
use crate::errors::*;
use log::{error, info};
use snafu::ResultExt;
use std::fs::File;
use std::fs::OpenOptions;
use std::io::Write;
use std::process::Command;
use tera::{Context, Tera};

/// function to generate the text of a TSIG key file
pub fn generate_tsig_key(full_domain: &str) -> Result<String, PeachDynDnsError> {
    let output = Command::new("/usr/sbin/tsig-keygen")
        .arg("-a")
        .arg("hmac-md5")
        .arg(full_domain)
        .output()
        .context(KeyGenerationError)?;
    let key_file_text = String::from_utf8(output.stdout).context(KeyFileParseError)?;
    Ok(key_file_text)
}

// function returns true if domain is of the format something.dyn.peachcloud.org
pub fn validate_domain(domain: &str) -> bool {
    use regex::Regex;
    let re = Regex::new(DOMAIN_REGEX).unwrap();
    re.is_match(domain)
}

/// function which helps us guarantee that a given domain is not already being used by bind
/// it checks three places for the domain, and only returns true if it is not found in all three places
/// - no already extant tsig key for the given domain
/// - no zone file for the given domain in /var/lib/bind
/// - no zone section for the given domain in named.conf.local
pub fn check_domain_available(full_domain: &str) -> bool {
    let status1 = Command::new("/bin/grep")
        .arg(full_domain)
        .arg("/etc/bind/named.conf.local")
        .status()
        .expect("error running grep on /etc/bind/named.conf.local");
    let code1 = status1.code().expect("error getting code from grep");
    let status2 = Command::new("/bin/grep")
        .arg(full_domain)
        .arg("/etc/bind/dyn.peachcloud.org.keys")
        .status()
        .expect("error running grep on /etc/bind/dyn.peachcloud.org.keys");
    let code2 = status2.code().expect("error getting code from grep");
    let condition3 = std::path::Path::new(&format!("/var/lib/bind/{}", full_domain)).exists();

    // domain is only available if domain does not exist in either named.conf.local or dyn.peachcloud.orgkeys
    // and a file with that name is not found in /var/lib/bind/
    // grep returns a status code of 1 if lines are not found, which is why we check that the codes equal 1
    (code1 == 1) & (code2 == 1) & (!condition3)
}

/// function which generates all necessary bind configuration to serve the given
/// subdomain using dynamic DNS authenticated via a new TSIG key which is unique to that subdomain
/// thus only the possessor of that key can use nsupdate to modify the records
/// for that subodmain
/// - generate a new ddns key (tsig-keygen -a hmac-md5 {{subdomain}}.dyn.peachcloud.org) and append it to /etc/bind/dyn.peachcloud.org.keys
/// - add a zone section to /etc/bind/named.conf.local, associating the key with the subdomain
/// - add a minimal zone file to /var/lib/bind/subdomain.dyn.peachcloud.org
/// - reload bind and return the secret key to the client
pub fn generate_zone(full_domain: &str) -> Result<String, PeachDynDnsError> {
    // first safety check domain is in correct format
    if !validate_domain(full_domain) {
        return Err(PeachDynDnsError::InvalidDomain {
            domain: full_domain.to_string(),
        });
    }

    // safety check if the domain is available
    let is_available = check_domain_available(full_domain);
    if !is_available {
        return Err(PeachDynDnsError::DomainAlreadyExistsError {
            domain: full_domain.to_string(),
        });
    }

    // generate string with text for TSIG key file
    let key_file_text = generate_tsig_key(full_domain).expect("failed to generate tsig key");

    // append key_file_text to /etc/bind/dyn.peachcloud.org.keys
    let key_file_path = "/etc/bind/dyn.peachcloud.org.keys";
    let mut file = OpenOptions::new()
        .append(true)
        .open(key_file_path)
        .unwrap_or_else(|_| panic!("failed to open {}", key_file_path));
    if let Err(e) = writeln!(file, "{}", key_file_text) {
        error!("Couldn't write to file: {}", e);
    }

    // append zone section to /etc/bind/named.conf.local
    let bind_conf_path = "/etc/bind/named.conf.local";
    let mut file = OpenOptions::new()
        .append(true)
        .open(bind_conf_path)
        .unwrap_or_else(|_| panic!("failed to open {}", bind_conf_path));
    // this commented out section, with update-policy stopped working
    // so we are now using allow-update
    // let zone_section_text = format!(
    //     "\
    //     zone \"{full_domain}\" {{
    //         type master;
    //         file \"/var/lib/bind/{full_domain}\";
    //         update-policy {{
	//             grant {full_domain} self {full_domain};
    //         }};
    //     }};
    // ",
    //     full_domain = full_domain
    // );
    let zone_section_text = format!(
        "\
        zone \"{full_domain}\" {{
            type master;
            file \"/var/lib/bind/{full_domain}\";
            allow-update {key "{full_domain}";};
        }};
    ",
        full_domain = full_domain
    );
    writeln!(file, "{}", zone_section_text)
        .unwrap_or_else(|_| panic!("Couldn't write to file: {}", bind_conf_path));

    // use tera to render the zone file
    let tera = match Tera::new("templates/*.tera") {
        Ok(t) => t,
        Err(e) => {
            info!("Parsing error(s): {}", e);
            ::std::process::exit(1);
        }
    };
    let mut context = Context::new();
    context.insert("full_domain", full_domain);
    let result = tera
        .render("zonefile.tera", &context)
        .expect("error loading zonefile.tera");

    // write new zone file to /var/lib/bind
    let zone_file_path = format!("/var/lib/bind/{}", full_domain);
    let mut file = File::create(&zone_file_path)
        .unwrap_or_else(|_| panic!("failed to create {}", zone_file_path));
    writeln!(file, "{}", result)
        .unwrap_or_else(|_| panic!("Couldn't write to file: {}", zone_file_path));

    // restart bind
    // we use the /etc/sudoers.d/bindctl to allow peach-dyndns user to restart bind as sudo without entering a password
    // using a binary at /bin/reloadbind which runs 'systemctl reload bind9'
    let status = Command::new("sudo")
        .arg("/usr/bin/reloadbind")
        .status()
        .expect("error restarting bind9");
    if !status.success() {
        return Err(PeachDynDnsError::BindConfigurationError);
        // TODO: for extra safety consider to revert bind configurations to whatever they were before
    }

    // return success
    Ok(key_file_text)
}