FM / fish

/usr/libexec/mc/fish

Name	Size	Mode	Actions
append	422	0644	edit dl rm
chmod	147	0644	edit dl rm
chown	172	0644	edit dl rm
fexists	88	0644	edit dl rm
get	2151	0644	edit dl rm
hardlink	182	0644	edit dl rm
info	985	0644	edit dl rm
ln	187	0644	edit dl rm
ls	4753	0644	edit dl rm
mkdir	111	0644	edit dl rm
mv	142	0644	edit dl rm
README.fish	6501	0644	edit dl rm
rmdir	111	0644	edit dl rm
send	442	0644	edit dl rm
unlink	114	0644	edit dl rm
utime	613	0644	edit dl rm

Edit: /usr/libexec/mc/fish/get (2151B)

#RETR $FISH_FILENAME $FISH_START_OFFSET
LC_TIME=C
export LC_TIME
fish_get_perl ()
{
FILENAME=$1
OFFSET=$2
perl -e '
use strict;
use POSIX;
use Fcntl;
my $filename = $ARGV[0];
my $pos = $ARGV[1];
my $content;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = lstat("$filename");
my $n;
if (open IFILE,$filename) {
    if ($size<$pos) {
        printf("0\n");
    } else {
        $size-=$pos;
        printf("$size\n");
    }
    printf("### 100\n");
    seek (IFILE, $pos, 0);
    while ($n = read(IFILE,$content,$blksize)!= 0) {
        print $content;
    }
    close IFILE;
    printf("### 200\n");
} else {
    printf("### 500\n");
}
exit 0
' "${FILENAME}" $OFFSET
}

fish_get_tail ()
{
FILENAME=$1
OFFSET=$2
LC_TIME=C
export LC_TIME
if dd if="${FILENAME}" of=/dev/null bs=1 count=1 2>/dev/null ; then
    file_size=`ls -ln "${FILENAME}" 2>/dev/null | (
       read p l u g s r
       echo $s
    )`
    if [ $OFFSET -gt 0 ]; then
        file_size=`expr $file_size - $OFFSET`
        OFFSET=`expr $OFFSET + 1`
    fi
    if [ $file_size -gt 0 ]; then
        echo $file_size
    else
        echo 0
    fi
    echo "### 100"
    if [ $OFFSET -gt 0 ]; then
        tail -c +${OFFSET} "${FILENAME}"
    else
        cat "${FILENAME}"
    fi
    echo "### 200"
else
    echo "### 500"
fi
}

fish_get_dd ()
{
FILENAME=$1
OFFSET=$2
LC_TIME=C
export LC_TIME
if dd if="${FILENAME}" of=/dev/null bs=1 count=1 2>/dev/null ; then
    file_size=`ls -ln "${FILENAME}" 2>/dev/null | (
       read p l u g s r
       echo $s
    )`
    file_size=`expr $file_size - $OFFSET`
    if [ $file_size -gt 0 ]; then
        echo $file_size
    else
        echo 0
    fi
    echo "### 100"
    if [ $OFFSET -gt 0 ]; then
        dd skip=$OFFSET ibs=1 if="${FILENAME}" 2>/dev/null
    else
        cat "${FILENAME}"
    fi
    echo "### 200"
else
    echo "### 500"
fi
}

if [ -n "${FISH_HAVE_PERL}" ]; then
    fish_get_perl "/${FISH_FILENAME}" ${FISH_START_OFFSET}
elif [ -n "${FISH_HAVE_TAIL}" ]; then
    fish_get_tail "/${FISH_FILENAME}" ${FISH_START_OFFSET}
else
    fish_get_dd "/${FISH_FILENAME}" ${FISH_START_OFFSET}
fi

cmd: