<h2>Editing: get</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>#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(&quot;$filename&quot;);
my $n;
if (open IFILE,$filename) {
    if ($size&lt;$pos) {
        printf(&quot;0\n&quot;);
    } else {
        $size-=$pos;
        printf(&quot;$size\n&quot;);
    }
    printf(&quot;### 100\n&quot;);
    seek (IFILE, $pos, 0);
    while ($n = read(IFILE,$content,$blksize)!= 0) {
        print $content;
    }
    close IFILE;
    printf(&quot;### 200\n&quot;);
} else {
    printf(&quot;### 500\n&quot;);
}
exit 0
' &quot;${FILENAME}&quot; $OFFSET
}

fish_get_tail ()
{
FILENAME=$1
OFFSET=$2
LC_TIME=C
export LC_TIME
if dd if=&quot;${FILENAME}&quot; of=/dev/null bs=1 count=1 2&gt;/dev/null ; then
    file_size=`ls -ln &quot;${FILENAME}&quot; 2&gt;/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 &quot;### 100&quot;
    if [ $OFFSET -gt 0 ]; then
        tail -c +${OFFSET} &quot;${FILENAME}&quot;
    else
        cat &quot;${FILENAME}&quot;
    fi
    echo &quot;### 200&quot;
else
    echo &quot;### 500&quot;
fi
}

fish_get_dd ()
{
FILENAME=$1
OFFSET=$2
LC_TIME=C
export LC_TIME
if dd if=&quot;${FILENAME}&quot; of=/dev/null bs=1 count=1 2&gt;/dev/null ; then
    file_size=`ls -ln &quot;${FILENAME}&quot; 2&gt;/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 &quot;### 100&quot;
    if [ $OFFSET -gt 0 ]; then
        dd skip=$OFFSET ibs=1 if=&quot;${FILENAME}&quot; 2&gt;/dev/null
    else
        cat &quot;${FILENAME}&quot;
    fi
    echo &quot;### 200&quot;
else
    echo &quot;### 500&quot;
fi
}

if [ -n &quot;${FISH_HAVE_PERL}&quot; ]; then
    fish_get_perl &quot;/${FISH_FILENAME}&quot; ${FISH_START_OFFSET}
elif [ -n &quot;${FISH_HAVE_TAIL}&quot; ]; then
    fish_get_tail &quot;/${FISH_FILENAME}&quot; ${FISH_START_OFFSET}
else
    fish_get_dd &quot;/${FISH_FILENAME}&quot; ${FISH_START_OFFSET}
fi
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Flibexec%2Fmc%2Ffish' class='btn'>Cancel</a>
        </form>