X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/76fd310606de1de6a1ffff64b2217eab74b65d28..a6843225598eb51580b75a4131386b45e5617d4c:/screp

diff --git a/screp b/screp
index dbd264c..4b896b5 100755
--- a/screp
+++ b/screp
@@ -3,10 +3,12 @@ use strict;
 use warnings;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
 my $SHOWWARN = 0;
 my $APMSVG = undef;
 
-use Getopt::Long;
+use Getopt::Long qw(:config bundling auto_version auto_help);
 GetOptions(
 	"verbose|v!" => \$SHOWWARN,
 	"apm|a=s" => \$APMSVG,
@@ -522,7 +524,8 @@ for my $player (sort keys %stats) {
 	$row->{last} ||= $map->[-1][0];
 #	printf("%-16s%6d actions (%3d micro,%4d macro);%4d APM\n",
 	my $name = showplayer($player);
-	printf("%-16s%6d actions in%7d frames (%s) = %d APM\n",
+	printf("%d %-16s%6d actions in%7d frames (%s) = %d APM\n",
+		$row->{slot},
 		$name, $row->{actions}, $row->{last},
 		showtime($row->{last}),
 #		$row->{micro} / $row->{last} * 60 / .042 * 1.05,
@@ -615,3 +618,25 @@ if ($APMSVG) {
 	print $apmfile $svg;
 }
 
+__END__
+
+=head1 NAME
+
+screp - StarCraft replay parser
+
+=head1 SYNOPSIS
+
+screp [options] < [replay data]
+
+ Options:
+   --verbose
+   --apm
+
+=head1 OPTIONS
+
+=head1 AUTHOR
+
+Mischa POSLAWSKY <perl@shiar.org>
+
+=head1 STUFF
+