#!/usr/bin/perl
use IO::Socket;
use POSIX qw(setsid);
use LWP 5.64; # Loads all important LWP classes, and makes

my $browser = LWP::UserAgent->new;

# IP des Rechners auf dem POC32 läuft (der lokale Rechner)
$remote_host="192.168.1.100";

# Port auf dem POC32 läuft
$remote_port="8001";

# Die Zeit des Programmstarts wird gespeichert
$start=time();

$| = 1;
$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
    or die "Couldn't connect to $remote_host:$remote_port : $@\n";

# Logdatei pocsag.log wird geöffnet
open (out,">>pocsag.log");

# Der Client loggt sich bei POC32 ein
print $socket "0\n";
$enable=0;

# Schleife, solange die TCP Verbindung besteht
while (<$socket>) {

# Erst nach 10 Sekunden nach Programmstart werden Alarmierungen
# verarbeitet. (Sonst wird evtl. beim erneuten Aufruf des Clients
# die komplette Liste die noch im POC32 Fenster zu sehen ist 
# abgearbeitet.

if (!$enable) {
	$uptime=time()-$start;
	if ($uptime > 3) {
		$enable=1;
	}
}

# Aufsplitten der von POC32 gelieferten Zeilen in Spalten
@spalten=split(/\t/,$_);

$date=$spalten[0];
$ric=$spalten[3];
$type=substr($spalten[5],0,1);
$text=$spalten[6];

# Löschen unerwünschter Zeichen 
$text=~s/\r\n//;		# DOS Zeilenumbruch
$text=~s/\n//;			# Unix Zeilenumbruch
$text=~s/<EOT>//g;	# <EOT> (End of Text?)

# Ausgeben der Daten auf den Bildschirm und in das Logfile
print "$date;$ric;$type;\"$text\"\n";
print out "$date;$ric;$type;\"$text\"\n";

# Wenn die 10 Sekunden "Startphase" um ist, weitere Aktionen mit anstossen.
if ($enable) { push_pocsag(); }
}

close($socket);

# Programmende

# Funktion push_pocsag
sub push_pocsag {
	# Hier können alle Möglichen Aktionen folgen.
	# z.B. werden Hier alle Meldungen mit Ausnahme des Zeit / Alive RIC per 
	# HTTP GET an ein PHP Skript auf einem Webserver gesendet.
# Alt Stahnsdorf 1	  
if ($ric eq "1769825" and $type eq "1" ) 	{
          my $url = URI->new( 'http://example.com/webin.php/' );
	  
	  $url->query_form( 
		'log_user'	=> perl5123,
		'log_pass'	=> 471142,
		'listcode'	=> "+1",
                'text'	 => 1,
                'flash'	 => 1,
	  	);
	  
	  my $response = $browser->get($url);

	  # Antwort des Webservers:
	  print $response->content."\n";
 }