"Fossies" - the Fresh Open Source Software Archive

Member "sawdog-2.4/services/smtp" (30 Oct 2000, 346 Bytes) of package /linux/privat/old/sawdog-2.4.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/bin/expect -f
    2 
    3 # SMTP Expect module for sawdog
    4 
    5 set env(TERM) vt100
    6 
    7 set timeout 8
    8 match_max 100000
    9 
   10 for {set x 0} {$x<3} {incr x} {
   11    spawn telnet $argv 25
   12    expect "Connection refused" {
   13       exit 2
   14    } "Escape character is '^\]'.\r\r" {
   15       expect "220" { 
   16          send -- "quit\r"
   17       exit 0
   18       }
   19    } 
   20    sleep 5
   21 }
   22 exit 1