comgt/files/hsoauth.comgt

opengt
 set com 115200n81
 set senddelay 0.02
 waitquiet 1 0.2

:start
 flash 0.1

:getuser
 let $u=$env("USER")
 let a=len($u)
 if a=0 goto continue

:getpass
 let $p=$env("PASS")

:auth
 print "User: ",$u,"\n"
 print "Pass: ",$p,"\n"
 send "AT$QCPDPP=1,1,\""
 send $p
 send "\",\""
 send $u
 send "\"^m"
 waitfor 2 "OK"
 if % = -1 goto error
 if % = 0 goto continue

:error
 exit 1

:continue
 exit 0
// Log In
// CVSweb
Project: FreeWRT
// Summary // Activity // Search // Tracker // Lists // News // SCM // Wiki
1	opengt
2	set com 115200n81
3	set senddelay 0.02
4	waitquiet 1 0.2
5
6	:start
7	flash 0.1
8
9	:getuser
10	let $u=$env("USER")
11	let a=len($u)
12	if a=0 goto continue
13
14	:getpass
15	let $p=$env("PASS")
16
17	:auth
18	print "User: ",$u,"\n"
19	print "Pass: ",$p,"\n"
20	send "AT$QCPDPP=1,1,\""
21	send $p
22	send "\",\""
23	send $u
24	send "\"^m"
25	waitfor 2 "OK"
26	if % = -1 goto error
27	if % = 0 goto continue
28
29	:error
30	exit 1
31
32	:continue
33	exit 0