Hello All!

I wrote a perl script for binkd, whitch can poll a node, example from crontab.
Maybe somebody can use it :)

=== Cut ===
#!/usr/bin/perl

my($input, {at}tmp, $izone, {at}tmp2, $inet, $inode, $file);

$input = $ARGV[0];
{at}tmp = split(/:/, $input);
$izone = $tmp[0];
{at}tmp2 = split(/\//, $tmp[1]);
$inet = $tmp2[0];
$inode = $tmp2[1];

$zone = sprintf("%x", $izone);
$net = sprintf("%x", $inet);
$node = sprintf("%x", $inode);

while(length($node) < 4)
{
$node = "0$node";
}

while(length($net) < 4)
{
$net = "0$net";
}

$file = "/home/ftn/outb/$net$node.ilo";

open (FLO, ">$file");
close (FLO);

=== Cut ===

Just change the outbound path :)

Regards, Bo

... "640K ought to be enough for anybody" Bill Gates 1981
--- Husky/Binkd/Ifmail/EleBBS/Golded+ 1.1.5