Nachricht über LAN an VDR senden

heikothole · 15. Februar 2007

Hallo ihr,

ich möchte auf einem kleinen Embedded-System die Telefonnummer von einem Anrufer auswerten (Clip) und diese dann per LAN an den VDR senden.

Der VDR soll sich dann die Nummer loggen und auch auf dem OSD ausgeben. Das klappt auch soweit schon!

Jetzt ist nur die Frage, wie ich die Nummer vom Embeded-System zum VDR bekomme. Das System kann z.B. wget. Es wäre also eine Idee das evtl. irgendwie so zu machen:
wget http://vdr/clip?NUMMER

Aber wie realisiere ich so etwas einfach auf dem VDR?

Hat jemand eine Idee??

Oder kann man das über SVDRP lösen?

Danke
Heiko

anbr · 15. Februar 2007

Hi,

Wenn es auf deinem System wget gibt, sollte auch nc existieren bzw. es ist möglich dafür zu komplieren ...

Den im SVDRP Protokoll gibt des den Befehl MESG :

Code

echo -e "MESG foobar..... \nQUIT" | /bin/nc vdr-ip 2001

Edit: per Telnet geht es natürlich auch

Code

echo -e "MESG foobar..... \nQUIT" | telnet vdr-ip 2001

Andreas

Papsi · 15. Februar 2007

Hallo,

kannste mal etwas zu dem Embedded-System sagen?

Link?
Projekte?

heikothole · 17. Februar 2007

Hallo,

so ich habe jetzt einen kleinen Perl-Serve am laufen der einfach nur HTTP-Anfragen entgegennimmt.

Perl

#!/usr/bin/perl


use IO::Socket;
use POSIX qw(mkfifo);


print "server started\n";


 $sock = new IO::Socket::INET (
                                  LocalPort => '2005',
                                  Listen => $SOMAXCONN,
                                  Reuse => 10,
                                 )
or die "Could not create socket: $!\n" unless $sock;


while ($client = $sock->accept())
{
  print "Accepted connection from ", $client->peerhost(), ":", $client->peerport(), "\n";


  print $client "HTTP/1.1 200 OK\r\n";
  print $client "Server: perl webserver\r\n";
  print $client "Content-length: 15\r\n";
  print $client "Content-type: text/html\r\n";
  print $client "\r\n";
  print $client "<html>\r\n</html>";


  my $daten = <$client>;
  print STDOUT $daten;

  $client->close();
}


close($sock);
print "Server going down\n";

Alles anzeigen

Per URL werden dann die Parameter übergeben. Z.B. so:

http://vdr:2005/telefon?anrufer=12345&angerufener=67890

Nach dem Aufruf der URL steht dann "telefon?anrufer=12345&angerufener=67890" in $daten.

Kann mir einer sagen, wie ich jetzt die beiden Telefonnummern in einzelen Variablen bekomme?

Danke schon mal
Heiko

Papsi:
Das ist ein kleines Testboard mit dem ARM-Controller. Viel mehr kann ich dir dazu leider nicht sagen...

heikothole · 19. Februar 2007

Hallo,

ich habe es jetzt am Laufen. Für alle die es interessiert hier die Scripte:

server.pl

Perl

#!/usr/bin/perl


use IO::Socket;
use POSIX qw(mkfifo);


#Pfad zur svdrpsend.pl
$SVDRPSEND="/usr/lib/vdr/svdrpsend.pl";


#Pfad zur invers_suche.pl
$INVERSSUCHE="/usr/bin/invers_suche.sh";


print "server started\n";


 $sock = new IO::Socket::INET (
								LocalPort => '2005',
                                Listen => $SOMAXCONN,
                                Reuse => 10,
                                )
or die "Could not create socket: $!\n" unless $sock;


while ($client = $sock->accept())
{
	print "Accepted connection from ", $client->peerhost(), ":", $client->peerport(), "\n";


	print $client "HTTP/1.1 200 OK\r\n";
	print $client "Server: perl webserver\r\n";
	print $client "Content-length: 15\r\n";
	print $client "Content-type: text/html\r\n";
  	print $client "\r\n";
	print $client "<html>\r\n</html>";


	my $daten = <$client>;

	$client->close();

	print STDOUT $daten;


	my $nr_anrufer;
	my $nr_angerufener;
	my $msg;

	if ($daten =~ /anrufer=([^& ]+)/)
	{
		$nr_anrufer = $1;
		printf("Anrufer: %s\n",$nr_anrufer);
	}

	if ($daten =~ /angerufener=([^& ]+)/)
	{
		$nr_angerufener = $1;
		printf("Angerufener: %s\n",$nr_angerufener);
	}

	if ($daten =~ /msg=([^& ]+)/)
	{
		$msg = $1;
		$msg =~ s/\%20/ /g;
		printf("Msg: %s\n",$msg);
		system("$SVDRPSEND MESG $msg >/dev/null");
	}

	if ($nr_angerufener || $nr_anrufer)
	{
		printf("Übergabe an invers_suche.sh\r\n");
		system("$INVERSSUCHE $nr_anrufer $nr_angerufener >/dev/null");
	}


}


