Hi there!

During last WPX DX Contest i decided to work from our contest station at the country abt 30km from my temporary QTH. I thought it would be nice if i could check what's going on the DX-Cluster being 'on the run' :-) So i wrote this simple script...

#!/usr/bin/perl
use strict;
use Net::Telnet ();

my $my_call = 'my_call';
my $my_pass = 'password_goes_here';
my $dxc_call = 'sr4dxc';

my $t = Net::Telnet->new(Host => 'sr4dxc.ampr.pl',
                Port => '9000',
                Timeout => 10);
$t->waitfor('/callsign:/');
$t->print($my_call);
$t->waitfor('/Password:/');
$t->print($my_pass);
$t->waitfor('/clx >/');
my @lines = $t->cmd(String => "@ARGV", Prompt => "/$my_call de $dxc_ca
+ll/");
print @lines;
$t->print("bye");
$t->close;
[download]

This short code allows me to execute all of the DX-Cluster commands passed as @ARGV.
At first i wrote a procmail rule to pass all the SMS messages sent from my phone number to my e-mail address to the other script, that allows me to execute arbitary commands on my Linux box (i know - it's unsecure, except special message format required and some other issues), which executes this script and passes all the arguments.
This way working as a contest station or DX-pedition (case with no PR and no internet connection) i have an access to the current DX information. The result printed to STDOUT by this script is collected by the first one and sent back to my phone via e-mail-->SMS gateway.

Note: tested and working 100% with (no adverts here) in Poland, but will work with any other GSM provider :-)

Vy 73 de SQ3TQM/6!
Greetz, Tom.