bulkmail_record_failed_host

bulkmail_record_failed_host   host

Records a host as failed. If host has reached the acceptable failures threshhold, we delete it from the list of hosts.

Source code:

    ns_share bulkmail_failed_hosts_mutex
    ns_share bulkmail_failed_hosts
    ns_share bulkmail_hosts_mutex
    ns_share bulkmail_hosts
    ns_share bulkmail_current_host

    ns_log Notice "Processing failed host: $host"
    bulkmail_reset_hosts_if_needed

    ns_mutex lock $bulkmail_failed_hosts_mutex
    catch {
	set n_failures [ns_set get $bulkmail_failed_hosts $host]
	if { [empty_string_p $n_failures] } {
	    set n_failures 0
	}
	incr n_failures
	ns_set delkey $bulkmail_failed_hosts $host
	ns_set put $bulkmail_failed_hosts $host $n_failures
    }
    ns_mutex unlock $bulkmail_failed_hosts_mutex

    if { $n_failures > [bulkmail_acceptable_host_failures] } {
	ns_mutex lock $bulkmail_hosts_mutex
	catch {
	    set list_index [lsearch -exact $bulkmail_hosts $host]
	    
	    # Check to see if we found this host (the index >= 0)
	    if { $list_index >= 0 } {
		set bulkmail_hosts [lreplace $bulkmail_hosts $list_index $list_index]
	    }
	}
	ns_mutex unlock $bulkmail_hosts_mutex
	ns_log Notice "Removed failed host: $host"
    }