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.
Edit
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.
PORT PORTNUM=4 ; Optional but sets port number if stated ID=Telnet DRIVER=Telnet CONFIG CMS=1 CMSCALL=PI1LAP CMSPASS=********** LOGGING=1 DisconnectOnClose=1 CMDPORT 63000 TCPPORT=6309 FBBPORT=6306 HTTPPORT=**** LOGINPROMPT=User: PASSWORDPROMPT=Password: MAXSESSIONS=10 CTEXT=Welcome to PI1LAP`s Telnet Server.\nPress ? For list of commands \n\n USER=pd9q,pass,PD9Q,,SYSOP ENDPORT
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
/etc/services
# Local services bpqdemo 63000/tcp # BPQ Demo App
/etc/inetd.conf
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.
cpanm Linux::SysInfo cpanm Sys::Info cpanm Sys::Load cpanm Sys::MemInfo cpanm Sys::CpuLoad
The testapp.pl script. /usr/local/linbpq/testapp.pl
#!/usr/bin/perl -w -T
# Simple information script 10/2018. PD9Q/PI1LAP
use strict;
use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );
use Sys::Load qw/getload uptime/;
use Sys::MemInfo qw(totalmem freemem totalswap);
use Sys::CpuLoad;
my $info = Sys::Info->new;
my $cpu = $info->device('CPU');
my $os = $info->os;
my $old_fh = select(STDOUT);
$| = 1;
select($old_fh);
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())[0], "\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.
root@gw:/usr/local/linbpq# telnet localhost 6309 Trying ::1... Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. User:pd9q Password: Welcome to PI1LAP`s Telnet Server. Press ? For list of commands app Connected to APP Hello PD9Q 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 exit shutting down, bye,bye Returned to Node LAPBPQ:PI1LAP-9
http://www.cantab.net/users/john.wiseman/Documents/LinBPQ%20Applications%20Interface.html