Script checking availability of network servers If the server is not accessible, starts action The necessary data are read from a text file
The file of the data contains lines of a kind:
smtp_server:25:any_executed_program:my_smtp_server httpd_daemon:80:ps:corp_web_server
Tcl, 44 lines
Download
Copy to clipboard1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | #!/bin/sh
#the next line restarts using tclsh\
exec tclsh8.4 "$0" "$@"
set msg "is down"
set file "hostslist"
set hf [open $file r+ 440]
set glist []
foreach line [split [read $hf] \n] {
set ls [split $line :]
lappend glist $ls
}
close $hf
set fd [open logfile w+ 440]
puts $fd $glist
close $fd
proc connect {host port} {
global s
set s [socket $host $port]
}
proc alert { host res desc msg} {
puts "$host $res $desc $msg"
}
proc action {a} {
puts stdout [exec $a]
}
set n [llength $glist]
set n1 [llength [lindex $glist 0]]
for {set i 0 } {$i<[expr $n-1]} {incr i } {
set i1 0;set i2 [expr $n1-3];set i3 [expr $n1-2];set i4 [expr $n1-1]
set host [lindex [lindex $glist $i] $i1]
set port [lindex [lindex $glist $i] $i2]
set act [lindex [lindex $glist $i] $i3]
set desc [lindex [lindex $glist $i] $i4]
if {[catch {connect $host $port} result]} {
alert $host $result $desc $msg
action $act
} else {
puts "$desc is ready"
}
}
|
Tags: sysadmin
