06 Oct 2018 21:48, Björn Felten wrote to Benny Pedersen:
BP>> i posted binkd.cfg snippets, but some ignore me
BF> Well, excuse me for not wanting to deliberately slow down my mail BF> processing just because your system can't handle crashmail within a BF> timely fashion.
you make a fool of your self here, sadly i dont need to tell you more now, keep your own rules, by not dial me you are your own problem
BF> The FidoWeb does not want to be slowed down...
by not dial you do not make it faster
# back to why i did
when 100 nodes calling you, its potently possible you will create 100 dial to your uplinks in 1 sek, and you say i should accept that ?
rethink that
----- outman begins ----- #!/usr/bin/tclsh # # Copyright (c) 2000 by Alexander Belkin <adb@newmail.ru> # # $Id: outman,v 1.2 2005/02/12 15:54:35 ugenk Exp $ # # Tcl script for creating polls, file requests and file attaches # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version.
################## # Program settings
# Defaults for address completion set def_zone 2 set def_net 230 set def_node 0
# Path to your main BSO directory set bso_dir "/home/xpoint/fido/out"
# Path to your ASO directory # set aso_dir "/home/xpoint/fido/out.amiga" set aso_dir {}
# Log file name set logfile "/home/xpoint/fido/log/outman.log"
# Uncomment this if you not need logging #set logfile {}
################################ # The program's body starts here
set LOG {}
proc stupid_user {} {
puts "Usage: outman <\[poll|freq|send]> \[options] <address> \[files]\n" puts "options:" puts " -hold set hold flavor" puts " -normal set normal flavor (default)" puts " -crash set crash flavor" puts " -kill kill files after send" puts " -truncate truncate files after send" puts " -bso BSO style names (ASO default)" puts "" puts "Mail bug reports to <adb@newmail.ru>" exit 1 }
proc log {str} {
global LOG global logfile
if { $logfile != {} } {
if { $LOG == {} } { set LOG [open $logfile "a"] }
set seconds [clock seconds]
puts $LOG "[clock format $seconds -format "%d/%m %H:%M:%S"] $str"
} }
proc parse_addr {str} {
global def_zone global def_net global def_node set zone $def_zone set net $def_net set node $def_node set point 0
if { [regexp "^\[0-9]+:\[0-9]+/\[0-9]+\\.?\[0-9]*$" $str] } {
regexp "(\[0-9]+):(\[0-9]+)/(\[0-9]+)\\.?(\[0-9]*)$" $str \ {} zone net node point
regexp "^(\[0-9]*)\\.?(\[0-9]*)$" $str \ {} node point
} elseif { [regexp "^\.\[0-9]+$" $str] } {
regexp "^\.(\[0-9]+)$" $str \ {} point
} else {
puts "invalid address $str" return {}
}
if { $zone == {} } { set zone [$def_zone] } if { $net == {} } { set net [$def_net] } if { $node == {} } { set node [$def_node] } if { $point == {} } { set point 0 }
