Mercurial > emacs

comparison lib-src/b2m.pl @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 23a1cea22d13
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 # General Public License for more details. 13 # General Public License for more details.
14 14
15 # You should have received a copy of the GNU General Public License 15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software 16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
18 # USA. 18 # USA.
19 19
20 # Maintained by Jonathan Kamens <jik@kamens.brookline.ma.us>. 20 # Maintained by Jonathan Kamens <jik@kamens.brookline.ma.us>.
21 21
22 # Requires CPAN modules: MailTools (for Mail::Address), TimeDate (for 22 # Requires CPAN modules: MailTools (for Mail::Address), TimeDate (for
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$';
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