Vbox fehler in Standard.tcl

13 Aug 2002

      Hi,

Hab ein Problem mit meiner Vbox, seit dem ich mir aus dem Internet ein 
Script gezogen hab der mir die vbox nachrichten als E-Mail sendet 
bekomme ich die unten angefügte Fehlermeldung, konnte aber keinen Fehler 
entdecken (vieleicht liegt das auch an meinen mangelden tcl kenntnissen 
:-) )hat jemand eine ahnung an was das liegen könnte ?.
Oder hat jememand einen Funktionsfähigen Script der die Nachrichten als 
E-Mails schickt ?
Währe für jede Art von Hilfe dankar.

gruß

Fred Kastl

logfiel:

13-Aug 15:02:09 <J> [vbox_pause] waiting 1000 ms...
13-Aug 15:02:10 <E> In "/var/spool/vbox/fred/standard.tcl":  (line 40).
13-Aug 15:02:10 <D> Freeing tcl interpreter...
13-Aug 15:02:10 <E> General tcl problem - setting flag to quit program...

\end logfile

standard.tcl:

      1
      2  # First we clear the touchtone sequences and remove all entries 
from
      3  # the callerid breaklist.
      4
      5  vbox_init_touchtones
      6
      7  vbox_breaklist rem all
      8
      9  # If variable VBOX_FLAG_STANDARD is TRUE we must play the standard
     10  # message...
     11
     12  if { "$vbox_flag_standard" == "TRUE" } {
     13
     14     set RC [ vbox_put_message $vbox_msg_standard ]
     15
     16     vbox_pause 500
     17
     18     if { "$RC" == "HANGUP" } {
     19        return
     20     }
     21  }
     22
     23  # If variable VBOX_FLAG_BEEP is TRUE we must play the beep
     24  # message...
     25
     26  if { "$vbox_flag_beep" == "TRUE" } {
     27
     28     set RC [ vbox_put_message $vbox_msg_beep ]
     29
     30     vbox_pause 500
     31
     32     if { "$RC" == "HANGUP" } {
     33        return
     34     }
     35  }
     36
     37  # If variable VBOX_FLAG_RECORD is TRUE we must record a new
     38  # message...
     39
     40  if { "$vbox_flag_record" == "TRUE" } {
     41
     42     set VBOX_NEW_MESSAGE 
"$vbox_var_spooldir/incoming/$vbox_var_savename.vmsg"
     43
     44     set RC [ vbox_get_message $VBOX_NEW_MESSAGE $vbox_var_rectime ]
     45
     46     vbox_pause 1000
     47
     48
     49     exec $vbox_var_bindir/vboxmail "$VBOX_NEW_MESSAGE" 
"$vbox_caller_name" "$vbox_caller_id" "$vbox_user_name" 
"$vbox_var_spooldir" "$vbox_var_saveniame"
     50
     51     if { "$RC" == "HANGUP" } {
     52        return
     53     }
     54
     55     if { "$RC" == "TIMEOUT" } {
     56
     57        vbox_put_message $vbox_msg_timeout
     58
     59        vbox_pause 500
     60     }
     61  }