#!/usr/bin/perl -w
use IO::Socket;
use strict;

my $serverHost = "www.aprs-za.com";
my $serverPort = 10152;

my $username = "ZR1RF";
my $password = "24290";

my $address = "ZR1RF>APU25N,TCPIP*,qAC,APRS-ZA:";
my $position = "=3350.54S/01841.67E-";
my $comment = "Johannes in Langeberg Ridge";

my ($fortune) = `/usr/games/fortune /usr/share/games/fortunes/fortunes`;
chomp $fortune;
while (length($fortune) > 55)
{
  ($fortune) = `/usr/games/fortune /usr/share/games/fortunes/fortunes`;
  chomp $fortune;
}

my $status = $fortune;

my $sock = new IO::Socket::INET(
  PeerAddr => $serverHost,
  PeerPort => $serverPort,
  Proto => 'tcp'
) or die $!;
print "Connected to $serverHost!\n";

print $sock "user ".$username." pass ".$password." vers \"ZR1RF perl\"\n";
print "Waiting to be varified ...\n";
while (<$sock>)
{
  if (/$username verified/)
  {
    print "Varified!\n";
    print $sock $address.$position.$comment."\n";
    print $address.$position.$comment."\n";
    print $sock $address.">".&timestamp."z".$status."\n";
    print "Position Sent!\n";
    last;
  }
}
$sock->close;

sub timestamp
{
  my (undef,$min,$hr,$day) = localtime(time);
  $min =~ s/^(\d)$/0$1/; $hr =~ s/^(\d)$/0$1/; $day =~ s/^(\d)$/0$1/;
  my $timestamp = $day.$hr.$min;
  return $timestamp;
}