From d285185c91b4de3f8cc2318c7e695762236e3ceb Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 5 Jun 2010 21:42:11 +0200
Subject: [PATCH] show status stats for actions processed

---
 script/actions-to-changes | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/script/actions-to-changes b/script/actions-to-changes
index 6f00529..f2a083b 100755
--- a/script/actions-to-changes
+++ b/script/actions-to-changes
@@ -15,6 +15,8 @@ my @actions = @ARGV;
 my $t = Mojo::Client->new;
 $t->max_redirects( 1 );
 
+my $stats;
+
 foreach my $c ( sort {
 	my $at = $1 if $a =~ m/(\d+\.\d+)/;
 	my $bt = $1 if $b =~ m/(\d+\.\d+)/;
@@ -30,11 +32,16 @@ foreach my $c ( sort {
 	warn "# hash ",dump($hash);
 
 	my $tx = $t->post_form( $url => $hash );
-	if ( my $res = $tx->success) { print $res->body }
-	else {
+	if ( my $res = $tx->success) {
+		my $code = $res->code;
+		$stats->{$code}++;
+		print $code, ' ', $res->body
+	} else {
 		my ($code, $message) = $tx->error;
 		die "Error: $message";
 	}
 
 #	last if $max-- == 0;
 }
+
+warn "# stats ",dump($stats);
-- 
2.20.1