Mercurial > hg > nginx-vendor-import
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 +++ b/nginx-vendor-import.pl @@ -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 @@ my $userepo; { GetOptions( 'changes=s' => \$changes, - 'userepo=s' => \$userepo, + 'repo=s' => \$userepo, 'stopat=s' => \$stopat, 'startat=s' => \$startat, ); @@ -110,3 +115,5 @@ foreach (@changes) { if ($userepo) { `mv $prev/.hg $prev/.hgtags $userepo/`; } + +###############################################################################