• freq

    From Carlos Navarro@2:341/234.1 to All on Saturday, October 07, 2023 09:29:44
    I'm creating .req files manually to do file requests.

    Area there other ways to do it? Any tool or script?

    Carlos

    --- GoldED+/W32-MSVC 1.1.5-b20180707
    * Origin: cyberiada (2:341/234.1)
  • From Tommi Koivula@2:221/1 to Carlos Navarro on Saturday, October 07, 2023 20:05:36
    Hi Carlos.

    07 Oct 23 09:29, you wrote to All:

    I'm creating .req files manually to do file requests.

    GoldED can do freq's. Write netmail and press Alt-f.

    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

    --- GoldED+/LNX 1.1.5-b20231004
    * Origin: rbb.fidonet.fi (2:221/1)
  • From Carlos Navarro@2:341/234.1 to Tommi Koivula on Sunday, October 08, 2023 10:12:24
    07 Oct 2023 20:05, you wrote to me:

    GoldED can do freq's. Write netmail and press Alt-f.

    Oops! Don't now why, I assumed it didn't support BSO. Thanks.

    In my OS/2 system I have a REXX script called flowfile.cmd. I think it
    is originally from binkleyterm.

    Interesting, for reference. Thanks.

    Carlos

    --- GoldED+/W32-MSVC 1.1.5-b20180707
    * Origin: cyberiada (2:341/234.1)
  • From Tommi Koivula@2:221/6 to Carlos Navarro on Sunday, October 08, 2023 14:47:24
    Hi Carlos.

    GoldED can do freq's. Write netmail and press Alt-f.

    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

    --- GoldED+/LNX 1.1.5-b20231004
    * Origin: nntps://news.fidonet.fi (2:221/6)
  • From Carlos Navarro@2:341/234.1 to Tommi Koivula on Sunday, October 08, 2023 17:18:48
    Oops! Don't now why, I assumed it didn't support BSO. Thanks.

    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

    Your fmail should understand frq flag in the netmail message and
    create the .req file in your bso. I haven't tested.

    Not sure, but I think that FMail doesn't do that.

    Carlos

    --- GoldED+/W32-MSVC 1.1.5-b20180707
    * Origin: cyberiada (2:341/234.1)
  • From Tommi Koivula@2:221/6 to Carlos Navarro on Sunday, October 08, 2023 20:58:36
    Hi Carlos.

    Oops! Don't now why, I assumed it didn't support BSO. Thanks.

    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

    Cool. :)

    I have never needed that, all tossers I ever used have been handling frq flags just fine.

    Your fmail should understand frq flag in the netmail message and
    create the .req file in your bso. I haven't tested.

    Not sure, but I think that FMail doesn't do that.

    Oh... Strange.

    'Tommi

    ---
    * Origin: - rbb.fidonet.fi - Finland - (2:221/6)
  • From Carlos Navarro@2:341/234.1 to Tommi Koivula on Monday, October 09, 2023 09:50:46
    * Originally in BINKD
    * Crossposted in FMAIL_HELP

    08 Oct 2023 20:58, you wrote to me:

    Your fmail should understand frq flag in the netmail message and
    create the .req file in your bso. I haven't tested.

    Not sure, but I think that FMail doesn't do that.

    Oh... Strange.

    It seems that the original author didn't implement this.

    Carlos

    --- GoldED+/W32-MSVC 1.1.5-b20180707
    * Origin: cyberiada (2:341/234.1)