mirror of https://github.com/MidnightCommander/mc
88 lines
2.0 KiB
Bash
88 lines
2.0 KiB
Bash
#! /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; } | @AWK@ -v uid=${UID-0} '
|
|
/^[\ \ ]*(#.*)?$/ { next }
|
|
{
|
|
if (NF > 8) {
|
|
a[1]=$6
|
|
a[2]=$7
|
|
a[3]=$8
|
|
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])
|
|
}
|
|
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 | @AWK@ -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
|
|
}
|
|
|
|
case "$1" in
|
|
list) mcftplistfs_list $2; exit 0;;
|
|
run) mcftplistfs_run $2 $3; exit 0;;
|
|
esac
|
|
exit 1
|