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 enteryourname@here.com ]
        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 enteryourname@here.com ]
    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