; Filename : Disconnect.GPDScript
;
; This script will attempt to disconnect you from the net
; by calling "Stopnet" and then hanging up the modem.
; To run it use:
;
;     GPDial -nc AmiTCP:Scripts/Disconnect.GPDScript
;
; If you do this from a shell remember and change your stack to 10000 bytes
; with "stack 10000"
;
;     n = no startup script
;     c = don't open serial port (because AmiTCP will have it open)
;

	show ABORT ALL
	print "Attempting to disconnect"
	execute "AmiTCP:bin/Stopnet" failed
	pause 2
	setser $GPD_BAUD $GPD_DATA $GPD_STOP $GPD_PARITY
	send $GPD_HANGUP
	wait "OK" 2 error
	send "AT&D2\r"
	wait "OK" 2 error
	print "You are now disconnected"
	quit
;
lab failed:
	printerror "Can't execute \"stopnet\"\nYou will have to hangup\nthe modem manualy"
	quit
;
lab error:
	printerror "Error hanging up modem\nYou will have to do it manualy"
	quit
;
; EOF