Mercurial > emacs
comparison lib-src/b2m.pl @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 28 use Getopt::Long; | 28 use Getopt::Long; |
| 29 use Mail::Address; | 29 use Mail::Address; |
| 30 use Date::Parse; | 30 use Date::Parse; |
| 31 | 31 |
| 32 my($whoami) = basename $0; | 32 my($whoami) = basename $0; |
| 33 my($version) = '$Revision: 1.4 $'; | 33 my($version) = '$Revision: 1.5 $'; |
| 34 my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] | 34 my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] |
| 35 \tBy default, full headers are printed.\n"; | 35 \tBy default, full headers are printed.\n"; |
| 36 | 36 |
| 37 my($opt_help, $opt_version); | 37 my($opt_help, $opt_version); |
| 38 my($opt_full_headers) = 1; | 38 my($opt_full_headers) = 1; |
| 150 ($labels ? "X-Babyl-Labels: $labels\n" : ""), "\n", | 150 ($labels ? "X-Babyl-Labels: $labels\n" : ""), "\n", |
| 151 $_) || die "$whoami: error writing to stdout: $!\n"; | 151 $_) || die "$whoami: error writing to stdout: $!\n"; |
| 152 } | 152 } |
| 153 | 153 |
| 154 close(STDOUT) || die "$whoami: Error closing stdout: $!\n"; | 154 close(STDOUT) || die "$whoami: Error closing stdout: $!\n"; |
| 155 | |
| 156 # arch-tag: 8c7c8ab0-721c-46d7-ba3e-139801240aa8 |