changeset 1:216d6c84d918 default tip

Make it a bit more pretty (i.e. not so ugly).
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 04 Aug 2008 01:14:31 +0400
parents 0272fd3371b2
children
files nginx-vendor-import.pl
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/nginx-vendor-import.pl	Mon Aug 04 01:01:04 2008 +0400
+++ b/nginx-vendor-import.pl	Mon Aug 04 01:14:31 2008 +0400
@@ -1,8 +1,13 @@
 #!/usr/bin/perl -w
 
+# (C) Maxim Dounin
+
 # Import nginx source history into Mercurial repo.
 
-# perl -nle 'BEGIN { $/ = "\n\nChanges with nginx "; }; m/^([\d.]+)\s+/gs && print "$1 -- \n\n$_\n\n--\n\n"' CHANGES | less
+###############################################################################
+
+use strict;
+use warnings;
 
 use HTTP::Date qw/ str2time /;
 use POSIX qw/ strftime /;
@@ -16,7 +21,7 @@
 {
 	GetOptions(
 		'changes=s' => \$changes,
-		'userepo=s' => \$userepo,
+		'repo=s' => \$userepo,
 		'stopat=s'  => \$stopat,
 		'startat=s'  => \$startat,
 	);
@@ -110,3 +115,5 @@
 if ($userepo) {
 	`mv $prev/.hg $prev/.hgtags $userepo/`;
 }
+
+###############################################################################