Text 32, 815 rader
Skriven 2005-01-09 16:34:47 av Gord Hannah (1:17/23.1)
     Kommentar till text 30 av Bob Jones (1:343/41.0)
Ärende: Nodediff forwarding
===========================
Replying to a message from Bob Jones 1:343/41 to Gord Hannah,

About Nodediff forwarding, On Sun Jan 09 2005

 GH> What I have now is 778 lines long.

BJ> I'd do that type of processing with a combination of daynbr, squish
BJ> and a batch file.  Daynbr gives the file name subsitutions to the
BJ> batch file for the nodediff files.  Squish would queue the files for
BJ> sending.

BJ> I know, you are looking for REXX to replace the daynbr code, and
BJ> probably also creating or appending the packets that squish would
BJ> produce. 

Not really my system is AdeptXBbs, and Mr2Ice for email.

Here is the REXX script  look for 5 asterics ***** for where I want the
nodelist, nodediff stuff.

/* Auto-Pilot for Irex and Mr2i for Gord Hannah */

call rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'
call sysloadfuncs

FileName = ""
FilePath = "e:\Mr2Ice\Go\"
FileName1 = "Gord-F2I.cmd"
FilePath1 = "e:\Mr2Ice\"
FilePath2 = "e:\Mr2Ice\SENT\"
FilePath3 = "f:\adept\mailer\outbound_mail\"
FilePath4 = "f:\adept\mailer\Password\"
FilePath5 = "f:\adept\mailer\Public\"
/*
FilePath6 = "f:\adept\mailer\Unlisted\"
FilePath7 = "F:\Irex\Inbound\"
*/

CALL Directory 'F:\Adept\Mailer\Outbound_Mail'

CALL Irex_FTP_Mail_run_now

Irex_FTP_Mail_run_now:
CALL Directory 'F:\Irex'

'REXP.EXE'

*****
Copy Fnews to Adept-M only if it arrives
Copy nodediff to F:\qnode and to Adept-M
and run Qdiff and Qnode only if the Nodediff arrives/
or is present.

*****

GateKeeper:
CALL Directory 'F:\Adept'
'GateKpr.Exe GateKpr.Ctl A MP'

'e:'
'cd..'
'cd Mr2Ice'
'cd Sent'
'Erase *.* /n'
'cd\'
'f:'

Next_time:

Minutes = (right((Time('M')),4,0))
Week_Number = (left((Date('D')/7),2,0))
IF Week_Number = "0." then Week_Number = "00"
IF Week_Number = "1." then Week_Number = "01"
IF Week_Number = "2." then Week_Number = "02"
IF Week_Number = "3." then Week_Number = "03"
IF Week_Number = "4." then Week_Number = "04"
IF Week_Number = "5." then Week_Number = "05"
IF Week_Number = "6." then Week_Number = "06"
IF Week_Number = "7." then Week_Number = "07"
IF Week_Number = "8." then Week_Number = "08"
IF Week_Number = "9." then Week_Number = "09"

CALL Directory 'F:\Adept\My-Cmd'

LARRY_Point = '02'
LARRY = (LARRY_Point)(Week_Number)(Minutes)||'.'
GARTH_Point = '16'
GARTH = (GARTH_Point)(Week_Number)(Minutes)||'.'
JERRY_Point = '44'
JERRY = (JERRY_Point)(Week_Number)(Minutes)||'.'
STAN_Point = '57'
STAN = (STAN_Point)(Week_Number)(Minutes)||'.'
HELEN_Point = '69'
HELEN = (HELEN_Point)(Week_Number)(Minutes)||'.'
JONATHAN_Point = '70'
JONATHAN = (JONATHAN_Point)(Week_Number)(Minutes)||'.'
AL_Point = '71'
AL = (AL_Point)(Week_Number)(Minutes)||'.'
IAIN_Point = '74'
IAIN = (IAIN_Point)(Week_Number)(Minutes)||'.'
Igor_Point = '76'
Igor = (Igor_Point)(Week_Number)(Minutes)||'.'
EddyT_Point = '77'
EddyT = (EddyT_Point)(Week_Number)(Minutes)||'.'
Andy_Point = '00'
Andy = (Andy_Point)(Week_Number)(Minutes)||'.'

