682 |
anubis_expect {-re "$expect\[^\n\]*\n"} |
anubis_expect {-re "$expect\[^\n\]*\n"} |
683 |
} elseif [regexp "^:ADD (.*)" $line dummy expect] { |
} elseif [regexp "^:ADD (.*)" $line dummy expect] { |
684 |
lappend file_pattern $expect |
lappend file_pattern $expect |
685 |
|
} elseif [regexp "^:DEL (.*)" $line dummy expect] { |
686 |
|
verbose "DEL:: $expect" |
687 |
|
anubis_command "$expect" |
688 |
} else { |
} else { |
689 |
anubis_command "$line" |
anubis_command "$line" |
690 |
lappend file_pattern $line |
lappend file_pattern $line |
716 |
} |
} |
717 |
} |
} |
718 |
|
|
|
# End of anubis.exp |
|
719 |
|
# End of anubis.exp |