Purpose: demonstrate use of uri and ftp in a tcl script.
Goal: when provided a series of ftp based URLs on the command line, return info to the user as to whether the URLs exist or not.
This might be useful for someone maintaining a database of web resources for instance!
Problem: It doesn't seem to work. I'm getting an error that looks rather nasty about being unable to get a directory name.
Anyone have ideas?
#! /bin/sh
# \
exec tclsh "$0" ${1+"$@"}
# Author: [Larry W. Virden] [LV]
package require uri
package require ftp
foreach arg $argv {
array set current [uri::split $arg]
set fdc [ftp::Open $current(host) anonymous [email protected] ]
set ftp_dir [file dirname $current(path)]
set ftp_file [file tail $current(path)]
set result [ftp::Cd $fdc $ftp_dir]
if { $result == 0 } {
puts stderr [format "unable to enter %s\n" $ftp_dir]
continue
}
ftp::NList $fdc "${ftp_file}*"
ftp::Close $fdc
}The problem is in the default definition of DisplayMsg. It is used to display state information (if ftp::VERBOSE is set). It also causes the system to throw errors if there are connection errors, instead of reporting them back as defined.
use
set ftp::VERBOSE
after the package require ftp to get a tracing of what the internal engine does. To disable the handling of errors redefine ftp::DisplayMsg' with your own code.
Here is the code I now have
#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}
# Author: [Larry W. Virden] [LV], modified Andreas Kupries [AK]
package require uri
package require ftp
set ftp::VERBOSE 1
proc ftp::DisplayMsg {s msg {state ""}} {
upvar ::ftp::ftp$s ftp
variable VERBOSE
switch -exact -- $state {
data {
if { $VERBOSE } { puts $msg }
}
control {
if { $VERBOSE } { puts $msg }
}
error {
if { $VERBOSE } { puts $msg }
#error "ERROR: $msg"
}
default {
if { $VERBOSE } { puts $msg }
}
}
return
}
foreach arg $argv {
array set current [uri::split $arg]
parray current
set fdc [ftp::Open $current(host) anonymous [email protected] ]
set ftp_dir [file dirname $current(path)]
set ftp_file [file tail $current(path)]
set result [ftp::Cd $fdc $ftp_dir]
if { $result == 0 } {
puts stderr [format "unable to enter %s\n" $ftp_dir]
continue
}
ftp::NList $fdc "${ftp_file}*"
ftp::Close $fdc
}
exit