close($sock);
print "Server going down\n";

Alles anzeigen

invers_suche.sh (habe ich irgendwo im Forum gefunde )

Bash

#!/bin/bash


#Paramter: $1: Nummer / $2: Angerufener / $3: ??


# Aufrufparameter auswerten
ANGERUFENER=$2


#pfad zum cachefile
CACHE="/var/cache/inverssuche/cache"


#pfad zur svdrpsend.pl
SVDRPSEND="/usr/lib/vdr/svdrpsend.pl"


#pfad um das tempfile anzulegen
LOG="/var/log/inverssuche/log"
TMPFILE="/var/log/inverssuche/tmp"




echo "Param1: $1 " >> $LOG
echo "Param2: $2 " >> $LOG
echo "Param3: $3 " >> $LOG
echo "----------------------------------" >> $LOG


# Anzahl der Sekunden zwischen den Nachrichten
WAIT=2


# Anzahl der Wiederholungen der Nachrichten
LOOPS=2


# alle VDRs im Netz angeben
VDRS[0]="localhost"


NUMMER=`echo $1 | sed -e "s/\ //g" -e "s/+49/0/"`


if [ "$NUMMER" == "" ]; then
	NAME="Unbekannte Telefonnummer"
	echo "$NAME"
else


	echo "Suche nach $NUMMER im cache"
	NAME=`awk  -F '\t' '{ if ($1 == "'$NUMMER'") print $2 }' $CACHE`
	DETAILS=`awk  -F '\t' '{ if ($1 == "'$NUMMER'") print $3 }' $CACHE`
	echo "Name: $NAME"
	echo "Details: $DETAILS"
	if [ "$NAME" == "" ]; then
   		echo "Suche nach $NUMMER in [URL]www.dasoertliche.de[/URL]"
		lynx "http://www.dasoertliche.de/Controller?form_name=search_inv&ph=$NUMMER" -dump -nolist -connect_timeout=3>  $TMPFILE
		NAME=`grep RTRTRTRT -A 6 $TMPFILE | awk '{ if (FNR == 1) print $0 }' |  sed  -e "s/RTRTRTRT//" -e "s/\ \+//" -e "s/\ \+/\ /g" -e "s/\[_\]//g"`
		DETAILS=`grep RTRTRTRT -A 6 $TMPFILE | awk '{ if (FNR == 2) print $0 }' |  sed  -e "s/\ \+//" -e "s/\ \+/\ /g" -e "s/\[_\]//g"`

		if [ "$NAME" == "" ]; then
			if grep "Kein Teilnehmer gefunden" $TMPFILE > /dev/null; then
				NAME="Telefonnummer $NUMMER"
				DETAILS="Kein Eintrag $2"
			fi;
		fi;
		if [ "$NAME" == "" ]; then
			NAME="Telefonnummer $NUMMER"
			DETAILS="Fehler $2"
		else
			echo -e "$NUMMER\t$NAME\t$DETAILS" >> $CACHE
		fi;
		echo "Name: $NAME"
		echo "Details: $DETAILS"
	fi


fi


rm $TMPFILE


# Spezialfall: Keine Details hinterlegt -> alles steht in $NAME
# -> $ANGERUFENER wird nicht mehr angezeigt -> diesen in $DETAILS anzeigen
if [ "$DETAILS" == "" ]; then
	DETAILS="$NUMMER für $ANGERUFENER"
fi


# Ausgabe auf OSD vom VDR
i=0
while (( i < LOOPS ))
do
	((i += 1))
	j=0
	while (( j < ${#VDRS[*]} ))
	do
		#$SVDRPSEND -d ${VDRS[$j]} -p 2001 "MESG Anruf von $NAME für $ANGERUFENER ..."
		$SVDRPSEND -d ${VDRS[$j]} -p 2001 "MESG Anruf von $NAME ..."
		((j += 1))		
	done
	sleep $WAIT


	if [ "$DETAILS" != "" ]; then
		j=0
		while (( j < ${#VDRS[*]} )) 
		do
			$SVDRPSEND -d ${VDRS[$j]} "MESG ... $DETAILS"
			((j += 1))
		done
		sleep $WAIT
	fi
done

Alles anzeigen

Nachricht über LAN an VDR senden

Jetzt mitmachen!

Teilen