#!/bin/rc

rfork e
maxlines=369
currentlines=0

echo '
----------------------------------------------------------------------
'NEXT ONE `{date} >> /usr/nex/board
cat | {
    while (line = `{read}) {
        # Remove carriage return
        line = `{echo $line | sed 's/^M//'}

        if (~ $line '.') {
            echo 'Thanks. You are the Internet hero. Done, connection closed' >[1=2]
            exit
        }

        currentlines=`{echo $currentlines | awk '{print $1 + 1}'}
        if (~ $currentlines $maxlines) {
            echo 'Maximum line limit reached (369), Last line not sent, connection closed' >[1=2]
            exit
        }

        echo $line >> /usr/web/board
    }
}
#Line 13: '^M' is CR - carriage return 0x0D inside '' (Ctrl + M in Plan 9) Can't be displayed