Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
freq
2 views
Skip to first unread message
Carlos Navarro
Oct 7, 2023, 3:34:42 AM10/7/23
to
I'm creating .req files manually to do file requests.
Area there other ways to do it? Any tool or script?
Carlos
Area there other ways to do it? Any tool or script?
Carlos
Tommi Koivula
Oct 7, 2023, 1:07:06 PM10/7/23
to
Hi Carlos.
07 Oct 23 09:29, you wrote to All:
CN> I'm creating .req files manually to do file requests.
GoldED can do freq's. Write netmail and press Alt-f.
CN> Area there other ways to do it? Any tool or script?
In my OS/2 system I have a REXX script called flowfile.cmd. I think it is
originally from binkleyterm.
=== Cut ===
/* Generate/Modify FlowFile (or REQ files) - written by Th. Waldmann */
/* 4D address support added by Michael Reinsch */
/* NO domain support! */
/* ----------------------------------------------------------------------*/
/* FlowFile 2:2474/400 F -> create/update 09aa0190.flo */
/* FlowFile 2:2474/400 C -> create/update 09aa0190.clo */
/* FlowFile 2:2474/400.2 H -> create/update 09aa0190.pnt\00000002.hlo */
/* FlowFile 1:1/2 C -> create/update 00010002.clo (in Z1 outbound)*/
/* FlowFile 2:2/1 H file.txt -> add entry "file.txt" to 00020001.hlo */
/* FlowFile 2:2/1 R file.txt -> add entry "file.txt" to 00020001.req */
/* */
/* If you invoke FlowFile.Cmd from another CMD file, you have to use: */
/* Call FlowFile ... */
/* changes the values of the variables below according to your needs !!! */
defaultzone = 2 /* your default outbound's zone number */
defaultoutbound = "d:\xenia\outbound" /* your default outbound
*/
rescanflag = "d:\semapho\btrescan.flg" /* global rescan flag */
/* end of values to change */
/* begin of program */
arg addr flavour line
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
addr = strip(addr)
flavour = strip(flavour)
line = strip(line)
call addflow addr, flavour, line
call touchflag rescanflag
exit
/* calculate binkley style outbound file name */
binkoutname: Procedure Expose defaultzone defaultoutbound
parse arg addr, extension
parse value addr with zone":"net"/"node"."point
outbound = defaultoutbound
if zone <> defaultzone then
do
outbound = outbound"."d2x(zone,3)
rc=SysMkDir(outbound)
end
if point <> ' ' & point > 0 then
do
outbound = outbound"\"d2x(net,4)||d2x(node,4)".pnt"
rc=SysMkDir(outbound)
filename = outbound"\"d2x(point,8)"."extension
end
else
filename = outbound"\"d2x(net,4)||d2x(node,4)"."extension
return filename
/* test (and set if not already set) binkley outbound BSY flag */
testsetbusy: Procedure Expose defaultzone defaultoutbound
parse arg addr
tmpfile = SysTempFileName(binkoutname(addr, "???"))
call touchflag tmpfile
'@ren' tmpfile '*.BSY >NUL 2>NUL'
renrc = rc
if renrc<>0 then
call SysFileDelete tmpfile
return renrc
/* remove binkley outbound BSY flag */
delbusy: Procedure Expose defaultzone defaultoutbound
parse arg addr
busyfile = binkoutname(addr, "BSY")
call SysFileDelete busyfile
return
/* create / update a flowfile */
addflow: Procedure Expose defaultzone defaultoutbound
parse arg addr, flavour, line
flavour=translate(flavour)
if testsetbusy(addr)=0 then
do
if flavour='R' then
flowfile = binkoutname(addr, "REQ")
else
flowfile = binkoutname(addr, flavour"LO")
/* create flowfile if it does not exist already */
/* if it does exist, change nothing */
call stream flowfile, 'c', 'open write'
if line <> "" then
call lineout flowfile, line
call stream flowfile, 'c', 'close'
call delbusy addr
end
else
say 'System' addr 'is busy.'
return
/* "touch" a file (create if not existing, update time stamp if existing) */
/* Attention - this is not a real "touch" yet! */
/* It writes a single byte to the beginning of the file !!!
*/
touchflag: Procedure
parse arg flag
call stream flag, 'c', 'open write'
call charout flag, " ", 1 /* is there a better method to "touch" ? */
call stream flag, 'c', 'close'
return
/* EOF */
=== Cut ===
'Tommi
07 Oct 23 09:29, you wrote to All:
CN> I'm creating .req files manually to do file requests.
GoldED can do freq's. Write netmail and press Alt-f.
CN> Area there other ways to do it? Any tool or script?
In my OS/2 system I have a REXX script called flowfile.cmd. I think it is
originally from binkleyterm.
=== Cut ===
/* Generate/Modify FlowFile (or REQ files) - written by Th. Waldmann */
/* 4D address support added by Michael Reinsch */
/* NO domain support! */
/* ----------------------------------------------------------------------*/
/* FlowFile 2:2474/400 F -> create/update 09aa0190.flo */
/* FlowFile 2:2474/400 C -> create/update 09aa0190.clo */
/* FlowFile 2:2474/400.2 H -> create/update 09aa0190.pnt\00000002.hlo */
/* FlowFile 1:1/2 C -> create/update 00010002.clo (in Z1 outbound)*/
/* FlowFile 2:2/1 H file.txt -> add entry "file.txt" to 00020001.hlo */
/* FlowFile 2:2/1 R file.txt -> add entry "file.txt" to 00020001.req */
/* */
/* If you invoke FlowFile.Cmd from another CMD file, you have to use: */
/* Call FlowFile ... */
/* changes the values of the variables below according to your needs !!! */
defaultzone = 2 /* your default outbound's zone number */
defaultoutbound = "d:\xenia\outbound" /* your default outbound
*/
rescanflag = "d:\semapho\btrescan.flg" /* global rescan flag */
/* end of values to change */
/* begin of program */
arg addr flavour line
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
addr = strip(addr)
flavour = strip(flavour)
line = strip(line)
call addflow addr, flavour, line
call touchflag rescanflag
exit
/* calculate binkley style outbound file name */
binkoutname: Procedure Expose defaultzone defaultoutbound
parse arg addr, extension
parse value addr with zone":"net"/"node"."point
outbound = defaultoutbound
if zone <> defaultzone then
do
outbound = outbound"."d2x(zone,3)
rc=SysMkDir(outbound)
end
if point <> ' ' & point > 0 then
do
outbound = outbound"\"d2x(net,4)||d2x(node,4)".pnt"
rc=SysMkDir(outbound)
filename = outbound"\"d2x(point,8)"."extension
end
else
filename = outbound"\"d2x(net,4)||d2x(node,4)"."extension
return filename
/* test (and set if not already set) binkley outbound BSY flag */
testsetbusy: Procedure Expose defaultzone defaultoutbound
parse arg addr
tmpfile = SysTempFileName(binkoutname(addr, "???"))
call touchflag tmpfile
'@ren' tmpfile '*.BSY >NUL 2>NUL'
renrc = rc
if renrc<>0 then
call SysFileDelete tmpfile
return renrc
/* remove binkley outbound BSY flag */
delbusy: Procedure Expose defaultzone defaultoutbound
parse arg addr
busyfile = binkoutname(addr, "BSY")
call SysFileDelete busyfile
return
/* create / update a flowfile */
addflow: Procedure Expose defaultzone defaultoutbound
parse arg addr, flavour, line
flavour=translate(flavour)
if testsetbusy(addr)=0 then
do
if flavour='R' then
flowfile = binkoutname(addr, "REQ")
else
flowfile = binkoutname(addr, flavour"LO")
/* create flowfile if it does not exist already */
/* if it does exist, change nothing */
call stream flowfile, 'c', 'open write'
if line <> "" then
call lineout flowfile, line
call stream flowfile, 'c', 'close'
call delbusy addr
end
else
say 'System' addr 'is busy.'
return
/* "touch" a file (create if not existing, update time stamp if existing) */
/* Attention - this is not a real "touch" yet! */
/* It writes a single byte to the beginning of the file !!!
*/
touchflag: Procedure
parse arg flag
call stream flag, 'c', 'open write'
call charout flag, " ", 1 /* is there a better method to "touch" ? */
call stream flag, 'c', 'close'
return
/* EOF */
=== Cut ===
'Tommi
Carlos Navarro
Oct 8, 2023, 4:18:42 AM10/8/23
to
07 Oct 2023 20:05, you wrote to me:
TK> GoldED can do freq's. Write netmail and press Alt-f.
Oops! Don't now why, I assumed it didn't support BSO. Thanks.
TK> In my OS/2 system I have a REXX script called flowfile.cmd. I think it
TK> is originally from binkleyterm.
Interesting, for reference. Thanks.
Carlos
TK> GoldED can do freq's. Write netmail and press Alt-f.
Oops! Don't now why, I assumed it didn't support BSO. Thanks.
TK> In my OS/2 system I have a REXX script called flowfile.cmd. I think it
TK> is originally from binkleyterm.
Interesting, for reference. Thanks.
Carlos
Tommi Koivula
Oct 8, 2023, 7:49:04 AM10/8/23
to
Hi Carlos.
TK>> GoldED can do freq's. Write netmail and press Alt-f.
CN> Oops! Don't now why, I assumed it didn't support BSO. Thanks.
Actually it doesn't. :)
Your fmail should understand frq flag in the netmail message and create the
.req file in your bso. I haven't tested.
'Tommi
TK>> GoldED can do freq's. Write netmail and press Alt-f.
Actually it doesn't. :)
Your fmail should understand frq flag in the netmail message and create the
.req file in your bso. I haven't tested.
'Tommi
Carlos Navarro
Oct 8, 2023, 11:24:46 AM10/8/23
to
CN>> Oops! Don't now why, I assumed it didn't support BSO. Thanks.
TK> Actually it doesn't. :)
It does. This is what I have in my golded.cfg :
// Binkley-style outbound path. Currently only used for WaZOO .REQ
// file requests. This should be the name of your primary outbound
// without extension.
OUTBOUNDPATH c:\fido\out
// Enable this if you want GoldED to use WaZOO-style file requests.
FRQWAZOO YES
TK> Your fmail should understand frq flag in the netmail message and
TK> create the .req file in your bso. I haven't tested.
Not sure, but I think that FMail doesn't do that.
Carlos
Tommi Koivula
Oct 8, 2023, 2:03:25 PM10/8/23
to
Hi Carlos.
CN>>> Oops! Don't now why, I assumed it didn't support BSO. Thanks.
TK>> Actually it doesn't. :)
CN> It does. This is what I have in my golded.cfg :
CN> // Binkley-style outbound path. Currently only used for WaZOO .REQ
CN> // file requests. This should be the name of your primary outbound
CN> // without extension.
CN> OUTBOUNDPATH c:\fido\out
CN> // Enable this if you want GoldED to use WaZOO-style file requests.
CN> FRQWAZOO YES
Cool. :)
I have never needed that, all tossers I ever used have been handling frq flags
just fine.
TK>> Your fmail should understand frq flag in the netmail message and
TK>> create the .req file in your bso. I haven't tested.
CN> Not sure, but I think that FMail doesn't do that.
Oh... Strange.
'Tommi
CN>>> Oops! Don't now why, I assumed it didn't support BSO. Thanks.
TK>> Actually it doesn't. :)
CN> // Binkley-style outbound path. Currently only used for WaZOO .REQ
CN> // file requests. This should be the name of your primary outbound
CN> // without extension.
CN> OUTBOUNDPATH c:\fido\out
CN> // Enable this if you want GoldED to use WaZOO-style file requests.
CN> FRQWAZOO YES
Cool. :)
I have never needed that, all tossers I ever used have been handling frq flags
just fine.
TK>> Your fmail should understand frq flag in the netmail message and
TK>> create the .req file in your bso. I haven't tested.
Oh... Strange.
'Tommi
Carlos Navarro
Oct 9, 2023, 3:52:53 AM10/9/23
to
* Originally in BINKD
* Crossposted in FMAIL_HELP
08 Oct 2023 20:58, you wrote to me:
TK>>> Your fmail should understand frq flag in the netmail message and
TK>>> create the .req file in your bso. I haven't tested.
CN>> Not sure, but I think that FMail doesn't do that.
TK> Oh... Strange.
It seems that the original author didn't implement this.
Carlos
* Crossposted in FMAIL_HELP
08 Oct 2023 20:58, you wrote to me:
TK>>> Your fmail should understand frq flag in the netmail message and
TK>>> create the .req file in your bso. I haven't tested.
CN>> Not sure, but I think that FMail doesn't do that.
It seems that the original author didn't implement this.
Carlos
0 new messages