Subj : Perl script for polling a node
To   : All
From : Bo Simonsen
Date : Wed Apr 23 2003 10:33 pm

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, @tmp, $izone, @tmp2, $inet, $inode, $file);

$input = $ARGV[0];
@tmp = split(/:/, $input);
$izone = $tmp[0];
@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
 * Origin: Downlink BBS * telnet geekworld.dk * Roennede, Dk (2:236/100)

.