Problem mit vbox.
chris
och habe ein problem mit meinem vbox system bzw. mit dem tcl von vbox:
in meiner logfile tritt in bestimmten fällen ein timeout auf.
1. wie kann ich diesen timeout simulieren (was muss ich machen damit
es zu einem timeout kommt?)
2. mein tcl script erkennt diesen timeout leider nicht:
>>>>>>>>>>>>
set result [vbox_voice p
/virtualweb/html/pay_server/voice/jingle.ulaw
/virtualweb/html/pay_server/voice/by_minute.ulaw ]
if { "$result" == "HANGUP" || "$result" == "ERROR" || "$result" ==
"TIMEOUT" || "$result" == "NO CARRIER"} {
eval [exec /usr/bin/perl
/virtualweb/html/pay_server/incoming.cgi abbruch $vbxv_localphone
100728 $vbxv_callerid $vbxv_savevbox]
return
} else {
eval [exec /usr/bin/perl
/virtualweb/html/pay_server/incoming.cgi activate_voice
$vbxv_localphone 100728 $vbxv_callerid $vbxv_savevbox]
}
while { "1" == "1" } {
set result_while [vbox_voice p
/virtualweb/html/pay_server/voice/jingle.ulaw
/virtualweb/html/pay_server/voice/by_minute.ulaw ];
eval [exec /usr/bin/perl
/virtualweb/html/pay_server/incoming.cgi signal $vbxv_localphone
100728 $vbxv_callerid $vbxv_savevbox];
eval [exec /usr/bin/perl
/virtualweb/html/pay_server/incoming.cgi " rw: $result_while r:
$result " test ];
if { "$result_while" == "HANGUP" || "$result_while" ==
"ERROR" || "$result_while" == "TIMEOUT" || "$result_while" == "NO
CARRIER"} {
eval [exec /usr/bin/perl
/virtualweb/html/pay_server/incoming.cgi deactivate_voice
$vbxv_localphone 100728 $vbxv_callerid $vbxv_savevbox];
return
}
}
<<<<<<<<<<<<<<<
das problem liegt in der while schleife. bei jedem durchlauf der while
schleife wird das result (result_while) an ein cgi script übergeben.
beim auflegen ist der wert korrekt (hangup) beim timeout ist dieser
wert jedoch nicht timeout sondern OK.
was mache ich falsch?
bin echt verzweifelt und ratlos. wäre sehr nett wenn jemand vielleicht
rat weiss!
vielen dank!!!!
gruss, christoph