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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#! /bin/sh
# This fs implements a simple database of your favourite ftp servers.
# The `archive' is a text file containing a list of ftp URL's one per line
# like this (followed optionaly by name under which the link will be
# shown - shouldn't contain spaces inside)
#
## ftp://sunsite.unc.edu/pub/Linux sunsite
## ftp://tsx-11.mit.edu/pub/linux tsx-11
## ftp://ftp.cvut.cz/pub/linux cvut
## ftp://jj@jfch.vc.cvut.cz:21/ my_machine
#
# You should refer only to directories, not to particular files.
# The file has to use `ftplist' extension (if you don't like it, change
# it in mc.ext resp. $HOME/.mc/ext). So the file name should match
# regex ^.*ftplist$
#
# If you add "#define WANT_PARSE" to main.c you will be able to hit return
# on the filenames in order to connect to the ftp servers.
#
mcftplistfs_list ()
{
{ ls -l $1; cat $1; } | gawk -v uid=$(id -ru) '
/^[\ \ ]*(#.*)?$/ { next }
{
if (NF > 8) {
a[1]=$6
a[2]=$7
a[3]=$8
next
}
if ($1 ~ /^(ftp|http|ssh):\/\//) {
if ($1 ~ /\/$/) {
a[4]=substr($1, index($1,":")+3, length($1) - index($1,":")-3)
} else {
a[4]=substr($1, index($1,":")+3)
}
if ($1 ~ /^http:/) {
i = split($1, b, "/")
a[5]=b[1]
for (j=2; j <= i; j++)
a[5] = sprintf("%s|%s",a[5],b[j])
} else
a[5]=sprintf("%s%s/",substr($1,1,index($1,":")),a[4]);
if (NF >= 2)
a[4]=$2
else {
i=split(a[4], b, "/")
a[4]=b[1]
for (j = 2; j <= i; j++)
a[4]=sprintf("%s_%s", a[4], b[j])
}
printf "lrwxrwxrwx 1 %-8d %-8d %8d %s %2d %5s %s -> /#%s\n", uid, 0, length(a[5]), a[1], a[2], a[3], a[4], a[5]
}
}' 2>/dev/null
}
mcftplistfs_run ()
{
if [ -n "$MC_CONTROL_FILE" ]
then
cat $1 | gawk -v name=$2 '
/^[\ \ ]*(#.*)?$/ { next }
{
if ($1 ~ /^ftp:\/\//) {
if ($1 ~ /\/$/) {
a[4]=substr($1, 7, length($1) - 7)
a[5]=$1
} else {
a[4]=substr($1, 7)
a[5]=sprintf("%s/", $1)
}
if (NF >= 2)
a[4]=$2
else {
i=split(a[4], b, "/")
a[4]=b[1]
for (j = 2; j <= i; j++)
a[4]=sprintf("%s_%s", a[4], b[j])
}
if (a[4] ~ name)
printf "cd %s\n", a[5]
}
}' 2>/dev/null > $MC_CONTROL_FILE
fi
}
export LC_ALL=C
case "$1" in
list) mcftplistfs_list $2; exit 0;;
run) mcftplistfs_run $2 $3; exit 0;;
esac
exit 1
|
