From: Robin E. <ro...@ji...> - 2002-02-16 16:24:56
|
#Category=Internet #$Id$ $rv_dialup = new Voice_Cmd '[Stop,Start] R_Internet'; $rv_dialup->set_info("Start or stop the R_internet connection"); $rv_dialup->set_authority('anyone'); if ( said $rv_dialup eq "Start" ) { system("isdnctrl dial ippp0"); print_log "rdialup.pl: Attempting to start the network, please wait"; speak "Attempting to start the network, please wait"; } if ( said $rv_dialup eq "Stop" ) { system("isdnctrl hangup ippp0"); print_log "rdialup.pl: Attempting to start the network, please wait"; speak "Attempting to start the network, please wait"; } #$Log$ |