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"); }