function ws_delete($window_name, $form = '')
{
global $base, $include, $conf, $self, $onadb;
// Check permissions
if (!(auth('host_del') or auth('subnet_del'))) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// If an array in a string was provided, build the array and store it in $form
$form = parse_options_string($form);
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
// Run the module
list($status, $output) = run_module('tag_del', array('tag' => $form['id'], 'commit' => 'Y'));
// If the module returned an error code display a popup warning
if ($status) {
$js .= "alert('Delete failed. " . preg_replace('/[\\s\']+/', ' ', $self['error']) . "');";
} else {
// If there's (refresh) js, send it to the browser
if ($form['js']) {
$js .= $form['js'];
}
}
// Return an XML response
$response->addScript($js);
return $response->getXML();
}
function dns_record_modify($options = "")
{
global $conf, $self, $onadb;
// Version - UPDATE on every edit!
$version = '1.13';
printmsg("DEBUG => dns_record_modify({$options}) called", 3);
// Parse incoming options string to an array
$options = parse_options($options);
// Return the usage summary if we need to
if ($options['help'] or !$options['set_name'] and !$options['set_ip'] and !$options['set_ttl'] and !$options['set_pointsto'] and !$options['set_srv_pri'] and !$options['set_srv_weight'] and !$options['set_srv_port'] and !$options['set_mx_preference'] and !$options['set_notes'] and !$options['set_view']) {
// NOTE: Help message lines should not exceed 80 characters for proper display on a console
$self['error'] = 'ERROR => Insufficient parameters';
return array(1, <<<EOM
dns_record_modify-v{$version}
Modify a DNS record
Synopsis: dns_record_modify [KEY=VALUE] ...
Where:
name=NAME[.DOMAIN] or ID select dns record by name or ID
Update:
set_name=NAME[.DOMAIN] change name and/or domain
set_ip=ADDRESS change IP the record points to
set_ttl=NUMBER change the TTL value, 0 = use domains TTL value
set_pointsto=NAME[.DOMAIN] change where a CNAME points
set_notes=NOTES change the textual notes
set_mx_preference=NUMBER change the MX record preference value
set_txt=STRING change the value of the TXT record
set_srv_pri=NUMBER change SRV Priority
set_srv_weight=NUMBER change SRV Weight
set_srv_port=NUMBER change SRV Port
set_ebegin change the begin date for record, 0 disables
set_domain=DOMAIN use if you need to explicitly set domain
set_view=STRING change DNS view identifier. AKA Split horizon.
Note:
* You are not allowed to change the type of the DNS record, to do that
you must delete and re-add the record with the new type.
* DOMAIN will default to {$conf['dns_defaultdomain']} if not specified
EOM
);
}
/* Modify logic
1. find the dns record we are editing
2. If it is an A, check that the name we are changing to does not already match an existing A/ip or CNAME
3. if its a CNAME, check that it is not the same as any other records.
*/
// Check permissions
if (!auth('host_modify')) {
$self['error'] = "Permission denied!";
printmsg($self['error'], 0);
return array(10, $self['error'] . "\n");
}
// Sanitize addptr.. set it to Y if it is not set
$options['set_addptr'] = sanitize_YN($options['set_addptr'], 'Y');
// clean up what is passed in
$options['set_ip'] = trim($options['set_ip']);
$options['set_pointsto'] = trim($options['set_pointsto']);
$options['set_name'] = trim($options['set_name']);
$options['set_domain'] = trim($options['set_domain']);
$options['set_txt'] = trim($options['set_txt']);
//$options['set_view'] = trim($options['set_view']);
//
// Find the dns record we're modifying
//
// If the name we were passed has a leading . in it then remove the dot.
$options['set_name'] = preg_replace("/^\\./", '', $options['set_name']);
// Find the DNS record from $options['name']
list($status, $rows, $dns) = ona_find_dns_record($options['name']);
printmsg("DEBUG => dns_record_modify() DNS record: {$dns['fqdn']}", 3);
if ($rows > 1) {
printmsg("DEBUG => Found more than one DNS record for: {$options['name']}", 3);
$self['error'] = "ERROR => Found more than one DNS record for: {$options['name']}";
return array(2, $self['error'] . "\n");
}
// If we didn't get a record then exit
if (!$dns['id']) {
printmsg("DEBUG => DNS record not found ({$options['name']})!", 3);
$self['error'] = "ERROR => DNS record not found ({$options['name']})!";
return array(4, $self['error'] . "\n");
}
// Set the current_name variable with the records current name
// Used by the add pointer function below since it runs before any names are updated
$current_name = $dns['fqdn'];
$current_int_id = $dns['interface_id'];
$check_dns_view_id = $dns['dns_view_id'];
$current_dns_view_id = $dns['dns_view_id'];
// Set status on if we are chaning IP addresses
$changingint = 0;
$changingview = 0;
// Set a message to display when using dns views
if ($conf['dns_views']) {
$viewmsg = ' Ensure you are selecting the proper DNS view for this record.';
}
//
// Define the records we're updating
//
// This variable will contain the updated info we'll insert into the DB
$SET = array();
// Gather DNS view information
if (array_key_exists('set_view', $options)) {
if (is_numeric($options['set_view'])) {
$viewsearch = array('id' => $options['set_view']);
} else {
$viewsearch = array('name' => strtoupper($options['set_view']));
}
// find the IP interface record,
list($status, $rows, $dnsview) = ona_get_dns_view_record($viewsearch);
if (!$rows) {
printmsg("ERROR => dns_record_modify() Unable to find DNS view: {$options['set_view']}", 3);
$self['error'] = "ERROR => dns_record_modify() Unable to find DNS view: {$options['set_view']}.";
return array(4, $self['error'] . "\n");
}
// If we have a new dns view, add it to the SET array and update the check view variable used in all the checks.
if ($dns['dns_view_id'] != $dnsview['id']) {
// You can only change the view on parent records.. if this record has a dns_id, you must change the parent
if ($dns['dns_id']) {
printmsg("ERROR => You must change the parent DNS A record to the new view. This record will follow.", 3);
$self['error'] = "ERROR => You must change the parent DNS A record to the new view. This record will follow.";
return array(5, $self['error'] . "\n");
}
$SET['dns_view_id'] = $dnsview['id'];
$check_dns_view_id = $dnsview['id'];
$changingview = 1;
}
}
// Checking the IP setting first to estabilish if we are changing the IP so I can check the new combo of A/ip later
if ($options['set_ip'] and $options['set_ip'] != '0.0.0.0') {
// find the IP interface record, to ensure it is valid
list($status, $rows, $interface) = ona_find_interface($options['set_ip']);
if (!$rows) {
printmsg("ERROR => dns_record_modify() Unable to find IP interface: {$options['set_ip']}", 3);
$self['error'] = "ERROR => dns_record_modify() Unable to find IP interface: {$options['set_ip']}\n";
return array(4, $self['error']);
}
// If they actually changed the ip address
if ($interface['id'] != $dns['interface_id']) {
// check for child records that would match our new values
// I think they will always be just PTR records so I am only selecting that type for now?
list($status, $rows, $dnschild) = ona_get_dns_record(array('dns_id' => $dns['id'], 'interface_id' => $interface['id'], 'type' => 'PTR'));
if ($rows) {
printmsg("ERROR => dns_record_modify() This change results in a duplicate child DNS record: PTR {$options['set_ip']}. Delete existing PTR record first.", 3);
$self['error'] = "<br>ERROR => dns_record_modify() This change results in a duplicate child DNS record: PTR {$options['set_ip']}.<br> Delete existing PTR record first.\n";
return array(4, $self['error']);
}
$changingint = 1;
$SET['interface_id'] = $interface['id'];
// get the info on the original interface
list($status, $rows, $origint) = ona_get_interface_record(array('id' => $dns['interface_id']));
}
}
// Set options['set_name']?
// Validate that the DNS name has only valid characters in it
if ($options['set_name']) {
// If we are specifically passing in a domain, use its value. If we dont have a domain
// then try to find it in the name that we are setting.
if ($options['set_domain']) {
// Find the domain name piece of $search
list($status, $rows, $domain) = ona_find_domain($options['set_domain'], 0);
} else {
list($status, $rows, $domain) = ona_find_domain($options['set_name'], 0);
}
// Find the domain name piece of $search
if (!isset($domain['id'])) {
printmsg("ERROR => Unable to determine domain name portion of ({$options['set_name']})!", 3);
$self['error'] = "ERROR => Unable to determine domain name portion of ({$options['set_name']})!";
return array(3, $self['error'] . "\n");
}
printmsg("DEBUG => ona_find_domain({$options['set_name']}) returned: {$domain['fqdn']} for new name.", 3);
// Now find what the host part of $search is
$hostname = str_replace(".{$domain['fqdn']}", '', $options['set_name']);
// Validate that the DNS name has only valid characters in it
$hostname = sanitize_hostname($hostname);
if (!$hostname) {
printmsg("DEBUG => Invalid host name ({$options['set_name']})!", 3);
$self['error'] = "ERROR => Invalid host name ({$options['set_name']})!";
return array(4, $self['error'] . "\n");
}
// If the hostname we came up with and the domain name are the same, then assume this is
// meant to be a domain specific record, like A, MX, NS type records.
if ($hostname == $domain['fqdn']) {
$hostname = '';
}
// Debugging
printmsg("DEBUG => Using hostname: {$hostname}.{$domain['fqdn']}, Domain ID: {$domain['id']}", 3);
// if it is an a record and we are changing the name.. make sure there is not already an A with that name/ip combo
if ($dns['type'] == 'A') {
// If we are changing the interface id as determined above, check using that value
if ($changingint) {
$dns['interface_id'] = $SET['interface_id'];
}
list($status, $rows, $tmp) = ona_get_dns_record(array('name' => $hostname, 'domain_id' => $domain['id'], 'interface_id' => $dns['interface_id'], 'type' => 'A', 'dns_view_id' => $check_dns_view_id));
if ($rows) {
if ($tmp['id'] != $dns['id'] or $rows > 1) {
printmsg("ERROR => There is already an A record with that name and IP address!{$viewmsg}", 3);
$self['error'] = "ERROR => There is already an A record with that name and IP address!{$viewmsg}";
return array(5, $self['error'] . "\n");
}
}
}
// make sure that name/pointsto combo doesnt already exist
if ($dns['type'] == 'CNAME' or $dns['type'] == 'MX' or $dns['type'] == 'NS' or $dns['type'] == 'SRV') {
list($status, $rows, $tmp) = ona_get_dns_record(array('name' => $hostname, 'domain_id' => $domain['id'], 'dns_id' => $dns['dns_id'], 'type' => $dns['type'], 'dns_view_id' => $check_dns_view_id));
if ($rows) {
if ($tmp['id'] != $dns['id'] or $rows > 1) {
printmsg("ERROR => There is already a {$dns['type']} with that name pointing to that A record!{$viewmsg}", 3);
$self['error'] = "ERROR => There is already a {$dns['type']} with that name pointing to that A record!{$viewmsg}";
return array(6, $self['error'] . "\n");
}
}
}
if ($dns['type'] == 'CNAME') {
// if it is a CNAME, make sure the new name is not an A record name already
list($status, $rows, $tmp) = ona_get_dns_record(array('name' => $hostname, 'domain_id' => $domain['id'], 'type' => 'A', 'dns_view_id' => $check_dns_view_id));
if ($status or $rows) {
printmsg("ERROR => There is already an A record with that name!{$viewmsg}", 3);
$self['error'] = "ERROR => There is already an A record with that name!{$viewmsg}";
return array(7, $self['error'] . "\n");
}
}
// lets try and determine the interface record using the name passed in. Only works if we get one record back
// this is all to help associate if it can so that when the A record is removed, so is this TXT record.
if ($dns['type'] == 'TXT') {
// if we are dealing with a change to a domain only.. then blank the interface id and dns_id
if ($hostname == '') {
$SET['interface_id'] = '';
$SET['dns_id'] = '';
} else {
list($status, $rows, $hostint) = ona_get_dns_record(array('name' => $hostname, 'domain_id' => $domain['id'], 'type' => 'A', 'dns_view_id' => $check_dns_view_id));
if ($rows == 1) {
$SET['interface_id'] = $hostint['interface_id'];
$SET['dns_id'] = $hostint['id'];
$SET['name'] = $hostname;
}
}
}
// If you have actually changed the name from what it was, set the new variable $SET
if ($dns['name'] != $hostname) {
$SET['name'] = $hostname;
}
if ($dns['domain_id'] != $domain['id']) {
$SET['domain_id'] = $domain['id'];
}
}
// If we are modifying a pointsto option
if (array_key_exists('set_pointsto', $options) and ($options['set_type'] == 'CNAME' or $options['set_type'] == 'MX' or $options['set_type'] == 'NS' or $options['set_type'] == 'SRV')) {
// Determine the host and domain name portions of the pointsto option
// Find the domain name piece of $search
list($status, $rows, $pdomain) = ona_find_domain($options['set_pointsto']);
printmsg("DEBUG => ona_find_domain({$options['set_pointsto']}) returned: {$domain['fqdn']} for pointsto.", 3);
// Now find what the host part of $search is
$phostname = str_replace(".{$pdomain['fqdn']}", '', $options['set_pointsto']);
// Validate that the DNS name has only valid characters in it
$phostname = sanitize_hostname($phostname);
if (!$phostname) {
printmsg("DEBUG => Invalid pointsto host name ({$options['set_pointsto']})!", 3);
$self['error'] = "ERROR => Invalid pointsto host name ({$options['set_pointsto']})!";
return array(4, $self['error'] . "\n");
}
// Debugging
printmsg("DEBUG => Using 'pointsto' hostname: {$phostname}.{$pdomain['fqdn']}, Domain ID: {$pdomain['id']}", 3);
// Find the dns record that it will point to
list($status, $rows, $pointsto_record) = ona_get_dns_record(array('name' => $phostname, 'domain_id' => $pdomain['id'], 'type' => 'A', 'dns_view_id' => $check_dns_view_id));
if ($status or !$rows) {
printmsg("ERROR => Unable to find DNS A record to point {$options['set_type']} entry to!{$viewmsg}", 3);
$self['error'] = "ERROR => Unable to find DNS A record to point {$options['set_type']} entry to!{$viewmsg}";
return array(5, $self['error'] . "\n");
}
// Validate that there are no entries already pointed to the new A record
list($c_status, $c_rows, $c_record) = ona_get_dns_record(array('name' => $dns['name'], 'domain_id' => $dns['domain_id'], 'dns_id' => $pointsto_record['id'], 'type' => $options['set_type'], 'dns_view_id' => $check_dns_view_id));
if ($c_record['id'] != $dns['id'] and $c_rows) {
printmsg("ERROR => Another DNS {$options['set_type']} record exists with the values you've selected!{$viewmsg}", 3);
$self['error'] = "ERROR => Another DNS {$options['set_type']} record exists with the values you've selected!{$viewmsg}";
return array(5, $self['error'] . "\n");
}
$SET['dns_id'] = $pointsto_record['id'];
$SET['interface_id'] = $pointsto_record['interface_id'];
}
// Set options['set_notes'] (it can be a null string!)
if (array_key_exists('set_notes', $options)) {
// There is an issue with escaping '=' and '&'. We need to avoid adding escape characters
$options['set_notes'] = str_replace('\\=', '=', $options['set_notes']);
$options['set_notes'] = str_replace('\\&', '&', $options['set_notes']);
// If it changed...
if ($dns['notes'] != $options['set_notes']) {
$SET['notes'] = $options['set_notes'];
}
}
// Check the date formatting etc
if (isset($options['set_ebegin']) and $options['set_ebegin'] != $dns['ebegin']) {
// format the time that was passed in for the database, leave it as 0 if they pass it as 0
$options['set_ebegin'] = $options['set_ebegin'] == '0' ? 0 : date('Y-m-j G:i:s', strtotime($options['set_ebegin']));
// Force the SET variable if its ont 0 and the current record is not 0000:00:00 00:00
if (!($options['set_ebegin'] == '0' and $dns['ebegin'] == '0000-00-00 00:00:00')) {
$SET['ebegin'] = $options['set_ebegin'];
}
} else {
// If I got no date, use right now as the date/time
$options['set_ebegin'] = date('Y-m-j G:i:s');
}
// Add the remaining items to the $SET variable
// if there is a ttl setting and it is not the same as the existing record
if (array_key_exists('set_ttl', $options) and $options['set_ttl'] != $dns['ttl']) {
$SET['ttl'] = $options['set_ttl'];
}
if (array_key_exists('set_mx_preference', $options) and $options['set_mx_preference'] != $dns['mx_preference']) {
$SET['mx_preference'] = $options['set_mx_preference'];
}
if (array_key_exists('set_srv_pri', $options) and $options['set_srv_pri'] != $dns['srv_pri']) {
$SET['srv_pri'] = $options['set_srv_pri'];
}
if (array_key_exists('set_srv_weight', $options) and $options['set_srv_weight'] != $dns['srv_weight']) {
$SET['srv_weight'] = $options['set_srv_weight'];
}
if (array_key_exists('set_srv_port', $options) and $options['set_srv_port'] != $dns['srv_port']) {
$SET['srv_port'] = $options['set_srv_port'];
}
if (array_key_exists('set_txt', $options)) {
// There is an issue with escaping '=' and '&'. We need to avoid adding escape characters
$options['set_txt'] = str_replace('\\=', '=', $options['set_txt']);
$options['set_txt'] = str_replace('\\&', '&', $options['set_txt']);
// If it changed...
if ($dns['txt'] != $options['set_txt']) {
$SET['txt'] = $options['set_txt'];
}
}
// If it is an A record and they have specified to auto add the PTR record for it.
if ($options['set_addptr'] == 'Y' and $options['set_type'] == 'A') {
printmsg("DEBUG => Auto adding a PTR record for {$options['set_name']}.", 0);
// Run dns_record_add as a PTR type
// Always use the $current_name variable as the name might change during the update
list($status, $output) = run_module('dns_record_add', array('name' => $current_name, 'domain' => $domain['fqdn'], 'ip' => $options['set_ip'], 'ebegin' => $options['set_ebegin'], 'type' => 'PTR', 'view' => $check_dns_view_id));
if ($status) {
return array($status, $output);
}
printmsg($text);
}
// Get the dns record before updating (logging)
$original_record = $dns;
// Update the host record if necessary
//if(count($SET) > 0 and $options['set_ebegin'] != $dns['ebegin']) {
if (count($SET) > 0) {
// Use the ebegin value set above
$SET['ebegin'] = $options['set_ebegin'];
// If we are changing the interface id as determined above, check using that value
if ($changingint) {
// If the interface id has changed, make sure any child records are updated first
if ($SET['interface_id'] != $current_int_id) {
printmsg("DEBUG = > dns_record_modify() Updating child interfaces to new interface.", 2);
list($status, $rows) = db_update_record($onadb, 'dns', array('dns_id' => $dns['id'], 'interface_id' => $current_int_id), array('interface_id' => $SET['interface_id']));
if ($status) {
$self['error'] = "ERROR => dns_record_modify() SQL Query failed for dns record: " . $self['error'];
printmsg($self['error'], 0);
return array(11, $self['error'] . "\n");
}
// TODO: may need set rebuild flag on each of the domains related to these child records that just changed
}
// Check the PTR record has the proper domain still
$ipflip = ip_mangle($interface['ip_addr_text'], 'flip');
$octets = explode(".", $ipflip);
if (count($octets) > 4) {
$arpa = '.ip6.arpa';
$octcount = 31;
} else {
$arpa = '.in-addr.arpa';
$octcount = 3;
}
// Find a pointer zone for this record to associate with.
list($status, $prows, $ptrdomain) = ona_find_domain($ipflip . $arpa);
list($status, $drrows, $dnsrec) = ona_get_dns_record(array('type' => 'PTR', 'interface_id' => $SET['interface_id'], 'dns_view_id' => $check_dns_view_id));
// TRIGGER: we made a change and need to update the CURRENT PTR record as well, only sets it if the ptrdomain changes
list($status, $rows) = db_update_record($onadb, 'dns_server_domains', array('domain_id' => $dnsrec['domain_id']), array('rebuild_flag' => 1));
if ($status) {
$self['error'] = "ERROR => dns_record_add() Unable to update rebuild flags for domain.: {$self['error']}";
printmsg($self['error'], 0);
return array(7, $self['error'] . "\n");
}
// if we find any PTR records and the domain has chaned, make sure the child PTR records have the updated PTR domain info.
if (isset($ptrdomain['id']) and $drrows > 0 and $dnsrec['domain_id'] != $ptrdomain['id']) {
list($status, $rows) = db_update_record($onadb, 'dns', array('id' => $dnsrec['id']), array('domain_id' => $ptrdomain['id'], 'ebegin' => $SET['ebegin']));
if ($status or !$rows) {
$self['error'] = "ERROR => dns_record_modify() Child PTR record domain update failed: " . $self['error'];
printmsg($self['error'], 0);
return array(14, $self['error'] . "\n");
}
// TRIGGER: we made a change and need to update the NEW PTR record as well, only sets it if the ptrdomain changes
list($status, $rows) = db_update_record($onadb, 'dns_server_domains', array('domain_id' => $ptrdomain['id']), array('rebuild_flag' => 1));
if ($status) {
$self['error'] = "ERROR => dns_record_add() Unable to update rebuild flags for domain.: {$self['error']}";
printmsg($self['error'], 0);
return array(7, $self['error'] . "\n");
}
}
}
// If we are changing the view, we must change all other DNS records that point to this one to the same view.
if ($changingview) {
if ($SET['dns_view_id'] != $current_dns_view_id) {
printmsg("DEBUG = > dns_record_modify() Updating child DNS records to new dns view.", 2);
list($status, $rows) = db_update_record($onadb, 'dns', array('dns_id' => $dns['id']), array('dns_view_id' => $SET['dns_view_id']));
if ($status) {
$self['error'] = "ERROR => dns_record_modify() SQL Query failed for dns record child view updates: " . $self['error'];
printmsg($self['error'], 0);
return array(11, $self['error'] . "\n");
}
}
// TRIGGER: yep I probably need one here FIXME
}
// Make sure we us A type for both A and AAAA
if ($SET['type'] == 'AAAA') {
$SET['type'] = 'A';
}
// Change the actual DNS record
list($status, $rows) = db_update_record($onadb, 'dns', array('id' => $dns['id']), $SET);
if ($status or !$rows) {
$self['error'] = "ERROR => dns_record_modify() SQL Query failed for dns record: " . $self['error'];
printmsg($self['error'], 0);
return array(12, $self['error'] . "\n");
}
// TRIGGER: we made a change, lets mark the domain for rebuild on its servers
list($status, $rows) = db_update_record($onadb, 'dns_server_domains', array('domain_id' => $dns['domain_id']), array('rebuild_flag' => 1));
if ($status) {
$self['error'] = "ERROR => dns_record_add() Unable to update rebuild flags for domain.: {$self['error']}";
printmsg($self['error'], 0);
return array(7, $self['error'] . "\n");
}
// TRIGGER: If we are changing domains, lets flag the new domain as well, lets mark the domain for rebuild on its servers
if ($SET['domain_id']) {
list($status, $rows) = db_update_record($onadb, 'dns_server_domains', array('domain_id' => $SET['domain_id']), array('rebuild_flag' => 1));
if ($status) {
$self['error'] = "ERROR => dns_record_add() Unable to update rebuild flags for domain.: {$self['error']}";
printmsg($self['error'], 0);
return array(7, $self['error'] . "\n");
}
}
}
// Get the host record after updating (logging)
list($status, $rows, $new_record) = ona_get_dns_record(array('id' => $dns['id']));
// Return the success notice
$self['error'] = "INFO => DNS record UPDATED:{$dns['id']}: {$new_record['fqdn']}";
$log_msg = "INFO => DNS record UPDATED:{$dns['id']}: ";
$more = '';
foreach (array_keys($original_record) as $key) {
if ($original_record[$key] != $new_record[$key]) {
$log_msg .= $more . $key . "[" . $original_record[$key] . "=>" . $new_record[$key] . "]";
$more = "; ";
}
}
// only print to logfile if a change has been made to the record
if ($more != '') {
printmsg($log_msg, 0);
}
return array(0, $self['error'] . "\n");
}
printmsg("INFO => [{$type}] {$_SESSION['ona']['auth']['user']['username']} has logged in", 3);
} else {
printmsg("ERROR => DCM: Unknown user {$DCMUSER}", 4);
print "ERROR => [{$DCMUSER}]: {$errmsg}\nSee -l and -p options within dcm.pl.\n";
// clear the session
// FIXME: should I do a sess_destroy or sess_close instead? to clear crap from the DB
unset($_SESSION['ona']['auth']);
exit;
}
}
// Display the current debug level if it's above 1
printmsg("DEBUG => debug level: {$conf['debug']}", 1);
/* ----------- RUN A MODULE IF NEEDED ------------ */
if (isset($_REQUEST['module'])) {
// Run the module
list($status, $output) = run_module($_REQUEST['module'], $_REQUEST['options']);
}
// process various types of output formats
if (strstr($_REQUEST['options'], "format=json")) {
output_formatter('json', 'json_encode');
} elseif (strstr($_REQUEST['options'], "format=yaml")) {
output_formatter('yaml', 'yaml_emit');
} else {
// Assume default text format
// Send the module status code and output to dcm.pl
print $status . "\r\n";
print $output;
}
// clear the session
// FIXME: should I do a sess_destroy or sess_close instead? to clear crap from the DB
unset($_SESSION['ona']['auth']);
function ws_delete($window_name, $form = '')
{
global $include, $conf, $self, $onadb;
// Check permissions
if (!auth('host_del')) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// If an array in a string was provided, build the array and store it in $form
$form = parse_options_string($form);
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
// Run the module
list($status, $output) = run_module('host_del', array('host' => $form['host_id'], 'commit' => $form['commit']));
// If commit was N, display the confirmation dialog box
if (!$form['commit']) {
$build_commit_html = 1;
$commit_function = 'delete';
include window_find_include('module_results');
return window_open("{$window_name}_results", $window);
}
// If the module returned an error code display a popup warning
if ($status) {
$js .= "alert('Delete failed. " . preg_replace('/[\\s\']+/', ' ', $output) . "');";
} else {
if ($form['js']) {
$js .= $form['js'];
}
}
// usually js will refresh the window we got called from
// Return an XML response
$response->addScript($js);
return $response->getXML();
}
function domain_server_del($options = "")
{
// The important globals
global $conf, $self, $onadb;
// Version - UPDATE on every edit!
$version = '1.02';
printmsg("DEBUG => domain_server_del({$options}) called", 3);
// Parse incoming options string to an array
$options = parse_options($options);
// Sanitize options[commit] (default is yes)
$options['commit'] = sanitize_YN($options['commit'], 'N');
// Return the usage summary if we need to
if ($options['help'] or !($options['domain'] and $options['server'])) {
// NOTE: Help message lines should not exceed 80 characters for proper display on a console
$self['error'] = 'ERROR => Insufficient parameters';
return array(1, <<<EOM
domain_server_del-v{$version}
Removes a domain record from a DNS server
Synopsis: domain_server_del [KEY=VALUE] ...
Required:
domain=NAME or ID domain name or ID
server=NAME[.DOMAIN] or ID server name or ID
Optional:
commit=[Y|N] commit db transaction (no)
EOM
);
}
if (is_numeric($options['domain'])) {
$domainsearch['id'] = $options['domain'];
} else {
$domainsearch['name'] = strtoupper($options['domain']);
}
// Determine the entry itself exists
list($status, $rows, $domain) = ona_get_domain_record($domainsearch);
// Test to see that we were able to find the specified record
if (!$domain['id']) {
printmsg("DEBUG => Unable to find the domain record using {$options['domain']}!", 3);
$self['error'] = "ERROR => Unable to find the domain record using {$options['domain']}!";
return array(4, $self['error'] . "\n");
}
printmsg("DEBUG => domain_server_del(): Found domain, {$domain['name']}", 3);
if ($options['server']) {
// Determine the server is valid
list($status, $rows, $host) = ona_find_host($options['server']);
if (!$host['id']) {
printmsg("DEBUG => The server ({$options['server']}) does not exist!", 3);
$self['error'] = "ERROR => The server specified, {$options['server']}, does not exist!";
return array(2, $self['error'] . "\n");
}
}
// Test that this domain is even assigned to the server
list($status, $rows, $domainserver) = ona_get_dns_server_domain_record(array('host_id' => $host['id'], 'domain_id' => $domain['id']));
if (!$rows) {
printmsg("DEBUG => Unable to find {$domain['name']} on server {$host['fqdn']}", 3);
$self['error'] = "ERROR => Unable to find {$domain['name']} on server {$host['fqdn']}";
return array(11, $self['error'] . "\n");
}
// Test that there are no NS records for this pair
// ASSUMPTION: MP this will always be just one record??
// depending on how the user has their NS records set up, we may not find anything.
list($status, $dnsrows, $dnsrec) = db_get_record($onadb, 'dns', "domain_id = {$domain['id']} AND type = 'NS' AND interface_id in (select id from interfaces where host_id = {$host['id']})");
// If "commit" is yes, delete the record
if ($options['commit'] == 'Y') {
// Check permissions
if (!auth('advanced') or !authlvl($host['LVL']) or !authlvl($domain['LVL'])) {
$self['error'] = "Permission denied!";
printmsg($self['error'], 0);
return array(10, $self['error'] . "\n");
}
// delete record from domain_server_domains
list($status, $rows) = db_delete_records($onadb, 'dns_server_domains', array('id' => $domainserver['id']));
if ($status) {
$self['error'] = "ERROR => domain_server_del() SQL Query failed:" . $self['error'];
printmsg($self['error'], 0);
return array(9, $self['error'] . "\n");
}
// Run the module to delete the associated NS record.. Only if we found a dns record for NS
if ($dnsrec['id']) {
list($status, $output) = run_module('dns_record_del', array('name' => $dnsrec['id'], 'type' => 'NS', 'commit' => 'Y'));
if ($status) {
$self['error'] = "ERROR => domain_server_del() NS record delete failed:" . $output;
printmsg($self['error'], 0);
return array(9, $self['error'] . "\n");
} else {
// add the output to self error for display
$add_to_error = $output;
}
}
// Return the success notice
$self['error'] = "INFO => DNS Domain/Server Pair DELETED: {$domain['name']}/{$host['fqdn']} ";
printmsg($self['error'], 0);
return array(0, $add_to_error . $self['error'] . "\n");
}
// Otherwise display the record that would have been deleted
$text = <<<EOL
Record(s) NOT DELETED (see "commit" option)
Displaying record(s) that would have been removed:
{$domain['name']} from: {$host['fqdn']}
EOL;
if ($dnsrows) {
$text .= " Removing related NS record, if any. Please double check your NS records for this domain.\n";
}
return array(6, $text);
}
function rpt_output_text($form)
{
global $onadb, $style, $images;
// Provide a usage message here
$usagemsg = <<<EOL
Report: nmap_scan
Processes the XML output of an nmap scan and compares it to data in the database.
Required:
subnet=ID|IP|STRING Subnet ID, IP, or name of existing subnet with a scan
OR
file=PATH Local XML file will be sent to server for processing
OR
all Process ALL XML files on the server
OR
update_response Update the last response field for all UP IPs to time in scan
Output Formats:
html
text
csv
NOTE: When running update_response, any entry that was updated will have a ~ indication
at the beginning of the line.
DNS names with a * preceeding them indicate there are more than one name available
for this entry and it could have a more common name associated with it.
EOL;
// Provide a usage message
if ($form['rpt_usage']) {
return array(0, $usagemsg);
}
if (!$form['totalhosts'] and !$form['all']) {
return array(1, "\nERROR => No hosts found, check that the XML file is not empty, or that your subnet exists in the database.\n{$usagemsg}");
}
if (!$form['all']) {
$text .= "NMAP scan of {$form['totalhosts']} hosts done on {$form['runtime']}. {$form['scansource']}\n\n";
} else {
$text .= "Displaying records for ALL nmap scans in the system. It also only shows issues, not entries that are OK.\n\n";
}
//$text .= sprintf("%-50s %-8s %-8s\n",'NMAP SCAN','DATABASE','Actions');
if ($form['csv_output']) {
$text .= sprintf("%s,%s,%s,%s,%s,%s,%s,%s\n", 'STAT', 'NET IP', 'NET NAME', 'NET MAC', 'DB IP', 'DB NAME', 'DB MAC', 'ACTION');
} else {
$text .= sprintf("%-6s %-15s %-25s %-12s %-15s %-25s %-12s %s\n", 'STAT', 'NET IP', 'NET NAME', 'NET MAC', 'DB IP', 'DB NAME', 'DB MAC', 'ACTION');
}
// netip netname netmac dbip dbname dbmac
$poolhostcount = 0;
// find out the broadcast IP for this subnet
// TODO: fix this for ipv6 stuff!
$num_hosts = 0xffffffff - ip_mangle($form['netcidr'], 'numeric');
$broadcastip = ip_mangle(ip_mangle($form['netip'], 'numeric') + $num_hosts, 'dotted');
foreach ((array) $form['ip'] as $record) {
// scans with only one row in them may show up wrong, skip them
if (!$record['netstatus'] and !$record['netip']) {
continue;
}
$action = '';
$upresp = ' ';
// Check devices that are down
if ($record['netstatus'] == "down") {
// Skip over hosts that are not in network or database
if ($record['dbip'] == "NOT FOUND") {
continue;
}
// If it is only in the database then they should validate the ip or remove from database
if ($record['netip'] == $record['dbip'] or $record['netdnsname'] != $record['dbdnsname']) {
$action = "Ping to verify then delete as desired";
}
}
// check devices that are up
if ($record['netstatus'] == "up") {
// If this is the subnet address or broadcast then skip it. Sometimes nmap shows them as up
if ($record['netip'] == $form['netip']) {
continue;
}
if ($record['netip'] == $broadcastip) {
continue;
}
// update the database last response field.
if ($form['update_response'] and $record['dbip'] != "NOT FOUND") {
//if (isset($options['dcm_output'])) { $text .= "dcm.pl -r interface_modify interface={$record['ip']} set_last_response='{$runtime}'\n"; }
list($updatestatus, $output) = run_module('interface_modify', array('interface' => $record['dbip'], 'set_last_response' => $form['runtime']));
if ($updatestatus) {
$self['error'] = "ERROR => Failed to update response time for '{$record['dbip']}': " . $output;
printmsg($self['error'], 1);
}
$upresp = '~';
}
// Break out the host and domain parts of the name if we can
if ($record['netdnsname']) {
list($status, $rows, $domain) = ona_find_domain($record['netdnsname'], 0);
// Now find what the host part of $search is
$hostname = str_replace(".{$domain['fqdn']}", '', $record['netdnsname']);
}
// If we dont find it in the database
if ($record['dbip'] == "NOT FOUND") {
$action = "Add as host or Add as interface, check proper pool range";
}
// If it is in the database and network
if ($record['netip'] == $record['dbip']) {
$action = 'OK';
// But if the names are not the same then action is partial
if ($record['netdnsname'] != $record['dbdnsname']) {
$action = 'Update DNS';
}
if (strstr($record['dbdnsname'], '(')) {
$action = 'Update DNS PTR';
}
}
// if the database name is empty, then provide a generic "name"
if (!$record['dbdnsname'] and $record['dbip'] != 'NOT FOUND' and $record['netdnsname']) {
$record['dbdnsname'] = 'NONE SET';
}
// if the names are different, offer an edit button for the DB
if ($record['netdnsname'] and strtolower($record['netdnsname']) != $record['dbdnsname']) {
// not a lot of testing here to make sure it will find the right name.
list($status, $rows, $rptdnsrecord) = ona_find_dns_record($record['dbdnsname']);
}
// If the device is in a dhcp pool range, then count it and identify it.
if ($record['inpool'] == 1) {
$poolhostcount++;
$record['dbip'] = 'DHCP Pooled';
$action = 'DHCP Pooled device';
}
}
// If we have more than 2 dns records, display info about them
if ($record['dbdnsrows'] > 2) {
$record['dbdnsname'] = '*' . $record['dbdnsname'];
}
/*
TODO:
* more testing of mac address stuff
* display info about last response time.. add option to update last response form file.. flag if db has newer times than the scan
*/
if ($form['csv_output']) {
$txt = sprintf("%s,%s,%s,%s,%s,%s,%s,\"%s\"\n", $upresp . $record['netstatus'], $record['netip'], $record['netdnsname'], $record['netmacaddr'], $record['dbip'], $record['dbdnsname'] . ' ' . $record['dbdnsptrname'], $record['dbmacaddr'], $action);
} else {
$txt = sprintf("%-6s %-15s %-25s %-12s %-15s %-25s %-12s %s\n", $upresp . $record['netstatus'], $record['netip'], $record['netdnsname'], $record['netmacaddr'], $record['dbip'], $record['dbdnsname'] . ' ' . $record['dbdnsptrname'], $record['dbmacaddr'], $action);
}
// if we are in all mode, print only errors.. otherwise, print it all
if ($form['all'] and $action == 'OK') {
$txt = '';
}
// add the new line to the html output variable
$text .= $txt;
}
if (!$form['all']) {
$hostpoolinfo = "Hosts in DHCP pool range: {$poolhostcount}\n";
}
$text .= "\n{$hostpoolinfo}END OF REPORT";
return array(0, $text);
}
function ws_display_config($window_name, $form = '')
{
global $conf;
$html = '';
$js = '';
// If the user supplied an array in a string, transform it into an array
$form = parse_options_string($form);
// MP: This could be slow depending on the size of the database. maybe make it a button.. having no build_dns_type turns it off
// It expects to be passed the domain name as domain= to the module
if ($conf['build_dns_type'] && auth('dns_record_add', $debug_val)) {
switch (strtolower($conf['build_dns_type'])) {
case "bind":
$dns_module_name = 'build_bind_conf';
break;
case "tinydns":
$dns_module_name = 'build_tinydns_conf';
break;
}
list($status, $output) = run_module("{$dns_module_name}", array('server' => $form['fqdn'], 'view' => $form['view'], 'path' => 'GUI-only-path'));
// Display the config if it ran ok
if (!$status) {
$html .= $output;
} else {
$html .= "There was a problem generating the configuration.<br>{$output}";
}
}
// Insert the new html into the window
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$response->addAssign("confoutput", "innerHTML", $html);
if ($js) {
$response->addScript($js);
}
return $response->getXML();
}
function ws_save($window_name, $form = '')
{
global $base, $include, $conf, $self, $onadb;
// Check permissions
if (!auth('location_add')) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// If an array in a string was provided, build the array and store it in $form
$form = parse_options_string($form);
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
// Validate input
if (!$form['reference'] or !$form['name']) {
$response->addScript("alert('Please complete all fields to continue!');");
return $response->getXML();
}
// Decide if we're editing or adding
$module = 'location_add';
if ($form['location_id']) {
$module = 'location_modify';
$form['set_name'] = $form['name'];
unset($form['name']);
$form['set_address'] = $form['address'];
unset($form['address']);
$form['set_reference'] = $form['reference'];
$form['set_city'] = $form['city'];
unset($form['city']);
$form['set_state'] = $form['state'];
unset($form['state']);
$form['set_zip_code'] = $form['zip_code'];
unset($form['zip_code']);
$form['set_longitude'] = $form['longitude'];
unset($form['longitude']);
$form['set_latitude'] = $form['latitude'];
unset($form['latitude']);
$form['set_misc'] = $form['misc'];
unset($form['misc']);
$form['reference'] = $form['location_id'];
}
// If there's no "refresh" javascript, add a command to view the new record
if (!preg_match('/\\w/', $form['js'])) {
$form['js'] = "xajax_window_submit('app_location_list', xajax.getFormValues('app_location_list_filter_form'), 'display_list');";
}
// Run the module
list($status, $output) = run_module($module, $form);
// If the module returned an error code display a popup warning
if ($status) {
$js .= "alert('Save failed. " . preg_replace('/[\\s\']+/', ' ', $self['error']) . "');";
} else {
$js .= "removeElement('{$window_name}');";
if ($form['js']) {
$js .= $form['js'];
}
}
// Insert the new table into the window
$response->addScript($js);
return $response->getXML();
}
function ws_delete($window_name, $form = '')
{
global $include, $conf, $self, $mysql, $onadb;
// Check permissions
if (!auth('advanced')) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// If an array in a string was provided, build the array and store it in $form
$form = parse_options_string($form);
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
// Run the module
list($status, $output) = run_module('domain_del', array('domain' => $form['id'], 'commit' => 'Y'));
// If the module returned an error code display a popup warning
if ($status) {
$js .= "alert('Delete failed. " . preg_replace('/[\\s\']+/', ' ', $self['error']) . "');";
} else {
if ($form['js']) {
$js .= $form['js'];
}
}
// usually js will refresh the window we got called from
// Return an XML response
$response->addScript($js);
return $response->getXML();
}
fputs($f2, $id . ':' . $sid . ': <font color=violet>Приват к</font> <b>' . $m[1] . '</b> <font color=#c0c0c0>(' . date('H:i:s d/m/Y') . ')</font>: ' . str_replace(array("\n", "\r"), array('', ''), $m[2]) . "\n");
} else {
$nocmd = 1;
fputs($f2, $id . ':x:<b>' . $nick_found . '</b> <font color=#c0c0c0>(' . date('H:i:s d/m/Y') . ')</font>: ' . str_replace(array("\n", "\r"), array('', ''), $MSG1) . "\n");
}
}
}
}
fclose($f2);
fseek($f, 0, SEEK_START);
fputs($f, $id);
flock($f, LOCK_UN);
fclose($f);
if ($nocmd && preg_match('/^\\/([a-z]+)(\\s+(.+))?$/isU', $_POST['msg'], $m)) {
if (isset($modules[$m[1]])) {
sysmsg("<i>{$modules[$m[1]]}: </i> " . run_module($m[1], str_replace(array("\n", "\r"), array('', ''), $m[2])), 'blue');
}
}
$_SESSION['lastact'] = time();
} else {
if (isset($_POST['getnick'])) {
$nick_found = '';
foreach ($fx_n as $n) {
$n2 = explode(':', $n, 4);
if ($sid == $n2[1]) {
$nick_found = $n2[2];
break;
}
}
if (!isset($nick_found[0])) {
die;
function subnet_del($options = "")
{
global $conf, $self, $onadb;
// Version - UPDATE on every edit!
$version = '1.06';
printmsg('DEBUG => subnet_del(' . $options . ') called', 3);
// Parse incoming options string to an array
$options = parse_options($options);
// Sanitize options[commit] (default is no)
$options['commit'] = sanitize_YN($options['commit'], 'N');
// Return the usage summary if we need to
if ($options['help'] or !$options['subnet']) {
// NOTE: Help message lines should not exceed 80 characters for proper display on a console
$self['error'] = 'ERROR => Insufficient parameters';
return array(1, <<<EOM
subnet_del-v{$version}
Deletes a subnet (subnet) from the database
Synopsis: subnet_del [KEY=VALUE] ...
Required:
subnet=IP or ID select subnet by search string
Optional:
commit=[yes|no] commit db transaction (no)
EOM
);
}
// Find the subnet record we're deleting
list($status, $rows, $subnet) = ona_find_subnet($options['subnet']);
if ($status or !$rows) {
$self['error'] = "ERROR => Subnet not found";
return array(2, $self['error'] . "\n");
}
// Check permissions
if (!auth('subnet_del') or !authlvl($subnet['lvl'])) {
$self['error'] = "Permission denied!";
printmsg($self['error'], 0);
return array(3, $self['error'] . "\n");
}
// If "commit" is yes, delete the subnet
if ($options['commit'] == 'Y') {
$text = "";
// FIXME: (add all this) ...
// SUMMARY:
// Delete assignments to any DHCP servers
// Delete any DHCP pools on the current subnet
// Delete any DHCP options associated with this subnet
// Delete any interfaces belonging to hosts with more than one interface
// Delete any hosts (and all their associated info) that have only one interface
// Delete subnet Record
// Delete custom attributes
//
// FIXME: display a warning if there are no more subnets that a dhcp server is serving dhcp for?
// Delete DHCP server assignments
list($status, $rows) = db_delete_records($onadb, 'dhcp_server_subnets', array('subnet_id' => $subnet['id']));
if ($status) {
$self['error'] = "ERROR => DHCP server assignment delete failed: {$self['error']}";
return array(5, $self['error'] . "\n");
}
// Delete DHCP pools
list($status, $rows) = db_delete_records($onadb, 'dhcp_pools', array('subnet_id' => $subnet['id']));
if ($status) {
$self['error'] = "ERROR => DHCP pool delete failed: {$self['error']}";
return array(5, $self['error'] . "\n");
}
// Delete DHCP options
list($status, $rows) = db_delete_records($onadb, 'dhcp_option_entries', array('subnet_id' => $subnet['id']));
if ($status) {
$self['error'] = "ERROR => DHCP parameter delete failed: {$self['error']}";
return array(5, $self['error'] . "\n");
}
// Delete tag entries
list($status, $rows, $records) = db_get_records($onadb, 'tags', array('type' => 'subnet', 'reference' => $subnet['id']));
$log = array();
$i = 0;
foreach ($records as $record) {
$log[$i] = "INFO => Tag DELETED: {$record['name']} from {$subnet['name']}";
$i++;
}
//do the delete
list($status, $rows) = db_delete_records($onadb, 'tags', array('type' => 'subnet', 'reference' => $subnet['id']));
if ($status) {
$self['error'] = "ERROR => subnet_del() Tag delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
//log deletions
foreach ($log as $log_msg) {
printmsg($log_msg, 0);
$add_to_error .= $log_msg . "\n";
}
// Delete custom attribute entries
// get list for logging
list($status, $rows, $records) = db_get_records($onadb, 'custom_attributes', array('table_name_ref' => 'subnets', 'table_id_ref' => $subnet['id']));
$log = array();
$i = 0;
foreach ($records as $record) {
list($status, $rows, $ca) = ona_get_custom_attribute_record(array('id' => $record['id']));
$log[$i] = "INFO => Custom Attribute DELETED: {$ca['name']} ({$ca['value']}) from {$subnet['name']}";
$i++;
}
//do the delete
list($status, $rows) = db_delete_records($onadb, 'custom_attributes', array('table_name_ref' => 'subnets', 'table_id_ref' => $subnet['id']));
if ($status) {
$self['error'] = "ERROR => subnet_del() Custom attribute delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $self['error'] . "\n");
}
//log deletions
foreach ($log as $log_msg) {
printmsg($log_msg, 0);
//$add_to_error .= $log_msg . "\n";
}
// Delete associated host / interface records that need to be deleted
// BUSINESS RULE: We delete hosts that have only one interface (and it's on this subnet)
// BUSINESS RULE: We delete interfaces from hosts that have multiple interfaces
list($status, $rows, $interfaces) = db_get_records($onadb, 'interfaces', array('subnet_id' => $subnet['id']));
$hosts_to_delete = array();
$interfaces_to_delete = array();
foreach ($interfaces as $interface) {
// Select all interfaces for the associated host where the subnet ID is not our subnet ID
$where = "host_id = {$interface['host_id']} AND subnet_id != {$subnet['id']}";
list($status, $rows, $tmp) = db_get_records($onadb, 'interfaces', $where, '', 0);
// We'll delete hosts that have only one interface (i.e. no interfaces on any other subnets)
if ($rows == 0) {
array_push($hosts_to_delete, $interface['host_id']);
} else {
array_push($interfaces_to_delete, $interface['id']);
}
}
unset($interfaces);
// make sure we only have one reference for each host and interface
$interfaces_to_delete = array_unique($interfaces_to_delete);
$hosts_to_delete = array_unique($hosts_to_delete);
// Delete interfaces we have selected
foreach ($interfaces_to_delete as $interface_id) {
list($status, $output) = run_module('interface_del', array('interface' => $interface_id, 'commit' => 'Y'));
if ($status) {
return array(5, $output);
}
}
// Delete hosts we have selected
foreach ($hosts_to_delete as $host_id) {
list($status, $output) = run_module('host_del', array('host' => $host_id, 'commit' => 'Y'));
if ($status) {
return array(5, $output);
}
}
// Delete the subnet
list($status, $rows) = db_delete_records($onadb, 'subnets', array('id' => $subnet['id']));
if ($status or !$rows) {
$self['error'] = "ERROR => Subnet delete failed: {$self['error']}";
return array(5, $self['error'] . "\n");
}
// Return the success notice
$ip = ip_mangle($subnet['ip_addr'], 'dotted');
$cidr = ip_mangle($subnet['ip_mask'], 'cidr');
$self['error'] = "INFO => Subnet DELETED: {$subnet['name']} IP: {$ip}/{$cidr}";
printmsg($self['error'], 0);
return array(0, $self['error'] . "\n");
}
//
// We are just displaying records that would have been deleted
//
// SUMMARY:
// Display assignments to any DHCP servers
// Display any DHCP pools on the current subnet
// Display any DHCP parameters associated with this subnet
// Display subnet Record
// Display Host records (and all their sub-records)
// Display custom attributes
// Otherwise just display the host record for the host we would have deleted
$text = "Record(s) NOT DELETED (see \"commit\" option)\n" . "Displaying record(s) that would have been deleted:\n";
// Display the Subnet's complete record
list($status, $tmp) = subnet_display("subnet={$subnet['id']}&verbose=N");
$text .= "\n" . $tmp;
// Display assignments to any DHCP servers
list($status, $rows, $records) = db_get_records($onadb, 'dhcp_server_subnets', array('subnet_id' => $subnet['id']));
if ($rows) {
$text .= "\nASSOCIATED DHCP SERVER ASSIGNMENT RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
$text .= format_array($record);
}
// Display any DHCP pools on the current subnet
list($status, $rows, $records) = db_get_records($onadb, 'dhcp_pools', array('subnet_id' => $subnet['id']));
if ($rows) {
$text .= "\nASSOCIATED DHCP POOL RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
$text .= format_array($record);
}
// Display associated DHCP entries
list($status, $rows, $records) = db_get_records($onadb, 'dhcp_option_entries', array('subnet_id' => $subnet['id']));
if ($rows) {
$text .= "\nASSOCIATED DHCP ENTRY RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
list($status, $rows, $dhcp) = ona_get_dhcp_option_entry_record(array('id' => $record['id']));
$text .= " {$dhcp['display_name']} => {$dhcp['value']}\n";
}
// Display associated tags
list($status, $rows, $records) = db_get_records($onadb, 'tags', array('type' => 'subnet', 'reference' => $subnet['id']));
if ($rows) {
$text .= "\nASSOCIATED TAG RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
$text .= " {$record['name']}\n";
}
// Display associated custom attributes
list($status, $rows, $records) = db_get_records($onadb, 'custom_attributes', array('table_name_ref' => 'subnets', 'table_id_ref' => $subnet['id']));
if ($rows) {
$text .= "\nASSOCIATED CUSTOM ATTRIBUTE RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
list($status, $rows, $ca) = ona_get_custom_attribute_record(array('id' => $record['id']));
$text .= " {$ca['name']} => {$ca['value']}\n";
}
// Display associated host / interface records that would be deleted
// BUSINESS RULE: We delete hosts that have only one interface (and it's on this subnet)
// BUSINESS RULE: We delete interfaces from hosts that have multiple interfaces (including at least one on a different subnet)
list($status, $rows, $interfaces) = db_get_records($onadb, 'interfaces', array('subnet_id' => $subnet['id']));
$hosts_to_delete = array();
$interfaces_to_delete = array();
foreach ($interfaces as $interface) {
// Select all interfaces for the associated host where the subnet ID is not our subnet ID
$where = "host_id = {$interface['host_id']} AND subnet_id != {$subnet['id']}";
list($status, $rows, $tmp) = db_get_records($onadb, 'interfaces', $where, '', 0);
// We'll delete hosts that have only one interface (i.e. no interfaces on any other subnets)
if ($rows == 0) {
array_push($hosts_to_delete, $interface['host_id']);
} else {
array_push($interfaces_to_delete, $interface['id']);
}
}
unset($interfaces);
// make sure we only have one reference for each host and interface
$interfaces_to_delete = array_unique($interfaces_to_delete);
$hosts_to_delete = array_unique($hosts_to_delete);
// Display interfaces we would have deleted
$rows = count($interfaces_to_delete);
if ($rows) {
$text .= "\n----- ASSOCIATED HOST INTERFACE RECORDS ({$rows}) -----\n";
}
foreach ($interfaces_to_delete as $interface_id) {
list($status, $output) = run_module('interface_del', array('interface' => $interface_id), false);
$output = preg_replace('/^(.*)?\\n(.*)?\\n/', '', $output);
$text .= $output;
}
// Display hosts we would have deleted
$rows = count($hosts_to_delete);
if ($rows) {
$text .= "\n-----ASSOCIATED HOSTS ({$rows}) -----\n";
}
foreach ($hosts_to_delete as $host_id) {
list($status, $output) = run_module('host_del', array('host' => $host_id), false);
$output = preg_replace('/^(.*)?\\n(.*)?\\n/', '', $output);
$text .= $output;
}
return array(7, $text);
}
// Print an error if it doesnt find an IP
if (!$interface['ip_addr']) {
echo "Possible orphan PTR record in dns table at ID: {$ptr['id']}. You should delete this record manually.\n";
continue;
}
$ipflip = ip_mangle($interface['ip_addr'], 'flip');
$octets = explode(".", $ipflip);
// Find a pointer domain for this record to associate with.
list($status, $rows, $ptrdomain) = ona_find_domain($ipflip . ".in-addr.arpa", 0);
// CRAPPY security cludge
$_SESSION['ona']['auth']['user']['username'] = '******';
$_SESSION['ona']['auth']['perms']['advanced'] = 'Y';
$_SESSION['ona']['auth']['perms']['host_modify'] = 'Y';
if (!$ptrdomain['id']) {
echo " {$interface['ip_addr_text']}: Unable to find a pointer domain for this IP! Creating the following DNS domain: {$octets[3]}.in-addr.arpa\n";
list($status, $output) = run_module('domain_add', array('name' => $octets[3] . '.in-addr.arpa'));
if ($status) {
echo "ERROR => {$output}\n";
exit($status);
}
list($status, $rows, $ptrdomain) = ona_find_domain($ipflip . ".in-addr.arpa", 0);
}
// Found a domain to put them in.
echo " Updating PTR for IP {$interface['ip_addr_text']} to domain {$ptrdomain['fqdn']}\n";
// Change the actual DNS record
list($status, $rows) = db_update_record($onadb, 'dns', array('id' => $ptr['id']), array('domain_id' => $ptrdomain['id']));
if ($status or !$rows) {
echo "ERROR => SQL Query failed updating dns record: " . $self['error'];
exit(2);
}
}
function ws_delete($window_name, $form = '')
{
global $conf, $self, $onadb;
// Check permissions
if (!auth('location_del')) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// If the user supplied an array in a string, build the array and store it in $form
$form = parse_options_string($form);
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
// Get a list of devices that use this device type
list($status, $rows, $devices) = db_get_records($onadb, 'devices', array('location_id' => $form['id']), '', 0);
// Check that there are no parent records using this type
if ($rows > 0) {
$js .= "alert('Delete failed: There are {$rows} devices using this location.');";
} else {
// Delete the record
list($status, $output) = run_module('location_del', array('reference' => $form['id'], 'commit' => 'Y'));
// If the module returned an error code display a popup warning
if ($status != 0) {
$js .= "alert('Delete failed:" . trim($self['error']) . ");";
$self['error'] = "ERROR => location delete ws_save() SQL Query failed: " . $self['error'];
printmsg($self['error'], 0);
} else {
$self['error'] = "INFO => location DELETED: {$loc['reference']} ({$loc['name']})";
printmsg($self['error'], 0);
// Refresh the current list.. it's changed!
$js .= "xajax_window_submit('{$window_name}', xajax.getFormValues('{$window_name}_filter_form'), 'display_list');";
}
}
// Send an XML response
$response->addScript($js);
return $response->getXML();
}
function ws_interface_move_save($window_name, $form = '')
{
global $base, $include, $conf, $self, $onadb;
// Check permissions
if (!auth('advanced')) {
$response = new xajaxResponse();
$response->addScript("alert('Permission denied!');");
return $response->getXML();
}
// Instantiate the xajaxResponse object
$response = new xajaxResponse();
$js = '';
$refresh = "xajax_window_submit('list_interfaces', xajax.getFormValues('list_interfaces_filter_form'), 'display_list');";
// Validate input
if (!$form['host'] and !$form['ip']) {
$response->addScript("alert('Please complete all fields to continue!');");
return $response->getXML();
}
list($status, $total_interfaces, $ints) = db_get_records($onadb, 'interfaces', array('host_id' => $form['orig_host']), '', 0);
// Decide if we're editing or adding
$module = 'interface_move_host';
// Run the module
list($status, $output) = run_module($module, $form);
// If the module returned an error code display a popup warning
if ($status) {
$js .= "alert('Save failed. " . preg_replace('/[\\s\']+/', ' ', $self['error']) . "');";
} else {
// Check if this is the last interface, if it is, delete the host too.
if ($total_interfaces == 0) {
// Run the host del module
list($status, $output) = run_module('host_del', array('host' => $form['orig_host'], 'commit' => 'y'));
if ($status) {
// If the host del failed, move the interface back to the original host to clean things up
list($status, $output) = run_module('interface_move_host', array('host' => $form['orig_host'], 'ip' => $form['ip']));
$js .= "alert('Host delete failed. " . preg_replace('/[\\s\']+/', ' ', $self['error']) . "');";
} else {
$js .= "removeElement('{$window_name}');{$refresh}";
if ($form['js']) {
$js .= $form['js'];
}
}
} else {
$js .= "removeElement('{$window_name}');{$refresh}";
if ($form['js']) {
$js .= $form['js'];
}
}
}
// Insert the new table into the window
$response->addScript($js);
return $response->getXML();
}
function host_del($options = "")
{
global $conf, $self, $onadb;
printmsg("DEBUG => host_del({$options}) called", 3);
// Version - UPDATE on every edit!
$version = '1.19';
// Parse incoming options string to an array
$options = parse_options($options);
// Sanitize options[commit] (default is no)
$options['commit'] = sanitize_YN($options['commit'], 'N');
// Return the usage summary if we need to
if ($options['help'] or !$options['host']) {
// NOTE: Help message lines should not exceed 80 characters for proper display on a console
$self['error'] = 'ERROR => Insufficient parameters';
return array(1, <<<EOM
host_del-v{$version}
Deletes a host, and all related records from the database
Synopsis: host_del [KEY=VALUE] ...
Required:
host=NAME[.DOMAIN] or ID Hostname or ID of the host to delete
Optional:
commit=[yes|no] Commit db transaction (no)
Notes:
* A host won't be deleted if it has config text records
* A host won't be deleted if it's configured as a dns or dhcp server
EOM
);
}
// Find the host (and domain) record from $options['host']
list($status, $rows, $host) = ona_find_host($options['host']);
printmsg("DEBUG => host_del() Host: {$host['fqdn']} ({$host['id']})", 3);
if (!$host['id']) {
printmsg("DEBUG => Unknown host: {$host['fqdn']}", 3);
$self['error'] = "ERROR => Unknown host: {$host['fqdn']}";
return array(2, $self['error'] . "\n");
}
// Check permissions
if (!auth('host_del') or !authlvl($host['LVL'])) {
$self['error'] = "Permission denied!";
printmsg($self['error'], 0);
return array(10, $self['error'] . "\n");
}
// If "commit" is yes, delete the host
if ($options['commit'] == 'Y') {
$text = "";
$add_to_error = "";
$add_to_status = 0;
// SUMMARY:
// Don't allow a delete if it is performing server duties
// Don't allow a delete if config text entries exist
// Delete Interfaces
// Delete interface cluster entries
// Delete dns records
// Delete custom attributes
// Delete DHCP entries
// Delete device record if it is the last host associated with it.
//
// IDEA: If it's the last host in a domain (maybe do the same for or a networks & vlans in the interface delete)
// It could just print a notice or something.
// Check that it is the host is not performing server duties
// FIXME: MP mostly fixed..needs testing
$serverrow = 0;
// check ALL the places server_id is used and remove the entry from server_b if it is not used
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_server_subnets', array('host_id' => $host['id']));
if ($rows) {
$serverrow++;
}
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_failover_groups', array('primary_server_id' => $host['id']));
if ($rows) {
$serverrow++;
}
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_failover_groups', array('secondary_server_id' => $host['id']));
if ($rows) {
$serverrow++;
}
if ($serverrow > 0) {
printmsg("DEBUG => Host ({$host['fqdn']}) cannot be deleted, it is performing duties as a DHCP server!", 3);
$self['error'] = "ERROR => Host ({$host['fqdn']}) cannot be deleted, it is performing duties as a DHCP server!";
return array(5, $self['error'] . "\n");
}
// Check if host is a dns server
$serverrow = 0;
list($status, $rows, $srecord) = db_get_record($onadb, 'dns_server_domains', array('host_id' => $host['id']));
if ($rows) {
$serverrow++;
}
if ($serverrow > 0) {
printmsg("DEBUG => Host ({$host['fqdn']}) cannot be deleted, it is performing duties as a DNS server!", 3);
$self['error'] = "ERROR => Host ({$host['fqdn']}) cannot be deleted, it is performing duties as a DNS server!";
return array(5, $self['error'] . "\n");
}
// Display an error if it has any entries in configurations
list($status, $rows, $server) = db_get_record($onadb, 'configurations', array('host_id' => $host['id']));
if ($rows) {
printmsg("DEBUG => Host ({$host['fqdn']}) cannot be deleted, it has config archives!", 3);
$self['error'] = "ERROR => Host ({$host['fqdn']}) cannot be deleted, it has config archives!";
return array(5, $self['error'] . "\n");
}
// Delete interface(s)
// get list for logging
$clustcount = 0;
$dnscount = 0;
list($status, $rows, $interfaces) = db_get_records($onadb, 'interfaces', array('host_id' => $host['id']));
// Cant delete if one of the interfaces is primary for a cluster
foreach ($interfaces as $int) {
list($status, $rows, $records) = db_get_records($onadb, 'interface_clusters', array('interface_id' => $int['id']));
$clustcount = $clustcount + $rows;
}
if ($clustcount) {
$self['error'] = "ERROR => host_del() An interface on this host is primary for some interface shares, delete the share or move the interface first.";
printmsg($self['error'], 0);
return array(5, $self['error'] . "\n");
}
// do the interface_cluster delete. This just removes this host from the cluster, not the whole cluster itself
// It will error out as well if this interface is the primary in the cluster
list($status, $rows) = db_delete_records($onadb, 'interface_clusters', array('host_id' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() interface_cluster delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $self['error'] . "\n");
}
// log deletions
printmsg("INFO => {$rows} Shared interface(s) DELETED from {$host['fqdn']}", 0);
$add_to_error .= "INFO => {$rows} Shared interface(s) DELETED from {$host['fqdn']}\n";
// Delete each DNS record associated with this hosts interfaces.
// foreach ($interfaces as $int) {
// // Loop through each dns record associated with this interface.
// list($status, $rows, $records) = db_get_records($onadb, 'dns', array('interface_id' => $int['id']));
// if ($rows) {
// foreach($records as $record) {
// // Run the module
// list($status, $output) = run_module('dns_record_del', array('name' => $record['id'], 'type' => $record['type'], 'commit' => 'Y', 'delete_by_module' => 'Y'));
// $add_to_error .= $output;
// $add_to_status = $add_to_status + $status;
// }
// }
// }
// Delete messages
// get list for logging
list($status, $rows, $records) = db_get_records($onadb, 'messages', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
// do the delete
list($status, $rows) = db_delete_records($onadb, 'messages', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() message delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $self['error'] . "\n");
}
// log deletions
printmsg("INFO => {$rows} Message(s) DELETED from {$host['fqdn']}", 0);
$add_to_error .= "INFO => {$rows} Message(s) DELETED from {$host['fqdn']}\n";
// Delete the interfaces.. this should delete dns names and other things associated with interfaces..
foreach ($interfaces as $record) {
// Run the module
list($status, $output) = run_module('interface_del', array('interface' => $record['id'], 'commit' => 'on', 'delete_by_module' => 'Y'));
$add_to_error .= $output;
$add_to_status = $add_to_status + $status;
}
// Delete device record
// Count how many hosts use this same device
list($status, $rows, $records) = db_get_records($onadb, 'hosts', array('device_id' => $host['device_id']));
// if device count is just 1 do the delete
if ($rows == 1) {
list($status, $rows) = db_delete_records($onadb, 'devices', array('id' => $host['device_id']));
if ($status) {
$self['error'] = "ERROR => host_del() device delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
// log deletions
printmsg("INFO => Device record DELETED: [{$record['id']}] no remaining hosts using this device", 0);
} else {
printmsg("INFO => Device record NOT DELETED: [{$record['id']}] there are other hosts using this device.", 1);
}
// Delete tag entries
list($status, $rows, $records) = db_get_records($onadb, 'tags', array('type' => 'host', 'reference' => $host['id']));
$log = array();
$i = 0;
foreach ($records as $record) {
$log[$i] = "INFO => Tag DELETED: {$record['name']} from {$host['fqdn']}";
$i++;
}
//do the delete
list($status, $rows) = db_delete_records($onadb, 'tags', array('type' => 'host', 'reference' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() Tag delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
//log deletions
foreach ($log as $log_msg) {
printmsg($log_msg, 0);
$add_to_error .= $log_msg . "\n";
}
// Delete custom attribute entries
// get list for logging
list($status, $rows, $records) = db_get_records($onadb, 'custom_attributes', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
$log = array();
$i = 0;
foreach ($records as $record) {
list($status, $rows, $ca) = ona_get_custom_attribute_record(array('id' => $record['id']));
$log[$i] = "INFO => Custom Attribute DELETED: {$ca['name']} ({$ca['value']}) from {$host['fqdn']}";
$i++;
}
//do the delete
list($status, $rows) = db_delete_records($onadb, 'custom_attributes', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() Custom attribute delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
//log deletions
foreach ($log as $log_msg) {
printmsg($log_msg, 0);
$add_to_error .= $log_msg . "\n";
}
// Delete DHCP options
// get list for logging
list($status, $rows, $records) = db_get_records($onadb, 'dhcp_option_entries', array('host_id' => $host['id']));
$log = array();
$i = 0;
foreach ($records as $record) {
list($status, $rows, $dhcp) = ona_get_dhcp_option_entry_record(array('id' => $record['id']));
$log[$i] = "INFO => DHCP entry DELETED: {$dhcp['display_name']}={$dhcp['value']} from {$host['fqdn']}";
$i++;
}
// do the delete
list($status, $rows) = db_delete_records($onadb, 'dhcp_option_entries', array('host_id' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() DHCP option entry delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
// log deletions
foreach ($log as $log_msg) {
printmsg($log_msg, 0);
$add_to_error .= $log_msg . "\n";
}
// Delete the host
list($status, $rows) = db_delete_records($onadb, 'hosts', array('id' => $host['id']));
if ($status) {
$self['error'] = "ERROR => host_del() host delete SQL Query failed: {$self['error']}";
printmsg($self['error'], 0);
return array(5, $add_to_error . $self['error'] . "\n");
}
// Return the success notice
if ($add_to_status == 0) {
$self['error'] = "INFO => Host DELETED: {$host['fqdn']}";
}
printmsg($self['error'], 0);
return array($add_to_status, $add_to_error . $self['error'] . "\n");
}
//
// We are just displaying records that would have been deleted
//
// SUMMARY:
// Display a warning if it is a server
// Display a warning if it has config text entries
// Display Interfaces
// Display dns records
// Display custom attributes
// Display DHCP entries
// Otherwise just display the host record for the host we would have deleted
$text = "Record(s) NOT DELETED (see \"commit\" option)\n" . "Displaying record(s) that would have been deleted:\n";
// Display a warning if host is performing server duties
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_server_subnets', array('host_id' => $host['id']));
if ($rows) {
$text .= "\nWARNING! This host is a DHCP server for {$rows} subnet(s)\n";
}
list($status, $rows, $srecord) = db_get_record($onadb, 'dns_server_domains', array('host_id' => $host['id']));
if ($rows) {
$text .= "\nWARNING! This host is a DNS server for one or more domains!\n";
}
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_failover_groups', array('primary_server_id' => $host['id']));
if ($rows) {
$text .= "\nWARNING! This host is a server that is primary in a DHCP failover group\n";
}
list($status, $rows, $srecord) = db_get_record($onadb, 'dhcp_failover_groups', array('secondary_server_id' => $host['id']));
if ($rows) {
$text .= "\nWARNING! This host is a server that is secondary in a DHCP failover group\n";
}
// Display a warning if it has any configurations
list($status, $rows, $server) = db_get_record($onadb, 'configurations', array('host_id' => $host['id']));
if ($rows) {
$text .= "\nWARNING! Host can not be deleted, it has config archives!\n";
}
if ($rows) {
$text .= "\nWARNING! Host will NOT be deleted, due to previous warnings!\n";
}
// Display the Host's complete record
list($status, $tmp) = host_display("host={$host['id']}&verbose=N");
$text .= "\n" . $tmp;
// Display count of messages
list($status, $rows, $records) = db_get_records($onadb, 'messages', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
if ($rows) {
$text .= "\nASSOCIATED MESSAGE RECORDS ({$rows}):\n";
}
// Display associated interface(s)
list($status, $int_rows, $interfaces) = db_get_records($onadb, 'interfaces', array('host_id' => $host['id']));
// show the dns records associated
foreach ($interfaces as $record) {
list($status, $rows, $dnsrec) = db_get_records($onadb, 'dns', array('interface_id' => $record['id']));
if ($rows) {
$text .= "\nASSOCIATED DNS RECORDS ({$rows}) ON INTERFACE (" . ip_mangle($record['ip_addr'], 'dotted') . "):\n";
foreach ($dnsrec as $rec) {
// show AAAA or A type as needed
if ($record['ip_addr'] > 4294967295 and $rec['type'] == 'A') {
$rec['type'] = 'AAAA';
}
$text .= " TYPE: [ID:{$rec['id']}] {$rec['type']}, {$rec['name']} -> " . ip_mangle($record['ip_addr'], 'dotted') . "\n";
}
}
}
if ($int_rows) {
$text .= "\nASSOCIATED INTERFACE RECORDS ({$int_rows}):\n";
}
foreach ($interfaces as $record) {
$text .= " [ID:{$record['id']}] " . ip_mangle($record['ip_addr'], 'dotted') . "\n";
}
// Display associated interface_clusters(s)
list($status, $clust_rows, $interfaceclusters) = db_get_records($onadb, 'interface_clusters', array('host_id' => $host['id']));
if ($clust_rows) {
$text .= "\nASSOCIATED SHARED INTERFACE RECORDS ({$clust_rows}):\n";
}
foreach ($interfaceclusters as $record) {
list($status, $rows, $int) = ona_get_interface_record(array('id' => $record['interface_id']));
$text .= " [ID:{$int['id']}] {$int['ip_addr_text']}\n";
}
// Display associated tags
list($status, $rows, $records) = db_get_records($onadb, 'tags', array('type' => 'host', 'reference' => $host['id']));
if ($rows) {
$text .= "\nASSOCIATED TAG RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
$text .= " {$record['name']}\n";
}
// Display associated custom attributes
list($status, $rows, $records) = db_get_records($onadb, 'custom_attributes', array('table_name_ref' => 'hosts', 'table_id_ref' => $host['id']));
if ($rows) {
$text .= "\nASSOCIATED CUSTOM ATTRIBUTE RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
list($status, $rows, $ca) = ona_get_custom_attribute_record(array('id' => $record['id']));
$text .= " {$ca['name']} => {$ca['value']}\n";
}
// Display associated DHCP entries
list($status, $rows, $records) = db_get_records($onadb, 'dhcp_option_entries', array('host_id' => $host['id']));
if ($rows) {
$text .= "\nASSOCIATED DHCP OPTION RECORDS ({$rows}):\n";
}
foreach ($records as $record) {
list($status, $rows, $dhcp) = ona_get_dhcp_option_entry_record(array('id' => $record['id']));
$text .= " {$dhcp['display_name']} => {$dhcp['value']}\n";
}
return array(7, $text);
}
$window['html'] .= <<<EOL
<br><b>Installing new DCM modules:</b><br>
EOL;
// Get list of existing DCM modules to see if they are already installed, Use cache if possible
if (!is_array($self['cache']['modules']) or !array_key_exists('get_module_list', $self['cache']['modules'])) {
require_once $conf['dcm_module_dir'] . '/get_module_list.inc.php';
list($status, $self['cache']['modules']) = get_module_list('type=array');
}
// If the new module does not already exist, add it
foreach ($pmodules as $modname => $attributes) {
if (!array_key_exists($modname, $self['cache']['modules'])) {
// default the file location if it is not set to use the main lugin file
if (!$attributes['file']) {
$attributes['file'] = "..{$plugindir}/{$plugin_name}.inc.php";
}
list($status, $output) = run_module('add_module', array('name' => $modname, 'desc' => $attributes['desc'], 'file' => $attributes['file']));
if ($status) {
$stat++;
$window['html'] .= " <img src='{$images}/silk/error.png' border='0'> {$modname} failed to install.<br>";
} else {
printmsg("DEBUG => Plugin install for {$plugin_name} created new DCM module {$modname}.", 2);
$window['html'] .= " <img src='{$images}/silk/accept.png' border='0'> {$modname}<br>";
}
} else {
$window['html'] .= " <img src='{$images}/silk/accept.png' border='0'> {$modname}, already installed.<br>";
}
}
}
// If there is a SQL file to process. lets do that
$sqlfile = dirname(__FILE__) . "/install.sql";
if (file_exists($sqlfile)) {
function nat_del($options = "")
{
global $conf, $self, $onadb;
printmsg("DEBUG => nat_del({$options}) called", 3);
// Version - UPDATE on every edit!
$version = '1.00';
// Parse incoming options string to an array
$options = parse_options($options);
// Return the usage summary if we need to
if ($options['help'] or !($options['natip'] and $options['ip'])) {
// NOTE: Help message lines should not exceed 80 characters for proper display on a console
$self['error'] = 'ERROR => Insufficient parameters';
return array(1, <<<EOM
nat_del-v{$version}
Delete a NAT entry from an existing IP
This will delete the NAT IP interface from the subnet as well.
Synopsis: nat_del [KEY=VALUE] ...
Required:
ip=[address|ID] the IP address or ID of the existing inside interface
natip=[address|ID] the IP address or ID of the external NAT entry
Optional:
commit=[yes|no] commit db transaction (no)
EOM
);
}
// Sanitize "options[commit]" (no is the default)
$options['commit'] = sanitize_YN($options['commit'], 'N');
// Find the internal interface
list($status, $rows, $interface) = ona_find_interface($options['ip']);
if (!$interface['id']) {
printmsg("DEBUG => The interface specified, {$options['ip']}, does not exist!", 3);
$self['error'] = "ERROR => The interface specified, {$options['ip']}, does not exist!";
return array(2, $self['error'] . "\n");
}
printmsg("DEBUG => Interface selected: {$options['ip']}", 3);
// Find the NAT interface
list($status, $rows, $natinterface) = ona_find_interface($options['natip']);
if (!$natinterface['id']) {
printmsg("DEBUG => The NAT interface specified, {$options['natip']}, does not exist!", 3);
$self['error'] = "ERROR => The NAT interface specified, {$options['natip']}, does not exist!";
return array(3, $self['error'] . "\n");
}
printmsg("DEBUG => NAT Interface selected: {$options['natip']}", 3);
// Check that the two IP addresses are really paired with each other
if ($interface['nat_interface_id'] != $natinterface['id']) {
$self['error'] = "ERROR => nat_del() The provided IP addresses are not associated with each other for NAT.";
printmsg($self['error'], 0);
return array(4, $self['error'] . "\n");
}
printmsg("DEBUG => nat_del() calling interface_del() for ip: {$options['natip']}", 3);
$natint['interface'] = $natinterface['id'];
$natint['commit'] = $options['commit'];
list($status, $output) = run_module('interface_del', $natint);
if ($status) {
return array($status, $output);
}
$self['error'] .= $output;
// update the existing inside interface and remove the old nat_interface_id value
list($status, $rows) = db_update_record($onadb, 'interfaces', array('id' => $interface['id']), array('nat_interface_id' => '0'));
if ($status or !$rows) {
$self['error'] = "ERROR => nat_del() SQL Query failed to update nat_interface_id for interface: " . $self['error'];
printmsg($self['error'], 0);
return array(5, $self['error'] . "\n");
}
// Return the success notice
$self['error'] = "INFO => External NAT entry deleted: {$natinterface['ip_addr_text']} from {$interface['ip_addr_text']}.";
printmsg($self['error'], 0);
return array(0, $self['error'] . "\n");
}
