tcllib/examples/ftp/newer.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/env tclsh
## -*- tcl -*-

package require Tcl 8.3
package require ftp 2.0

if { [set conn [ftp::Open ftp.scriptics.com  anonymous xxxx]] != -1} {
    if {[ftp::Newer $conn /pub/tcl/httpd/tclhttpd.tar.gz /usr/local/src/tclhttpd.tgz]} {
	exec echo "New httpd arrived!" | mailx -s ANNOUNCE root
    }
    ftp::Close $conn
}