BBS_LARRY = "A.1.17.23.2.Fidonet"
BBS_GARTH = "A.1.17.23.16.Fidonet"
BBS_GORD = "A.1.17.23.23.Fidonet"
BBS_JERRY = "A.1.17.23.44.Fidonet"
BBS_STAN = "A.1.17.23.57.Fidonet"
BBS_HELEN = "A.1.17.23.69.Fidonet"
BBS_JONATHAN = "A.1.17.23.70.Fidonet"
BBS_AL = "A.1.17.23.71.Fidonet"
BBS_IAIN = "A.1.17.23.74.Fidonet"
BBS_Igor = "A.1.17.23.76.Fidonet"
BBS_EddyT = "A.1.17.23.77.Fidonet"
BBS_Andy = "A.1.109.921.0.Fidonet"

DAY = ""
DOW = date('W')

IF DOW = "Sunday" then
  DAY = SU
IF DOW = "Monday" then
  DAY = MO
IF DOW = "Tuesday" then
  DAY = TU
IF DOW = "Wednesday" then
  DAY = WE
IF DOW = "Thursday" then
  DAY = TH
IF DOW = "Friday" then
  DAY = FR
IF DOW = "Saturday" then
  DAY = SA

CALL EndLocal
CALL SetLocal
CALL Directory 'e:\Mr2Ice\SENT'

