mark lewis wrote to Tony Langdon <=-
23 Mar 16 22:59, you wrote to me:
yes but why would you want to do that when you can easily do the
following in a script?
sub makebinkdlist()
{
mylist = %1
perl ftn/bin/binkd_nodelister.pl %mylist
ftn/nodelist/bd_%mylist.txt.new ftn/nodelist/ex_%mylist.txt.new
move ftn/nodelist/bd_%mylist.txt.new ftn/nodelist/bd_%mylist.txt
move ftn/nodelist/ex_%mylist.txt.new ftn/nodelist/ex_%mylist.txt
}
if exist ftn/secinbound/nodelist.### makebinkdlist ftn/secinbound/nodelist.### if exist ftn/secinbound/foolist.### makebinkdlist ftn/secinbound/foolist.### if exist ftn/secinbound/fredlist.### makebinkdlist ftn/secinbound/fredlist.###
if exist ftn/secinbound/xlist.### makebinkdlist
ftn/secinbound/xlist.### if exist ftn/secinbound/ratlist.###
makebinkdlist ftn/secinbound/ratlist.###
| Sysop: | digital man |
|---|---|
| Location: | Riverside County, California |
| Users: | 1,163 |
| Nodes: | 17 (0 / 17) |
| Uptime: | 458:59:57 |
| Calls: | 509,439 |
| Calls today: | 2 |
| Files: | 262,409 |
| U/L today: |
1 files (1,436K bytes) |
| D/L today: |
542 files (126M bytes) |
| Messages: | 470,608 |