##############################################################
#       Dialinfo - Dialer procedure definitions              #
#                                                            #
#    See dialer.1 dialprint.1 dial.2 dialinfo.7 for          #
#    more information.   And good luck.                      #
#                                                            #
#                                Gene H. Olson (author)      #
##############################################################

#	Hayes modem dialer.

hayes,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" M"AT DT%N\r" [CONNECT]10 [NO CARRIER]2 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s6=\$hello \${hello},
	s10=C1 G+,


#	Hayes entry to call another UNIX system.

uhayes,
	s10=E"looking for login ..." C1 [login:]40 [ssword:]11 H31 S2  T11,
	s11=R1 M"^M"  [login:]40 [ssword:]11 H31 S5  T12,
	s12=M"^M"     [login:]40 [ssword:]11 H31 S5  T13,
	s13=M"^D^D^D" [login:]40 [ssword:]11 H31 S10 T14,
	s14=B         [login:]40 [ssword:]11 H31 S10 T15,
	s15=M"^M"     [login:]40 [ssword:]11 H31 S5  T16,
	s16=B         [login:]40 [ssword:]11 H31 S10 T17,
	s17=M"^M"     [login:]40 [ssword:]11 H31 S5  T18,
	s18=B         [login:]40 [ssword:]11 H31 S10 T19,
	s19=M"^M"     [login:]40 [ssword:]11 H31 S5  T20,
	s20=B         [login:]40 [ssword:]11 H31 S10 T21,
	s21=M"^M"     [login:]40 [ssword:]11 H31 S5  T30,

	s30=E"No response from remote ..." R10 G0,
	s31=E"Remote system hung up ..." R3 G0,

	s40=M"^M"     G+,
	use=hayes,

#	Vadic 3451

vadic|va3451,
	delay=K, wait=KK, retry=5,
	s0=G1,
	s1=M"^E^M" [Y\n*] S4 T10,
	s2=M"D^M" [NUMBER]3 [ERROR]11 [*]11 T0,
	s3=M"%P^M" [%N]4 [ERROR]11 [*]11 T0,
	s4=M"^M" [ING:],
	s5=[CONNECT]+ [NO CARRIER]12 T30,
	s10=E"No response from dialer" R2 G0,
	s11=E"Comm error with dialer" R2 G0,
	s12=E"Connect failed" R1 G0,
	use=prometheus,


#	Nokia modem dialer.

xnokia,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" M"AT DT%N\r" [CONNECT]10 [NO CARRIER]2 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s6=\$hello \${hello},
	s10=C1 G+,


#	Nokia ecm4896. without error correction.

ecm4896,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0 X4 E0 V1\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" G11,
	s11=M"ATDT%N\r" [CONNECT]10 [NO CARRIER]2 [BUSY]5 [NO DIALTONE]6 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s5=E"busy ..." D1 P60 G0,
	s6=E"no dial tone..." D1 R5 G0,
	s7=E"no answer tone..." D1 R5 G0,
	s10=C1 G+,

# Multitech V32 without error correction

multi96,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0 X4 E0 V1 M0 &E0\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" G11,
	s11=M"ATDT%N\r" [CONNECT]10 [NO CARRIER]2 [BUSY]5 [NO DIALTONE]6 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s5=E"busy ..." D1 P60 G0,
	s6=E"no dial tone..." D1 R5 G0,
	s7=E"no answer tone..." D1 R5 G0,
	s10=C1 G+,

# Multitech V32 with error correction

multi96,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0 X4 E0 V1 M0 &E1\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" G11,
	s11=M"ATDT%N\r" [CONNECT]10 [NO CARRIER]2 [BUSY]5 [NO DIALTONE]6 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s5=E"busy ..." D1 P60 G0,
	s6=E"no dial tone..." D1 R5 G0,
	s7=E"no answer tone..." D1 R5 G0,
	s10=C1 G+,

#	Nokia ecm4896. with error correction.

ecm4896e,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0 X4 E0 V1\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" G11,
	s11=M"ATDT%N\r" [CONNECT]8 [NO CARRIER]2 [BUSY]5 [NO DIALTONE]6 S60 T3,
	s2=E"no answer ..." D1 R3 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s5=E"busy ..." D1 G0,
	s6=E"no dial tone..." D1 R5 G0,
	s7=E"no answer tone..." D1 R5 G0,
	s8=[ERROR]10 [NO CARRIER]3 S60 T3,
	s10=C1 G+,

# Removed R3 from s2 to retry busy forever, added 30 sec delay
nokia,
	star=*, pound=#, flash=H0\,H1,
	delay=\,, wait=\,, retry=20,
	s0=P1 M"AT Q0 X1 E0 V1 M1\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" G11,
	s11=M"ATDT%N\r" [CONNECT]10 [NO CARRIER]2 [BUSY]5 [NO DIALTONE]6 S60 T3,
	s2=E"no answer ..." D1 P30 G0,
	s3=E"no modem response ..." D1 R10 G0,
	s4=E"hung up unix system ..." D1 R5 G0,
	s5=E"busy ..." D1 G0,
	s6=E"no dial tone..." D1 R5 G0,
	s7=E"no answer tone..." D1 R5 G0,
	s10=C1 G+,


#	Nokia entry to call another UNIX system.

unokia,
	s10=E"looking for login ..." C1 [login:]40 [ssword:]11 H31 S2  T11,
	s11=R1 M"^M"  [login:]40 [ssword:]11 H31 S5  T12,
	s12=M"^M"     [login:]40 [ssword:]11 H31 S5  T13,
	s13=M"^D^D^D" [login:]40 [ssword:]11 H31 S10 T14,
	s14=B         [login:]40 [ssword:]11 H31 S10 T15,
	s15=M"^M"     [login:]40 [ssword:]11 H31 S5  T16,
	s16=B         [login:]40 [ssword:]11 H31 S10 T17,
	s17=M"^M"     [login:]40 [ssword:]11 H31 S5  T18,
	s18=B         [login:]40 [ssword:]11 H31 S10 T19,
	s19=M"^M"     [login:]40 [ssword:]11 H31 S5  T20,
	s20=B         [login:]40 [ssword:]11 H31 S10 T21,
	s21=M"^M"     [login:]40 [ssword:]11 H31 S5  T30,

	s30=E"No response from remote ..." R10 G0,
	s31=E"Remote system hung up ..." R3 G0,

	s40=M"^M"     G+,
	use=nokia,




