- Mitglied seit
- 3 Aug 2006
- Beiträge
- 27
- Punkte für Reaktionen
- 0
- Punkte
- 0
Hallo zusammen,
wieso gibt das Perl-Skript nichts aus? Die Datei wird angelegt
und hat 0 Byte. Gruss
#!/usr/bin/perl
use Asterisk::AGI;
open(ausgabe,">>/tmp/prot-agi.txt");
$agi = new Asterisk::AGI;
my %input = $agi->ReadParse();
my $ergebnis = $agi->get_variable("DIALSTRING");
print ausgabe "$ergebnis\n";
$agi->exec("Dial",$ergebnis );
meine extensions.conf
exten => _[1-9]X,1,Answer
exten => _[1-9]X,2,Set(DIALSTRING=SIP/${EXTEN})
exten => _[1-9]X,3,AGI(my-agi1.pl)
exten => _[1-9]X,4,Hangup
wieso gibt das Perl-Skript nichts aus? Die Datei wird angelegt
und hat 0 Byte. Gruss
#!/usr/bin/perl
use Asterisk::AGI;
open(ausgabe,">>/tmp/prot-agi.txt");
$agi = new Asterisk::AGI;
my %input = $agi->ReadParse();
my $ergebnis = $agi->get_variable("DIALSTRING");
print ausgabe "$ergebnis\n";
$agi->exec("Dial",$ergebnis );
meine extensions.conf
exten => _[1-9]X,1,Answer
exten => _[1-9]X,2,Set(DIALSTRING=SIP/${EXTEN})
exten => _[1-9]X,3,AGI(my-agi1.pl)
exten => _[1-9]X,4,Hangup