SELECT
  WHEN (DAY) = (SU) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (MO) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (TU) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (WE) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (TH) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (FR) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.SA*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SA* /N'
    END
  WHEN (DAY) = (SA) THEN
    DO
      rc = sysfiletree((FilePath2)||"*.SU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.SU* /N'
      rc = sysfiletree((FilePath2)||"*.MO*",files,o)
      IF files.0 > 0 THEN 'ERASE *.MO* /N'
      rc = sysfiletree((FilePath2)||"*.TU*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TU* /N'
      rc = sysfiletree((FilePath2)||"*.WE*",files,o)
      IF files.0 > 0 THEN 'ERASE *.WE* /N'
      rc = sysfiletree((FilePath2)||"*.TH*",files,o)
      IF files.0 > 0 THEN 'ERASE *.TH* /N'
      rc = sysfiletree((FilePath2)||"*.FR*",files,o)
      IF files.0 > 0 THEN 'ERASE *.FR* /N'
    END
END

CALL EndLocal
CALL SetLocal
CALL Directory 'e:\Mr2Ice\Go'
rc = sysfiletree((FilePath)||"*",files,o)
IF files.0 > 0 THEN 'ERASE * /N'

CALL EndLocal
CALL SetLocal
CALL Directory 'f:\adept\mailer\outbound_mail'

LARRY_now:
rc = sysfiletree((FilePath3)||(BBS_LARRY),files,o)
IF files.0 = 0 THEN CALL GARTH_now
ELSE
rc = sysfiletree((FilePath2)||(LARRY_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_02
ELSE
IF files.0 = 0 THEN FileName = (LARRY)||(DAY)||0
ELSE
FileName = (LARRY)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_02
Erase_Point_02:
ERASE (LARRY_Point)||'* /N'
FileName = (LARRY)||(DAY)||0
Copy_Point_02:
COPY (BBS_LARRY) (FilePath)||(FileName)
COPY (BBS_LARRY) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' lmckimmy@mindspring.com "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.2.Fidonet'

GARTH_now:
rc = sysfiletree((FilePath3)||(BBS_GARTH),files,o)
IF files.0 = 0 THEN CALL JERRY_now
ELSE
rc = sysfiletree((FilePath2)||(GARTH_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_16
ELSE
IF files.0 = 0 THEN FileName = (GARTH)||(DAY)||0
ELSE
FileName = (GARTH)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_16
Erase_Point_16:
ERASE (GARTH_Point)||'* /N'
FileName = (GARTH)||(DAY)||0
Copy_Point_16:
COPY (BBS_GARTH) (FilePath)||(FileName)
COPY (BBS_GARTH) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' garth.ramsay@sasktel.net "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.16.Fidonet'

JERRY_now:
rc = sysfiletree((FilePath3)||(BBS_JERRY),files,o)
IF files.0 = 0 THEN CALL STAN_now
ELSE
rc = sysfiletree((FilePath2)||(JERRY_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_44
ELSE
IF files.0 = 0 THEN FileName = (JERRY)||(DAY)||0
ELSE
FileName = (JERRY)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_44
Erase_Point_44:
ERASE (JERRY_Point)||'* /N'
FileName = (JERRY)||(DAY)||0
Copy_Point_44:
COPY (BBS_JERRY) (FilePath)||(FileName)
COPY (BBS_JERRY) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' jnichols4@triad.rr.com "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.44.Fidonet'

STAN_now:
rc = sysfiletree((FilePath3)||(BBS_STAN),files,o)
IF files.0 = 0 THEN CALL HELEN_now
ELSE
rc = sysfiletree((FilePath2)||(STAN_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_57
ELSE
IF files.0 = 0 THEN FileName = (STAN)||(DAY)||0
ELSE
FileName = (STAN)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_57
Erase_Point_57:
ERASE (STAN_Point)||'* /N'
FileName = (STAN)||(DAY)||0
Copy_Point_57:
COPY (BBS_STAN) (FilePath)||(FileName)
COPY (BBS_STAN) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' srburke00@hotmail.com "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.57.Fidonet'

HELEN_now:
rc = sysfiletree((FilePath3)||(BBS_HELEN),files,o)
IF files.0 = 0 THEN CALL JONATHAN_now
ELSE
rc = sysfiletree((FilePath2)||(HELEN_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_69
ELSE
IF files.0 = 0 THEN FileName = (HELEN)||(DAY)||0
ELSE
FileName = (HELEN)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_69
Erase_Point_69:
ERASE (HELEN_Point)||'* /N'
FileName = (HELEN)||(DAY)||0
Copy_Point_69:
COPY (BBS_HELEN) (FilePath)||(FileName)
COPY (BBS_HELEN) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' hcr@chesapeake.net "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.69.Fidonet'

JONATHAN_now:
rc = sysfiletree((FilePath3)||(BBS_JONATHAN),files,o)
IF files.0 = 0 THEN CALL AL_now
ELSE
rc = sysfiletree((FilePath2)||(JONATHAN_Point)||"*"||(DAY)||"*",files,o) do i=1
to files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_70
ELSE
IF files.0 = 0 THEN FileName = (JONATHAN)||(DAY)||0
ELSE
FileName = (JONATHAN)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_70
Erase_Point_70:
ERASE (JONATHAN_Point)||'* /N'
FileName = (JONATHAN)||(DAY)||0
Copy_Point_70:
COPY (BBS_JONATHAN) (FilePath)||(FileName)
COPY (BBS_JONATHAN) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' jonathan.deboynepollard-f2i@ntlworld.com
"F2I> '|| (FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.70.Fidonet'

AL_now:
rc = sysfiletree((FilePath3)||(BBS_AL),files,o)
IF files.0 = 0 THEN CALL IAIN_now
ELSE
rc = sysfiletree((FilePath2)||(AL_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_71
ELSE
IF files.0 = 0 THEN FileName = (AL)||(DAY)||0
ELSE
FileName = (AL)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_71
Erase_Point_71:
ERASE (AL_Point)||'* /N'
FileName = (AL)||(DAY)||0
Copy_Point_71:
COPY (BBS_AL) (FilePath)||(FileName)
COPY (BBS_AL) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' n1api@cox.net "F2I> '|| (FileName)||'
from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.71.Fidonet'

IAIN_now:
rc = sysfiletree((FilePath3)||(BBS_IAIN),files,o)
IF files.0 = 0 THEN CALL Igor_now
ELSE
rc = sysfiletree((FilePath2)||(IAIN_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_74
ELSE
IF files.0 = 0 THEN FileName = (IAIN)||(DAY)||0
ELSE
FileName = (IAIN)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_74
Erase_Point_74:
ERASE (IAIN_Point)||'* /N'
FileName = (IAIN)||(DAY)||0
Copy_Point_74:
COPY (BBS_IAIN) (FilePath)||(FileName)
COPY (BBS_IAIN) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' iallen@accesswave.ca "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.74.Fidonet'
Igor_now:
rc = sysfiletree((FilePath3)||(BBS_Igor),files,o)
IF files.0 = 0 THEN CALL EddyT_now
ELSE
rc = sysfiletree((FilePath2)||(Igor_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_76
ELSE
IF files.0 = 0 THEN FileName = (Igor)||(DAY)||0
ELSE
FileName = (Igor)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_76
Erase_Point_76:
ERASE (Igor_Point)||'* /N'
FileName = (Igor)||(DAY)||0
Copy_Point_76:
COPY (BBS_Igor) (FilePath)||(FileName)
COPY (BBS_Igor) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' cyber@neobee.net "F2I> '|| (FileName)||'
from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.76.Fidonet'

EddyT_now:
rc = sysfiletree((FilePath3)||(BBS_EddyT),files,o)
IF files.0 = 0 THEN CALL ANDY_now
ELSE
rc = sysfiletree((FilePath2)||(EddyT_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_77
ELSE
IF files.0 = 0 THEN FileName = (EddyT)||(DAY)||0
ELSE
FileName = (EddyT)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_77
Erase_Point_77:
ERASE (EddyT_Point)||'* /N'
FileName = (EddyT)||(DAY)||0
Copy_Point_77:
COPY (BBS_EddyT) (FilePath)||(FileName)
COPY (BBS_EddyT) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' e.thilleman@freeler.nl "F2I> '||
(FileName)||' from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.17.23.77.Fidonet'

ANDY_now:
rc = sysfiletree((FilePath3)||(BBS_ANDY),files,o)
IF files.0 = 0 THEN CALL NEXTUSER_now
ELSE
rc = sysfiletree((FilePath2)||(ANDY_Point)||"*"||(DAY)||"*",files,o) do i=1 to
files.0
F=(files.i)
end
IF (substr(F,25)) = 9 THEN CALL Erase_Point_00
ELSE
IF files.0 = 0 THEN FileName = (ANDY)||(DAY)||0
ELSE
FileName = (ANDY)||(DAY)||(substr(F,25)+1)
CALL Copy_Point_00
Erase_Point_00:
ERASE (ANDY_Point)||'* /N'
FileName = (ANDY)||(DAY)||0
Copy_Point_00:
COPY (BBS_ANDY) (FilePath)||(FileName)
COPY (BBS_ANDY) (FilePath2)||(FileName)
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(FilePath)||(FileName)||' os2@starband.net "F2I> '|| (FileName)||'
from Marsh-BBS"') WAIT 3
CALL Directory 'f:\adept\mailer\outbound_mail'
'ERASE A.1.109.921.0.Fidonet'
'ERASE H.1.109.921.0.Fidonet'
NEXTUSER_now:

/* TIC Files */

Path_Control = "F:\Adept\Mailer\Outbound_Mail\"

TIC1_JERRY = "H.1.17.23.44.Fidonet"
TIC1_EDDY = "H.1.17.23.77.fidonet"

First_File = ""
Second_File = ""
String1 = ""
String2 = ""
More = ""

FileName = ""
FilePath = "e:\Mr2Ice\Go\"
FileName1 = "Gord-F2I.cmd"
FilePath1 = "e:\Mr2Ice\"
FilePath2 = "e:\Mr2Ice\SENT\"

CALL SetLocal
CALL Directory 'e:\Mr2Ice'

EDDY_TICs1:
First_File = ((Path_Control)||(TIC1_EDDY))
CHARIN((First_File),1,0)
IF LINES(First_File) = 0 THEN CALL EDDY_H_Skip
ELSE
Again:
DO WHILE LINES(First_File) = 1
String1 = LINEIN(First_File)
mr2i ("/q:"||(String1)||' e.thilleman@freeler.nl "F2I> File from Marsh-BBS"')
WAIT 3
CHARIN(First_File)
String2 = LINEIN(First_File)
mr2i ("/q:"||(String2)||' e.thilleman@freeler.nl "F2I> TIC from Marsh-BBS"')
WAIT 3
ERASE (String2)
END

EDDY_Gone:
call stream (First_File), 'c', 'close'
ERASE 'F:\Adept\Mailer\Outbound_Mail\H.1.17.23.77.fidonet'

EDDY_H_Skip:

First_File = ""
Second_File = ""
String1 = ""
String2 = ""
More = ""

FileName = ""

JERRY_TICs1:
First_File = ((Path_Control)||(TIC1_JERRY))
CHARIN((First_File),1,0)
IF LINES(First_File) = 0 THEN CALL Jerry_H_Skip
ELSE
Again:
DO WHILE LINES(First_File) = 1
String1 = LINEIN(First_File)
mr2i ("/q:"||(String1)||' jnichols4@triad.rr.com "F2I> File from Marsh-BBS"')
WAIT 3
CHARIN(First_File)
String2 = LINEIN(First_File)
mr2i ("/q:"||(String2)||' jnichols4@triad.rr.com "F2I> TIC from Marsh-BBS"')
WAIT 3
ERASE (String2)
END

Jerry_H_Gone:
call stream (First_File), 'c', 'close'
ERASE 'F:\Adept\Mailer\Outbound_Mail\H.1.17.23.44.fidonet'

Jerry_H_Skip:

First_File = ""
Second_File = ""
String1 = ""
String2 = ""
More = ""

FileName = ""

/* Nodediff and BackBone.NA to Nodediff-Users */
CALL Directory 'F:\Adept-M'
FilePathM = 'F:\Adept-M\'
Nodediff = 'Nodediff.*'
/*FilePathN = 'F:\Fidonet\'*/
BackBone = 'BackBone.NA'
FidoNews = 'Fnews*.*'
FilePathO = 'i:\ter500\IN'
FilePathB = 'i:\ter500\TERMAIL'
rc = sysfiletree((FilePathM)||(Nodediff),files,o)
IF files.0 = 0 THEN Call Skip_Nodediff
Else
CALL SysFileTree (FilePathM)(Nodediff), 'file', 'FO'
 do i=1 to file.0
  String1 = file.i
 end
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(String1)||' Nodediff-Users "F2I> NODEDIFF from Marsh-BBS"') WAIT
3
COPY (String1) (FilePathN)
ERASE (String1)
Skip_Nodediff:
rc = sysfiletree((FilePathM)||(BackBone),files,o)
IF files.0 = 0 THEN Call Skip_BackBone
Else
CALL SysFileTree (FilePathM)(BackBone), 'file', 'FO'
 do i=1 to file.0
  String1 = file.i
 end
CALL Directory 'e:\Mr2Ice'
mr2i ("/q:"||(String1)||' Nodediff-Users "F2I> BackBone.NA from Marsh-BBS"')
WAIT 3
COPY (String1) (FilePathB)
ERASE (String1)
Skip_BackBone:

/* Erasing 0-byte H files */

CALL Directory 'F:\Adept\Mailer\Outbound_Mail'

H_File = 'H.1.17.23.1.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip1
ELSE
IF LINES(H_File) = 1 THEN CALL skip1
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip1:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.2.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip2
ELSE
IF LINES(H_File) = 1 THEN CALL skip2
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip2:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.16.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip16
ELSE
IF LINES(H_File) = 1 THEN CALL skip16
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip16:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.44.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip44
ELSE
IF LINES(H_File) = 1 THEN CALL skip44
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip44:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.57.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip57
ELSE
IF LINES(H_File) = 1 THEN CALL skip57
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip57:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.69.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip69
ELSE
IF LINES(H_File) = 1 THEN CALL skip69
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip69:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.70.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip70
ELSE
IF LINES(H_File) = 1 THEN CALL skip70
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip70:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.71.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip71
ELSE
IF LINES(H_File) = 1 THEN CALL skip71
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip71:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.74.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip74
ELSE
IF LINES(H_File) = 1 THEN CALL skip74
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip74:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.76.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip76
ELSE
IF LINES(H_File) = 1 THEN CALL skip76
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip76:
call stream (H_File), 'c', 'close'

H_File = 'H.1.17.23.77.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip77
ELSE
IF LINES(H_File) = 1 THEN CALL skip77
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip77:
call stream (H_File), 'c', 'close'

H_File = 'N.1.109.921.0.Fidonet'
rc = sysfiletree((FilePath3)||(H_File),files,o)
IF files.0 = 0 THEN CALL Skip0
ELSE
IF LINES(H_File) = 1 THEN CALL skip0
ELSE
call stream (H_File), 'c', 'close'
ERASE (H_File)
skip0:
call stream (H_File), 'c', 'close'

ERASE 'f:\adept-m\* /n'
exit

Hope this helps.  Keep us posted.

We are a fine board trying to make it better.
http://www.pris.bc.ca/ghannah
ghannah@pris.bc.ca
Cheers! Gord
-=Team OS/2=-
--- timEd/2 1.10.y2k+
 * Origin: Marsh BBS (c), Dawson Creek, BC Canada (1:17/23.1)