blob: d7d9df90fa7a30ad3b6484eb4f5a871e1fbba4d4 (
plain)
1
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#!/usr/bin/env tclsh
## -*- tcl -*-
# Author: [Larry W. Virden] [LV], modified Andreas Kupries [AK]
# Version: 3
# Validate the ftp: urls given on the command line.
package require uri
package require ftp
# Should eventually add a command line argument to toggle verbose
#set ftp::VERBOSE 1
if {0} {
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 "E: $msg" }
#error "ERROR: $msg"
}
default {
if { $VERBOSE } { puts $msg }
}
}
return
}
}
foreach arg $argv {
array set current [uri::split $arg]
# parray current
if {[catch {
set fdc [ftp::Open $current(host) anonymous enteryourname@here.com]
} returncode]} {
puts stderr [format "error 1: unable to open %s\n" $current(host)]
continue
}
set ftp_dir [file dirname $current(path)]
set ftp_file [file tail $current(path)]
if {[catch {
set result [ftp::Cd $fdc $ftp_dir] } returncode]
} {
puts stderr [format "error 2: unable to enter directory %s:%s\n" $current(host) $ftp_dir]
continue
}
if { $result == 0 } {
puts stderr [format "error 3: failure to enter %s:%s\n" $current(host) $ftp_dir]
continue
}
if {[catch {
set result [ftp::List $fdc "${ftp_file}*"] } returncode]
} {
puts stderr [format "error 4: no match for ${ftp_file}*\n" $current(host) $ftp_dir]
continue
}
if { $result == {} } {
puts stderr [format "error 5: no match for ${ftp_file}*\n" $current(host) $ftp_dir]
continue
}
ftp::Close $fdc
}
exit
|
