Ich versuchs ja. 
map s/^\.\///, @_;
print LOG $datetime.' '.$channel.':'.(join ' ', @_)."\n";
system "MPD_PORT=$Port MPD_HOST=$IP mpc add @_";
system "MPD_PORT=$Port", "MPD_HOST=$IP", "mpc", "play";
map s/^\.\///, @_; system "MPD_PORT=$Port MPD_HOST=$IP mpc add @_"; system "MPD_PORT=$Port", "MPD_HOST=$IP", "mpc", "play";
map s/^\.\///, @_;
$ENV{MPD_PORT}=$Port;
$ENV{MPD_HOST}=$IP;
system "mpc", "add", @_;
system "mpc", "play";
)map s/\s+/,/g, @_;
system "aplay", @playlist;
system "aplay @playlist";
system "aplay \"".(join "\" \"", @playlist)."\"";
map s/ /\\ /g, @playlist;
s/ /\/ /g;
s! !/ !g;
dass hätte ich gestern schon gehabt. Warum auch immer hab ich mich in den normalen Slash verbissen. system "MPD_PORT=$Port MPD_HOST=$IP mpc add \"".(join "\" \"", @_)."\"";
. dass sollte ich ja hin bekommen.apt-get install ffmpeg
################# Alle Einstellungen ab hier #############################
my $volume_anfang = "50"; # This Volume will be set on start Kanal 1
my $Port = "6602"; # Port of mpd3
my $IP = "192.168.178.33"; # The IP where the mpd Instanz is running
my $mpdname = "mpd3"; # The Name of the mpd Instanz
my $verstaerker = '13/1/2'; # The GA of the switching Actor where the Amps are Powered
my $solar_aktiv = '12/1/2'; # The GA where the Logic say´s if the Solar-pump will be activated
my $begruessung = "Hallo"; # The Global welcoming at the start of the announcement
my $info_wz = '3/1/2'; # The GA to trigger the announcement
my $wert; # Empty Variable for the value for each hash
my $zusatz; # Empty Variable for the announcement after welcoming,wert,einheit,Zusatz
my @temperaturen; # Empty Array
my $ansage_text;
my $solar_aktiv_aus = "Solarthermische Energiegewinnung deaktiviert"; # announcement if Solar is deactivated
my $solar_aktiv_ein = "Solarthermische Energiegewinnung aktiviert"; # announcement if Solar is activated
# subscribe plugin on Announcement trigger GA and Solar_aktiv GA
$plugin_subscribe{$info_wz}{$plugname} = 1;
$plugin_subscribe{$solar_aktiv}{$plugname} = 1;
$plugin_info{$plugname.'_cycle'} = 0;
push @temperaturen, { name=>"aussen_temp", # was needed for debugging
dpt => 9.001, # The DPT for the GA. (Temperature=9)
ga=>'11/1/0', # The GA for the value, will be the second part of the Announcement
text=>"Die aktuelle Aussentemperatur betraegt ", # First part of the Announcement
ansage_ga=>'15/1/0'
};
push @temperaturen, { name=>"vorhersage_min",
DPT => 9.001,
ga=>'15/0/2',
text=>"Fuer heute vorhergesagte Temperatur betraegt",
ansage_ga=>'15/1/3'
};
#push @temperaturen, {name=>"vorhersage",
# DPT => 9,
# ga=>'15/0/2',
# text=>"",
# einheit=>"Grad",
# zusatz=>"",
# dateiname => "vorhersage"
# };
# push @temperaturen, { name=>"wohnzimmer_temp",
# DPT=>9,
# ga=>'11/2/0',
# text=>"Die aktuelle Wohnzimmer Temperatur betraegt ",
# einheit=>"Grad",
# zusatz=>"",
# dateiname => "wohnzimmer_temp"
# };
# push @temperaturen, { name=>"puffer_ww",
# DPT=>9,
# ga=>'12/0/0',
# text=>"Die aktuelle Warmwasser Temperatur betraegt ",
# zusatz=>"",
# einheit=>"Grad",
# dateiname => "puffer_ww"
# };
#push @temperaturen, { name=>"puffer_heizung",
# DPT=>9,
# ga=>'12/0/1',
# text=>"Die aktuelle Heizungs Temperatur betraegt ",
# zusatz=>"",
# einheit=>"Grad",
# dateiname => "puffer_heizung"
# };
# push @temperaturen, { name=>"Solar_aktiv",
# DPT=>1,
# ga=>'12/1/2',
# text=>"",
# zusatz=>"",
# einheit=>"",
# dateiname=>"Solar_aktiv",
# };
############################### Ende der Einstellungen ###################################################
if ($msg{'dst'} eq $info_wz && ($msg{'apci'} eq 'A_GroupValue_Write')) {
if ($msg{'data'} == 01) {
#my $url = "http://translate.google.de/translate_tts?ie=UTF-8&q=$begruessung";
#my $debug = `wget "$url" --keep-session-cookies --user-agent=sag_ich_nicht -O /tmp/begruessung.mp3`;
my $debug = `MPD_HOST=$IP MPD_PORT=$Port mpc clear` ;
knx_write($verstaerker ,1,1);
foreach my $element (@temperaturen){
my $name = $element->{name};
my $wert = knx_read($element->{ga}, 0, $element->{dpt});
# my $wert = "$wert1";
my $DPT = $element->{dpt};
my $ansage_text = "$element->{text}";
my $ansage_ga = $element->{ansage_ga};
add_mpc($ansage_text, $ansage_ga, $wert, $DPT);
plugin_log($plugname, $wert);
# my $url = "http://translate.google.de/translate_tts?ie=UTF-8&q=$ansage_text";
# my $debug = `wget "$url" --keep-session-cookies --user-agent=sag_ich_nicht -O /tmp/$element->{dateiname}.mp3`;
# my $debug = `MPD_HOST=$IP MPD_PORT=$Port mpc add $element->{dateiname}.mp3`;
# my $debug = `MPD_HOST=$IP MPD_PORT=$Port mpc play`;
next;
}
}
} else { return 0;}
# Speak output
# $Tag = $plugin_info{$plugname.'_Tag'}; #übergeben global auf lokal
# my $datei = "/tmp/$dateiname1.mp3";
# if (-e $datei) {
# my $debug = `MPD_HOST=$IP MPD_PORT=$Port mpc clear && MPD_HOST=$IP MPD_PORT=$Port mpc add $dateiname1.mp3 && MPD_HOST=$IP MPD_PORT=$Port mpc volume $volume_anfang && MPD_HOST=$IP MPD_PORT=$Port mpc play`;
# return;
# } else {
# my $url = "http://translate.google.com/translate_tts?ie=UTF-8&q=$Ansage1";
# my $debug = `wget "$url" --keep-session-cookies --user-agent=sag_ich_nicht -O /tmp/$dateiname1.mp3`;
# my $debug = `MPD_HOST=$IP MPD_PORT=$Port mpc clear && MPD_HOST=$IP MPD_PORT=$Port mpc add $dateiname1.mp3 && MPD_HOST=$IP MPD_PORT=$Port mpc volume $volume_anfang && MPD_HOST=$IP MPD_PORT=$Port mpc play`;
# return;
# }
#
#}
#}
###########
# Ansagen #
###########
# Wiregate-Plugin
# (c) 2012 Fry under the GNU Public License version 2 or later
# $plugin_info{$plugname.'_cycle'}=0; return 'deaktiviert';
sub add_mpc
{
my ($ganame, $ansage_ga, $wert, $DPT) = @_;
use POSIX qw(floor);
# Defaultkonfiguration
my $verstaerker='13/1/2';
my $logfile='/var/log/Ansagen.log';
my $speechdir='/var/lib/Ansagen/Sprache/';
my %channels=('default'=>'pakueche');
my $beepchannel='pakueche';
my $beep = "Beep/03d.mp3";
my @additional_subscriptions=();
my $Port = "6602";
my $IP = "192.168.178.33";
chdir $speechdir;
{
my $ga=$ansage_ga;
my $val=$wert;
my $dpt=$DPT;
$dpt=1.017 unless defined $dpt; # = Trigger, bedeutet Textansage ohne Daten
my $name=$ganame;
my $channel=$channels{default};
my $pattern=$name;
for my $pat (keys %channels)
{
if($pattern=~s/$pat//)
{
$channel=$channels{$pat};
last;
}
}
# Hole alle verfuegbaren Durchsagedateien
my $find=checkexec('find');
my @speech=split /\n/, `$find . -name "*.mp3"`;
# my @speech=split /\n/, `$find . -name "*.mp3"`;
return 'no speech files found' unless @speech;
my @statement=();
# Textteil (Gruppenadresse ausgesprochen)
if(defined $pattern)
{
#
# map s/\s * /\ /, @speech;
push(@statement, words(\@speech, $pattern));
}
# Informationsteil (Inhalt des Telegramms)
given($dpt)
{
when (1.001) # An/Aus
{ push(@statement, 'Zahlen/'.($val?'an':'aus').'.mp3'); }
when (1.008) # Hoch/Runter
{ push(@statement, 'Zahlen/'.($val?'hoch':'runter').'.mp3'); }
when(1.009) # Auf/Zu
{ push(@statement, 'Zahlen/'.($val?'auf':'zu').'.mp3'); }
when([5.010,7.001,12.001]) # Ordinalzahl
{ push(@statement, number(\@speech, $val, -1)); }
when([6.010,8.001,13.001]) # Kardinalzahl
{ push(@statement, number(\@speech, $val)); }
when([5.001,6.001]) # Prozent
{
push(@statement, number(\@speech, $val));
push(@statement, 'Zahlen/Prozent.mp3');
}
when(9.001) # Temperatur
{
push(@statement, number(\@speech, $val, 1));
push(@statement, 'Zahlen/Grad.mp3');
}
when(11.001) # Datum
{
if($val=~/^([0-9][0-9][0-9][0-9])-([0-9][0-9])-([0-9][0-9])/)
{
my @monat=qw(Januar Februar Maerz April Mai Juni Juli August September Oktober November Dezember);
push(@statement, number(\@speech, $3, -1));
push(@statement, 'Monate/'.$monat[$2-1].'.mp3') if defined $2 && $2>0 && $2<13;
}
else
{
return "Unbekanntes Datumsformat $val";
}
}
when(7.005) # Zeitdauer
{
$val=-$val if $val<0;
my $h=floor($val/3600);
$val-=3600*$h;
my $m=floor($val/60);
$val-=60*$m;
if($h)
{
push(@statement, number(\@speech, $h));
push(@statement, 'Zeiten/Stunden.mp3');
}
if($h || $m)
{
push(@statement, number(\@speech, $m));
push(@statement, 'Zeiten/Minuten.mp3');
}
push(@statement, number(\@speech, $val));
push(@statement, 'Zeiten/Sekunden.mp3');
}
when(10.001) # Uhrzeit
{
if($val=~/^(Mo|Di|Mi|Do|Fr|Sa|So)\s+([0-9][0-9])\:([0-9][0-9])/)
{
push(@statement, "Wochentage/$1.mp3");
push(@statement, number(\@speech, $2));
push(@statement, "Zeiten/Uhr.mp3");
push(@statement, number(\@speech, $3));
}
elsif($val=~/^([0-9][0-9])\:([0-9][0-9])}\:([0-9][0-9])/)
{
push(@statement, number(\@speech, $2));
push(@statement, "Zeiten/Uhr.mp3");
push(@statement, number(\@speech, $3));
}
else
{
return "Unbekanntes Uhrzeitformat $msg{value}";
}
}
when(1.017) # Trigger, kein Datenzusatz
{}
default # kein Datenzusatz, aber mit Logeintrag
{ return "Datentyp $dpt nicht implementiert"; }
}
# Das komplette Statement in die Ausgabe geben
speak($channel, $name, @statement);
return $name.' '.$msg{value};
}
return;
sub checkexec
{
my @path = split /:/, $ENV{PATH};
# map s|()/$|$1|, @path;
map s|(.)/$|$1|, @path;
for (@path)
{
my $full="$_/$_[0]";
# my $full="/$_[0]";
if(-x $full)
{
return "$_/$_[0]";
}
}
die "$_[0] must be in your PATH and executable.\n";
}
sub words
{
my $speech=shift;
my $pattern=shift;
# Konstruiere die abzuspielenden File(s) aus dem GA-Kuerzel
# erster Versuch: eine Datei passt komplett auf das Muster im Kuerzel
my $pat1=$pattern;
$pat1=~s/[_\s]+/.*?/g; # allgemeine Fassung
# $pat1=~s/\s+.*$//; # meine spezielle GA-Struktur
# $pat1=~s/_+/.*?/g; # meine spezielle GA-Struktur
$pat1='.*'.$pat1.'.*\.mp3$';
my @hits=();
my $hit=bestmatch($speech,$pat1);
push(@hits, $hit) if $hit; # gefunden
unless(@hits)
{
$pattern='_'.$pattern;
$pattern=~s/\s+/_/g; # allgemeine Fassung
# $pattern=~s/\s+.*$//; # meine spezielle GA-Struktur
# zweiter Versuch: aus Kuerzeln die Bausteine zusammenbauen
while($pattern=~s/^_([^_]+)//)
{
my $pat2=$1.'\.mp3$';
$hit=bestmatch($speech,$pat2);
push(@hits, $hit) if $hit; # gefunden
}
if($pattern)
{
$pattern=~s/_/.*/g; # Restnachricht
$pattern.='.*\.mp3$';
$pattern='.*'.$pattern;
$hit=bestmatch($speech,$pattern);
push(@hits, $hit) if $hit; # gefunden
}
}
return @hits;
}
sub number
{
my $speech=shift;
my $x=shift; $x=~s/,/./;
my $digits=0;
$digits=shift if @_; # max. Anzahl Nachkommastellen, -1 fuer Ordinalzahlen
my @hits=();
if($x<0)
{
push(@hits, 'Zahlen/minus.mp3');
$x=-$x;
$digits=0 if $digits<0; # keine negativen Ordinalzahlen
}
my $t=$digits<0?'o':'c';
my $n=floor($x);
my $m=$x-$n;
# Manche Zahlen existieren direkt als WAV
# von 0-12, sowie die runden 10er und 100 sowie 1000
# MUESSEN existieren, und zwar als Kardinalzahlen (c4.wav),
# Ordinalzahlen (o6.wav), die Zehner ausserdem mit vorangestelltem 'und'
# (u30.wav, uo30.wav)
if(-f 'Zahlen/'.$t.$n.'.mp3')
{
push(@hits, 'Zahlen/'.$t.$n.'.mp3');
}
else
{
return if($n>=1000000); # Zahlen ueber eine Million nicht implementiert
if($n>=1000)
{
$digits=0 if $digits>0; # waere Pseudo-genauigkeit und zu langer Text
if($n==1000)
{
push(@hits, 'Zahlen/'.$t.'1000.mp3');
$n = 0;
}
else
{
my $m=floor($n/1000);
@hits=number($speech,$m,0) if $m>1;
$n %= 1000;
if($n)
{
push(@hits, 'Zahlen/c1000.mp3');
}
else
{
push(@hits, 'Zahlen/'.$t.'1000.mp3');
}
}
if($n>=100 && $n<200)
{
push(@hits, 'Zahlen/u1.mp3');
}
}
if(-f 'Zahlen/'.$t.$n.'.mp3')
{
push(@hits, 'Zahlen/'.$t.$n.'.mp3');
}
elsif($n>100)
{
$digits=0 if $digits>0; # waere Pseudo-genauigkeit und zu langer Text
my $h = int($n/100);
$n %= 100;
push(@hits, 'Zahlen/u'.$h.'.mp3') if $h>1;
if($n)
{
push(@hits, 'Zahlen/c100.mp3');
}
else
{
push(@hits, 'Zahlen/'.$t.'100.mp3');
}
}
my $d = $n % 10;
if(-f 'Zahlen/'.$t.$n.'.mp3')
{
push(@hits, 'Zahlen/'.$t.$n.'.mp3');
}
else
{
my $z = $n-$d;
push(@hits, 'Zahlen/u'.$d.'.mp3');
push(@hits, 'Zahlen/u'.$t.$z.'.mp3');
}
}
if($digits>0)
{
$m = sprintf "%.$digits"."f", $m;
if($m>0)
{
push(@hits, 'Zahlen/Komma.mp3');
for (1..$digits)
{
$m*=10.; my $d=floor($m); $m-=$d;
push(@hits, "Zahlen/c$d.mp3");
}
}
}
return @hits;
}
sub bestmatch
{
my $speech=shift;
my $pattern=shift;
my @hits=sort { length($a) cmp length($b) } grep /$pattern/i, @{$speech};
return @hits ? (shift @hits) : undef;
}
sub speak
{
my $channel=shift; # ALSA-Channel
my $name=shift; # Name der Ansage (aus eibga.conf) - fuers Log
open LOG, ">>$logfile";
my $date=checkexec('date');
my $datetime=`$date +"%F %X"`;
$datetime=~s/\s*$//s;
if(@_)
{
my $aplay=checkexec('paplay');
# my $aplay = "paplay";
my $mpc=checkexec('mpc');
# system $mpc, 'pause';
# Nur fuer Russound-Paging: Star Trek 'Beep' vorweg weckt Russound auf
if($channel=~/$beepchannel/)
{
my $lastbeep=$plugin_info{$plugname.'_lastbeep'};
# max ein Beep pro Minute
if(!defined $lastbeep || time()>$lastbeep+60)
{
unshift(@_, $beep);
$plugin_info{$plugname.'_lastbeep'}=time();
}
}
# map s! !\ !g, @_;
map s/^\.\///, @_;
#
# $ENV{MPD_PORT}=$Port;
#$ENV{MPD_HOST}=$IP;
#system "mpc", "add", @_;
#system "mpc", "play";
print LOG $datetime.' '.$channel.':'.(join ' ', @_)."\n";
# system "aplay \"".(join "\" \"", @_)."\""; # Tipp von Fry
# knx_write($verstaerker,1,1);
# system "MPD_PORT=$Port MPD_HOST=$IP mpc clear";
system "MPD_PORT=$Port MPD_HOST=$IP mpc add \"".(join "\" \"", @_)."\"";
# system "MPD_PORT=$Port MPD_HOST=$IP mpc play";
sleep 4;
# system $aplay, -d, $channel, @_;
# my $debug = "paplay -d $channel @_";
# map s!^.*/(.*?)\.mp3!$1!, @_;
# system $mpc, 'toggle';
}
else
{
print LOG "$datetime $name - keine akustische Ansage moeglich\n";
}
close LOG;
}
}
Kommentar