Text 379, 166 rader
Skriven 2007-08-19 23:10:34 av Janis Kracht (1:261/38)
    Kommentar till text 377 av Mathieu Chappuis (2:22/222)
Ärende: What's wrong with my Perl scripts (no output)
=====================================================
Hi Mathieu,

>>PS: You posted long ago your BBBS batch files under linux here, would you pos
>>them again, my BBBS.English archives began in 2002, the same for BBBS HQ, it'
>> looks like your post was in 1999 or so. thanks.


========== Node 1 Script, Dialup Modem: =============
#!/bin/sh
# Run node 1.  Janis Kracht Jan. 21, 1999.

while :
do
   cd /home/bbbs
  ./bbbs 1 1 /dev/ttyS0 "uid:"bbs
# bbbs  com node
#
  RC=$?
  echo BBBS RC: $RC

  if [ $RC = 137 ]; then
    exit
  fi

# set this errorlevel in Global: FidoNet: Sessions: Mail errorlevel
  if [ $RC = 11 ];
    then nohup /home/bbbs/mailin.sh  &
  fi

#  set this errorlevel in Global: FidoNet: Sessions: User mail errl.
  if [ $RC = 12 ];
     then nohup /home/bbbs/mailout.sh &
  fi

  if [ $RC = 40 ];
     then nohup /home/bbbs/bbbs bnc 1 &
  fi

if [ $RC = 70 ];
     then nohup /home/bbbs/mkfilelist  &
fi

if [ $RC = 100 ];
  then nohup sh /home/bbbs/callbob.sh &
fi

if [ $RC = 0 ]; then
  exit
fi

reset

done
===============end node1 script==========


======mailin.sh ========
#!/bin/sh
cd /home/bbbs
./bbbs bogus w &
./bbbs btick &
=================end mailin.sh ========

========mailout.sh script==========
#!/bin/sh
cd /home/bbbs
./bbbs bogus r
===========end mailout.sh script =========

=====callbob.sh to make ftp connection to deliver mail, uses callbob.dat=======
#!/bin/sh
cd /home/bbbs/
  if [ -f login.bsy ]; then
    exit 0
  fi
  touch login.bsy
./bbbs bom ch 1:140/3 -H
./bbbs bftp callbob.dat /home/bbbs/inbound > /dev/null 2>&1 rm -f login.bsy
====================end callbob====

=======callbob.dat========
domain
username
password
put 1:140/1
cd ..
quit
========end callbob.dat=======

===========mkfilelist script===========
cd /home/bbbs
du -hc -X out.txt /home/ftp/pub > /home/bbbs/menus/bull5 ./bbbs bfstat >
/home/bbbs/menus/bull8 ./bbbs bcstat ^fido. -7 > /home/bbbs/menus/bull10 ./bbbs
bfileidx
./bbbs blist files.lst
./bbbs bnewf files.new
zip -jk /home/ftp/pub/info/files.zip files.lst zip -jk
/home/ftp/pub/info/newfiles.zip files.new
# I have CR/LF (MSDOS ON) in joe, the edtitor I use, so I don't include the l
# switch.. you may need to use zip -jkl for CR/LF.
====================end mkfilelist script=======

==========BBBS Binkp Dialout node, Node 2==============
#!/bin/sh
cd /home/bbbs
while :
do
   cd /home/bbbs
  ./bbbs 2 2 TCPIP

  RC=$?
  echo BBBS RC: $RC

if [ $RC = 137 ]; then
    exit
fi

# Following lines are commented out on this node so I don't scan and toss on
# both nodes.

#  set this errorlevel in Global: FidoNet: Sessions: Mail errorlevel
#  if [ $RC = 11 ];
#    then nohup /home/bbbs/mailin.sh  &
#  fi

#  set this errorlevel in Global: FidoNet: Sessions: User mail errl.
#  if [ $RC = 12 ];
#  then nohup /home/bbbs/mailout.sh &
#  fi

  if [ $RC = 0 ]; then
    exit
  fi

  reset

done

===========end=========

Bulletins:
=========================================================
du -hc -X out.txt /home/ftp/pub* > /home/bbbs/menus/bull5

  (out.txt:
            index.html
            dir2html.sh
            ziplist
            descript.ion
            descript.ion~
            dir2html.sh~
            index.html~
            files.bbs
            lost+found
   )
=================================================



Scripts to run bbs thanks to Warren Hrach :)

Take care,
janis

--- BBBS/LiI v4.01 Flag
 * Origin: Prism bbs (1:261/38)