--- svn/index.cgi	2008/10/17 10:09:15	18
+++ svn/index.cgi	2008/10/20 19:41:49	30
@@ -12,23 +12,24 @@
 
 my $debug = $ENV{'DEBUG'} || 0;
 
-my $max_items = 500;
+my $limit = 1000;
 
 my $repository_dir = '/srv/svn';
 my $svnweb = 'https://svn-strix.carnet.hr/private/svnweb/index.cgi/%s/revision?rev=%d';
-my $strip_branch = s!^/(branches/)?[^/]+/!/!;
 
 # my local config for development
 $repository_dir = '/home/dpavlin/private/svn';
 $svnweb = 'http://localhost/svnweb/index.cgi/%s/revision?rev=%d';
-$strip_branch = s!!!;
+# my local svk mirrors
+$repository_dir = '/home/dpavlin/.svk';
+$svnweb = 'http://localhost/svnweb/svk/index.cgi/%s/revision?rev=%d';
 
 # for older JSON
 #sub encode_json { objToJson( @_ ) }
 
 sub path_strip {
 	my $path = shift;
-	$path =~ $strip_branch;
+#	$path =~ $strip_branch;
 	return $path;
 }
 
@@ -38,14 +39,24 @@
 
 our $q = CGI->new;
 my $repository = $q->param('repository');
-$repository = (grep { m/^\Q$repository\E$/ } @repositories )[0];
+$repository = (grep { m/^\Q$repository\E$/ } @repositories )[0] if $repository;
+
+warn "q = ",dump( $q );
+warn "# limit: ", $q->param('limit');
 
 sub select_repository {
-	$q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
-	"Select repository: ",
-	$q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => qq{document.getElementById('current_repository').submit();} ),
-	$q->submit,
-	$q->end_form;
+	my $onChange = qq{document.getElementById('current_repository').submit();};
+	return (
+		$q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
+		"From repository ",
+		$q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ),
+		" show ",
+		$q->popup_menu( -name => 'limit', -values => [ qw/100 500 1000 5000 10000/ ], -onChange => $onChange ),
+		" revisions with ",
+		$q->checkbox(-name=>'path', -checked=>1, -value=>'ON', -label=>'path modifications', -onChange => $onChange ),
+		$q->submit,
+		$q->end_form
+	);
 }
 
 if ( ! $repository ) {
@@ -60,7 +71,7 @@
 
 	   <link rel="exhibit/data"
     type="application/json" 
-    href="?repository=$repository&json=1" />
+    href="|, $q->url( -query => 1 ), qq|&json=1" />
 
 <!--
 <script
@@ -91,16 +102,20 @@
         
             <div ex:role="facet" ex:expression=".author" ex:facetLabel="Author"
                 ex:sortMode="count"></div>
-    
+|, $q->param('path') ?
+qq|
             <div ex:role="facet" ex:expression=".action" ex:facetLabel="Action"
                 ex:sortMode="count" ex:scroll="false"></div>
-                
+| : '',
+qq|
             <div ex:role="facet" ex:expression=".revision" ex:facetClass="NumericRange"
-                ex:interval="10" ex:scroll="true"></div>
-                
+                ex:interval="20" ex:scroll="true"></div>
+|, $q->param('path') ?
+qq|
             <div ex:role="facet" ex:expression=".path" ex:facetLabel="Path by Count"
                 ex:sortMode="count"></div>
-                
+| : '',
+qq|
         </td>
         <td>
         
@@ -115,10 +130,10 @@
                 ex:colorKey=".author" 
                 ex:topBandUnit="week" ex:topBandPixelsPerUnit="200"
                 ex:bottomBandUnit="month" ex:bottomBandPixelsPerUnit="25"
-                ex:timelineHeight="650" />
+                ex:timelineHeight="550" />
             
             <div ex:role="view" ex:viewClass="Tabular"
-                ex:columns=".revision, .author, .date, .path, .action, .copyfrom-path, .copyfrom-rev, .msg" 
+                ex:columns=".revision, .author, .date, .PATH, .action, .copyfrom-path, .copyfrom-rev, .msg" 
                 />
         </td>
 
@@ -145,7 +160,9 @@
 
 my $log;
 {
-	open( my $log_fh, '-|', "svn log --xml --stop-on-copy -v file://$repository_dir/$repository" ) || die "can't read svn log: $!";
+	my $cmd = "svn log --xml --stop-on-copy -v --limit " . ( $q->param('limit') || $limit ) . " file://$repository_dir/$repository";
+	warn "cmd: $cmd\n";
+	open( my $log_fh, '-|', $cmd) || die "can't read svn log: $!";
 	local $/ = undef;
 	$log = <$log_fh>;
 	close( $log_fh );
@@ -176,15 +193,9 @@
 
 		push @{ $json->{items} }, $item;
 
-		$max_items--;
-		# we skip all other items in commits with more than 10 files as they are too chatty
-		last if $#{ $e->{'paths'}->{'path'} } > 10;
-#		last; # FIXME record just single item for each commit!
-		# we also break out when $max_items is reached to keep browser (somewhat) alive
-		last if ! $max_items;
+		last if ! $q->param('path');
 	}
 
-	last if ! $max_items;
 }
 
 print qq|Content-type: application/json\n\r\n\r|, encode_json( $json );