LinBPQ has a facility to make a tcp connection from the node to an application running on the same machine. This was originally intended to connect to a shell to enable basic configuration editing, but has been generalised to allow connects to other tcp ports, thus allowing you to write your own applications to be used with LinBPQ.
Henk, pointed out that there was something missing in this story. Nowadays we mainly work with Systemd in the newer version of Linux. So the inetd (internet super server) is no longer part of this. But you can still install it. “sudo apt-get install inetutils-inetd” or the successor to inetd the Xinetd “sudo apt-get install xinetd”
Thank you Henk…
Ok, that sounds nice. Let give it a try.
Fist setup Linbpq, add de “cmdport” to the telnet port section.
PORTNUM=4 ; Optional but sets port number if stated
CTEXT=Welcome to PI1LAP`s Telnet Server.\nPress ? For list of commands \n\n
I have add “CMDPORT 63000” but it can by any number.
Now add a Application at the end of de bpq32.cfg
APPLICATION 7,APP,C 4 HOST 0 S
Now we have to add some stuff to /etc/services and /etc/inetd.conf
# Local services
bpqdemo 63000/tcp # BPQ Demo App
bpqdemo stream tcp nowait pd9q /usr/local/linbpq/testapp.pl
Now restart inetd. sudo killall -1 inetd
I have found a small script on the internet and make some adjustments.
This script is using some perl modules that has to be installed.
The testapp.pl script. /usr/local/linbpq/testapp.pl
#!/usr/bin/perl -w -T
# Simple information script 10/2018. PD9Q/PI1LAP
use Sys::Info::Constants qw( :device_cpu );
use Sys::Load qw/getload uptime/;
use Sys::MemInfo qw(totalmem freemem totalswap);
my $info = Sys::Info->new;
my $cpu = $info->device('CPU');
my $os = $info->os;
my $old_fh = select(STDOUT);
$| = 1;
my $line = <STDIN>;
print "Hello " . $line . "Welcome to the LinBPQ System Info App of PI1LAP.\n";
printf "\nWe have %s ", scalar $cpu->count;
printf "%s-bit CPU", scalar $cpu->bitness;
printf " %s\n", scalar $cpu->identify;
printf "The CPU speed is: %s\n\n", scalar $cpu->speed;
print "Operating System is\n", $os->name( long => 1 );
print "\n\nSystem load: ", (getload()), "\n";
print "System uptime: ", int uptime(), "\n\n";
print 'load average: ',
join(',', Sys::CpuLoad::load()), "\n\n";
print "Total memory: ".(&totalmem / 1024)."\n";
print "Free memory: ".(&freemem / 1024)."\n";
print "Total swap: ".(&totalswap / 1024)."\n";
print "Free swap: ".(Sys::MemInfo::get("freeswap") / 1024)."\n\n";
print "Type exit to close\n";
while( my $line = <STDIN> )
$line =~ s/\r?\n$//;
if ($line =~ /exit/)
die "shutting down, bye,bye\n";
# do your processing here!
print " $line\n";
Now we can run the script from linbpq. Let give it a try.
[email protected]:/usr/local/linbpq# telnet localhost 6309
Connected to localhost.
Escape character is '^]'.
Welcome to PI1LAP`s Telnet Server.
Press ? For list of commands
Connected to APP
Welcome to the LinBPQ System Info App of PI1LAP.
We have 1 32-bit CPU Intel(R) Pentium(R) 4 CPU 3.00GHz
The CPU speed is: 2992.432
Operating System is
Debian Linux 8.10 (kernel: 3.16.0-4-686-pae)
System load: 0.07
System uptime: 1211163
load average: 0.07,0.04,0.00
Total memory: 2062392
Free memory: 440452
Total swap: 2783228
Free swap: 2745472
Type exit to close
shutting down, bye,bye
Returned to Node LAPBPQ:PI1LAP-9