>
> where telnet.ctl contains
>
> helo
> authinfo user bigduck
> authinfo pass bigquack
> list
> quit
>
> - Peter
One of my e-mail accounts won't allow outgoing e-mail
unless a valid connection to a POP account is
happening simultaneously.
Here's a script I run on the linux box to
'Hog' a connection to my POP account, and just sit on
it, while I send outgoing mail.
'#' - EOL == comment except on the first line,
If it you are enamored with a particular telnet client,
and it uses standard I/O at the console,
you can use Kermit/2 to control it via
a 'pipe' network type.
The below doesn't do that but uses the
builtin telnet capabilities.
I think there is a Rexx dll available
that allows you to perform automated
telnet connections also.
#!/usr/local/bin/kermit -y
# Usage: spppxx [d]
# d = debug, does not run 'ticket' script,
# which self destructs on execution
# 23/04/2000 d.e.l. to run on 2.1 Debian Linux
# Objectives of this version of Kermit pophog dialer script:
# 1) dial into and keep a connection to the surfree
# mail server, to enable smtp access to mail.surfree.com
# echo 0: \&@[0] 1: \&@[1] 2: \&@[2] 3: \&@[3]
# quit
:confirmation
askq \%a {Password: }
askq \%b {Confirm Password: }
if not equal \%a \%b goto confirmation
echo Password confirmed.
echo hogging mail.surfree.com pop account.........
cd ~
open write ./pophogger
# this opens up what is essentially a here document.
writeln file \#!/usr/local/bin/kermit
writeln file delete ./pophogger
# Apparently, the script is completely loaded into
# memory before being executed, so this seems to work fine
# and keeps the file system uncluttered.
# It self-destructs the background script that dials the ISP.
# :-)
writeln file set network type tcp/ip
writeln file assign on_close \{
writeln file goto hammer
writeln file \}
# writeln file quit
writeln file :hammer
writeln file hangup
# writeln file set host mail.surfree.com:110
writeln file set host 209.228.64.11:110
writeln file if failure goto hammer
writeln file input 15 mail.surfree.com>
writeln file if failure goto hammer
# writeln file echo point 1
writeln file pause 1
writeln file output \\13
writeln file input 15 first
writeln file if failure goto hammer
# writeln file echo point 2
writeln file output user leganii\\13
writeln file input 15 OK
writeln file if failure goto hammer
# writeln file echo point 3
writeln file output pass \%a\\13
writeln file input 15 OK
writeln file if failure goto hammer
writeln file echo inside mail.surfree.com
writeln file pause 900
# writeln file exit
# writeln file connect
# writeln file while open connection \{
# writeln file \# while connected, do nothing
# writeln file \}
writeln file goto hammer
close write
run chmod oga+rwx ./pophogger
# echo 3: \&@[3]
# if not equal {\&@[3]} {d} run nohup ./spppdr \%a &
# if not equal {\&@[3]} {d} run nohup ./pophogger &
if not equal {\&@[3]} {d} run ./pophogger 2>&1 1>/tmp/pophog.log &
quit
Regards,
Dallas E. Legan II / leganii@surfree.com / dallasii@kincyb.com
Powered by......Lynx, the Internet at hyperkinetic speed.
=====================================================
To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-help".
For problems, contact the list owner at
"rollin@scoug.com".
=====================================================
<< Previous Message <<
>> Next Message >>
Return to [ 26 |
December |
2001 ]
The Southern California OS/2 User Group
P.O. Box 26904
Santa Ana, CA 92799-6904, USA
Copyright 2001 the Southern California OS/2 User Group. ALL RIGHTS
RESERVED.
SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group.
OS/2, Workplace Shell, and IBM are registered trademarks of International
Business Machines Corporation.
All other trademarks remain the property of their respective owners.
