use strict;
use warnings;
use SVN::Log;
my $SVNrevs=SVN::Log::retrieve($branchURL, $firstTagRev, $secondTagRev);
$i=0; #need this because part the data structure demands it.
foreach @$SVNrevs){
# the easy part
    print $SVNrevs->[$i]{revision}, ",";
    print $SVNrevs->[$i]{date    }, ",";
    print $SVNrevs->[$i]{author  }, "\n";

# This is the pissy bit. Getting the path and the action which are children of the path element (the embedded hash)
    
   foreach my $recordpath ( keys $SVNrevs->[$i] ) {
      for my $path ( keys %{ $SVNrevs->[$i]{$recordpath} } ) {
         foreach my $action ($SVNrevs->[$i]{$recordpath}{$path}{'action'}) {
	  print "\t$action\t$path\n";
  	}
      }
    }
    my $message=$SVNrevs->[$i]{message  };
    $_=$message;
    s/\n/ /gi;   #cleaning up random newlines in the message
    $message = $_;
    print "\n\t $message \n\n";
#  }
$i++; #iterate for the next record
}