254 lines
4.9 KiB
Bash
Executable file
254 lines
4.9 KiB
Bash
Executable file
#!/bin/rc
|
|
# bloated, featureful usenet reader for use with nntpfs
|
|
rfork en
|
|
ramfs
|
|
argv0=$0
|
|
if(~ $#editor 0)
|
|
editor=hold
|
|
group=alt/test
|
|
maxposts=30
|
|
mnt=/mnt/news
|
|
if(~ $#newtname 0)
|
|
newtname=newt@dont-email.me
|
|
fn enterpost{
|
|
{
|
|
echo From: $"newtname
|
|
echo Newsgroups: `{echo $group | sed 's/\//\./g'}
|
|
echo Subject: $"subject
|
|
echo
|
|
} >/tmp/post
|
|
eval $editor /tmp/post
|
|
cat /tmp/post >$mnt/$group/post
|
|
}
|
|
fn f { du -a $* | sed 's/^.* //g' }
|
|
fn fmtd{
|
|
date=`{cat}
|
|
if(! ~ $date(1) [0-9]*)
|
|
date=`{nshift $date}
|
|
da=$date(1)
|
|
if(~ $da [0-9])
|
|
da=0^$da
|
|
switch($date(2)){
|
|
case Jan; mo=1
|
|
case Feb; mo=2
|
|
case Mar; mo=3
|
|
case Apr; mo=4
|
|
case May; mo=5
|
|
case Jun; mo=6
|
|
case Jul; mo=7
|
|
case Aug; mo=8
|
|
case Sep; mo=9
|
|
case Oct; mo=10
|
|
case Nov; mo=11
|
|
case Dec; mo=12
|
|
}
|
|
if(! ~ $date(3) `{date | awk '{print $6;}'})
|
|
ti=$date(3)
|
|
if not
|
|
ti=`{echo $date(4) | awk '{print substr($0,0,5);}'}
|
|
echo $mo/$da $ti
|
|
}
|
|
fn geth{
|
|
for(i in $*){
|
|
from=`{awk -F ' ' '{print $3;}' $i/xover}
|
|
if(! ~ $#from 0 && ! ~ $#from 1){
|
|
nfrom=`{
|
|
for(i in $from){
|
|
if(~ $i *@*)
|
|
echo $i | sed 's/(<|>)//g'
|
|
}
|
|
}
|
|
if(! ~ $#nfrom 0)
|
|
from=$nfrom
|
|
}
|
|
if(! ~ $#from 0){
|
|
date=`{awk -F ' ' '{print $4;}' $i/xover >[2]/dev/null | fmtd}
|
|
awk -v date'='$"date -v from'='$from(1) -F ' ' \
|
|
'{print " " $1 " " date " " from " " substr($2,0,50);}' $i/xover >[2]/dev/null
|
|
}
|
|
if not
|
|
echo ' '$"i' nil nil nil'
|
|
}
|
|
}
|
|
fn getposts{ ls | grep -e '^[0-9]+$' | sort -n | tail -$maxposts }
|
|
fn k{
|
|
kmnt=`{echo $mnt | sed 's/\//\\\//g'}
|
|
f $mnt/$* |
|
|
grep -v -e '\/([0-9]+|article|body|header|post|xover)$' |
|
|
sed 's/^'$"kmnt'\// g /g' |
|
|
sort
|
|
}
|
|
fn nshift{ shift; echo $* }
|
|
fn printhelp{
|
|
echo '[0-9]+ print specified message
|
|
b back
|
|
e enter message
|
|
f jump to first message
|
|
g ... go to specified group
|
|
h print message headlines
|
|
help print this help message
|
|
k ... list sub-groups under specified group
|
|
kf ... grep $home/lib/newsgroups for regexp
|
|
l jump to last message
|
|
n next
|
|
p print message with minimal headers
|
|
P print message with full headers
|
|
q quit
|
|
r reply to message
|
|
y synchronize message list with server
|
|
" print message in quoted form, suitable for reply
|
|
|cmd pipe message body to a command
|
|
||cmd pipe raw message to a command
|
|
? print debug information'
|
|
}
|
|
fn printp{
|
|
if(test -d $mnt/$group/$1){
|
|
grep -e '(^From|^Newsgroups|^Subject|^Date)' $1/header
|
|
echo
|
|
cat $1/body
|
|
}
|
|
echo
|
|
prompt=$group/$1
|
|
}
|
|
fn printpp{
|
|
if(test -d $mnt/$group/$1){
|
|
cat $1/article
|
|
}
|
|
echo
|
|
prompt=$group/$1
|
|
}
|
|
fn usage{
|
|
echo usage: $argv0 '[ -f newsgroup ] [ -m mountpoint ] [ -p maxposts ]' >[1=2]
|
|
exit usage
|
|
}
|
|
while(~ $1 -*){
|
|
switch($1){
|
|
case -f
|
|
group=`{echo $2 | sed 's/\./\//g'}
|
|
shift
|
|
case -m
|
|
mnt=$2
|
|
shift
|
|
case -p
|
|
maxposts=$2
|
|
shift
|
|
case *
|
|
usage
|
|
}
|
|
shift
|
|
}
|
|
if(! ~ $#* 0)
|
|
usage
|
|
prompt=$group
|
|
if(! test -d $mnt/$group){
|
|
echo !$mnt/$group does not exist >[1=2]
|
|
exit
|
|
}
|
|
builtin cd $mnt/$group
|
|
go=()
|
|
posts=`{getposts}
|
|
geth $posts >/tmp/h
|
|
post=$posts(1)
|
|
echo $#posts messages
|
|
while(){
|
|
echo -n $"prompt': '
|
|
cmd=`{read}
|
|
switch($cmd){
|
|
case [0-9]*
|
|
if(grep -s -e '^[0-9]+$' <{echo $cmd(1)}){
|
|
post=$cmd(1)
|
|
printp $post
|
|
}
|
|
case b
|
|
if(! ~ $post $posts(1)){
|
|
post=`{echo $post^-1 | bc}
|
|
printp $post
|
|
}
|
|
case e
|
|
enterpost
|
|
case f
|
|
post=$posts(1)
|
|
printp $post
|
|
case g' '*
|
|
ngroup=`{nshift $cmd | sed 's/\./\//g'}
|
|
if(test -d $mnt/$ngroup){
|
|
if(grep -s -e '^[0-9]+$' <{ls -p $mnt/$ngroup}){
|
|
group=$ngroup
|
|
builtin cd $mnt/$group
|
|
go=()
|
|
posts=`{getposts}
|
|
geth $posts >/tmp/h
|
|
post=$posts(1)
|
|
prompt=$group
|
|
echo $#posts messages
|
|
}
|
|
if not
|
|
echo !$ngroup contains no messages
|
|
}
|
|
if not
|
|
echo !$ngroup does not exist
|
|
case h
|
|
cat /tmp/h
|
|
case help
|
|
printhelp
|
|
case k
|
|
k $group
|
|
case k' '*
|
|
k `{nshift $cmd | sed 's/\./\//g'}
|
|
case kf' '*
|
|
grep -e `{nshift $cmd} $home/lib/newsgroups |
|
|
sed 's/^/ g /g'
|
|
case l
|
|
post=$posts($#posts)
|
|
printp $post
|
|
case p
|
|
printp $post
|
|
case p' '*
|
|
post=`{nshift $cmd}
|
|
printp $post
|
|
case P
|
|
printpp $post
|
|
case P' '*
|
|
post=`{nshift $cmd}
|
|
printpp $post
|
|
case q
|
|
exit
|
|
case r
|
|
if(test -f $mnt/$group/$post/header){
|
|
subject='Re: '^`{grep -e '^Subject: ' $mnt/$group/$post/header | sed 's/^Subject: //g'}
|
|
enterpost
|
|
}
|
|
if not
|
|
echo !message missing
|
|
case y
|
|
posts=`{getposts}
|
|
geth $posts >/tmp/h
|
|
echo $#posts messages
|
|
case '"'
|
|
printp $post | sed 1d | sed 's/^/> /g' | sed 's/^> >/>>/g'
|
|
case '||'*
|
|
cmd=`{echo $"cmd | sed 's/^\|\|//g'}
|
|
cat $mnt/$group/$post/article | eval $cmd
|
|
case '|'*
|
|
cmd=`{echo $"cmd | sed 's/^\|//g'}
|
|
cat $mnt/$group/$post/body | eval $cmd
|
|
case '?'
|
|
echo mnt: $mnt
|
|
echo group: $group
|
|
echo maxposts: $maxposts
|
|
echo posts: $posts
|
|
echo post: $post
|
|
case n *
|
|
if(~ $post $posts(1) && ~ $#go 0){
|
|
go=1
|
|
printp $post
|
|
}
|
|
if not if(! ~ $post $posts($#posts)){
|
|
go=1
|
|
post=`{echo $post^+1 | bc}
|
|
if(test $post -gt $posts($#posts))
|
|
post=$posts($#posts)
|
|
printp $post
|
|
}
|
|
}
|
|
}
|