mc/vfs/extfs/ftplist.in
2002-08-18 22:40:36 +00:00

57 lines
1.5 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
}
case "$1" in
list) mcftplistfs_list $2; exit 0;;
esac
exit 1