30 |
global top_builddir |
global top_builddir |
31 |
|
|
32 |
set default "" |
set default "" |
33 |
set sw [list "-M sendmail:$top_builddir/examples/mta" \ |
set sw [list "--verbose" \ |
34 |
|
"-M sendmail:$top_builddir/examples/mta" \ |
35 |
"--email foobar@nonexistent.net"] |
"--email foobar@nonexistent.net"] |
36 |
set reuse_spool 0 |
set reuse_spool 0 |
37 |
|
set retcode 0 |
38 |
for {set i 0} {$i < [llength $args]} {incr i} { |
for {set i 0} {$i < [llength $args]} {incr i} { |
39 |
set a [lindex $args $i] |
set a [lindex $args $i] |
40 |
if {"$a" == "-default"} { |
if {"$a" == "-default"} { |
|
set default [lindex $args [expr $i + 1]] |
|
41 |
incr i |
incr i |
42 |
|
set default [lindex $args $i] |
43 |
} elseif {"$a" == "-message"} { |
} elseif {"$a" == "-message"} { |
|
set message [lindex $args [expr $i + 1]] |
|
44 |
incr i |
incr i |
45 |
|
set message [lindex $args $i] |
46 |
} elseif {"$a" == "-pattern"} { |
} elseif {"$a" == "-pattern"} { |
47 |
incr i |
incr i |
48 |
set pattern [lrange $args $i end] |
set pattern [lrange $args $i end] |
50 |
} elseif {"$a" == "-reuse-spool"} { |
} elseif {"$a" == "-reuse-spool"} { |
51 |
set reuse_spool 1 |
set reuse_spool 1 |
52 |
break |
break |
53 |
|
} elseif {"$a" == "-retcode"} { |
54 |
|
incr i |
55 |
|
set retcode [lindex $args $i] |
56 |
} else { |
} else { |
57 |
set sw [concat $sw [lindex $args $i]] |
set sw [concat $sw [lindex $args $i]] |
58 |
} |
} |
76 |
|
|
77 |
if [info exists pattern] { |
if [info exists pattern] { |
78 |
mu_exec -default $default -message $message -arg-list $sw \ |
mu_exec -default $default -message $message -arg-list $sw \ |
79 |
-pattern $pattern |
-pattern $pattern -retcode $retcode |
80 |
} else { |
} else { |
81 |
mu_exec -default $default -message $message -arg-list $sw |
mu_exec -default $default -message $message -arg-list $sw \ |
82 |
|
-retcode $retcode |
83 |
} |
} |
84 |
#FIXME: examine the output mailbox |
#FIXME: examine the output mailbox |
85 |
} |
} |