Use open |foo rather than exec to handle cmdline option parsing more uniformly.

This commit is contained in:
Dianne Skoll
2019-12-30 20:27:12 -05:00
parent e2d14e73bf
commit 637b137b1c

View File

@@ -2990,13 +2990,14 @@ proc ShowTodaysReminders {} {
# Grab the reminders
set stuff ""
catch {
if {"$Option(ExtraRemindArgs)" != ""} {
set stuff [exec -keepnewline $Remind -g -q -r $Option(ExtraRemindArgs) $ReminderFile 2>/dev/null]
} else {
set stuff [exec -keepnewline $Remind -g -q -r $ReminderFile 2>/dev/null]
}
set cmdline "|$Remind -g -q -r "
append cmdline $Option(ExtraRemindArgs);
append cmdline " $ReminderFile 2>/dev/null"
set f [open $cmdline r]
while {[gets $f line] >= 0} {
append stuff "$line\n"
}
close $f
$w.text insert end $stuff
$w.text configure -state disabled
}