190 |
my $msg = $m->message_id->message; |
my $msg = $m->message_id->message; |
191 |
$msg =~ s/\s+/ /gs; |
$msg =~ s/\s+/ /gs; |
192 |
|
|
193 |
$l .= sprintf(" %-10s %15s : ", $m->list_id->name, $date); |
$l .= sprintf(" %-15s %15s : ", $m->list_id->name, $date); |
194 |
$l .= substr($msg, 0, 79 - length($l)); |
$l .= substr($msg, 0, 79 - length($l)); |
195 |
|
|
196 |
print "$l\n"; |
print "$l\n"; |
217 |
|
|
218 |
=cut |
=cut |
219 |
|
|
220 |
} elsif ($opt->{'inbox'}) { |
} elsif ($list_name = $opt->{'inbox'}) { |
221 |
|
|
222 |
|
my $message; |
223 |
|
while(<>) { |
224 |
|
$message .= $_; |
225 |
|
} |
226 |
|
|
227 |
|
$nos->inbox_message( |
228 |
|
list => $list_name, |
229 |
|
message => $message, |
230 |
|
) || die "can't receive message for list $list_name"; |
231 |
|
|
|
warn "inbox option is not implemented"; |
|
232 |
|
|
233 |
} else { |
} else { |
234 |
die "see perldoc $0 for help\n"; |
die "see perldoc $0 for help\n"; |