ODWGRX32EMUMLRDHFGGFIBZGP3MQIJDC75SZZASN76XOEHCNRHYQC
HZ2U4QEVVYICB2SZOY4UW7WPLUCQUJA7GB3GXCMLVWEF2WGI32XAC
SHYRGAWZFYGRWCRB54TYL2GTU3B4WMQ3J5H4ZHGV27W7PUQN3EWQC
BKOIYITRBRVU4D7XFAZPV5QHAPCBMIO3SBNHYJ6TVT43WR32CTHQC
my $branch = $c->request->params->{branch} ;
my $branch; die("invalid revisions: [$rev1] [$rev2]") if $rev1 !~ m/^[a-zA-Z0-9_.]+$/ || $rev2 !~ m/^[a-zA-Z0-9_.]+$/ ;
my $branch;
die("invalid revisions: [$rev1] [$rev2]") if $rev1 !~ m/^[a-zA-Z0-9_.]+$/ || $rev2 !~ m/^[a-zA-Z0-9_.]+$/ ;
$diff .= `(cd $clonePath ; hg log -r $rev1 -r $rev2)`;
$branch = `hg log --template '{branch}' -r $rev2`; $diff .= `(cd $clonePath ; hg log -r $rev1 -r $rev2 -b $branch)`;
$branch = `hg log --template '{branch}' -r $rev2`;
$diff .= `(cd $clonePath ; hg log -r $rev1 -r $rev2 -b $branch)`;