webrev revision 8110
19997N/A# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
19997N/A# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
19997N/A# HTML page header template for index.html
19997N/A# HTML page footer template for index.html
19997N/Amy %file_status;
19997N/A $file_status{$7} = $1;
19997N/A $file_prop{$7} = $2;
19997N/A $file_hist{$7} = $4;
19997N/A my @lines = `LC_ALL=C cvs -z3 status 2>&1 | egrep '(^\\? |^cvs status: Examining |Status:)' | grep -v Up-to-date`
my $uname;
my $author;
my $hostname;
my $str = shift;
my $title = shift;
$str =~ s/\\n/\n/g;
return $str;
my $str = shift;
return $str;
my $webrev_dir = shift;
my $file = shift;
my $webrev_dir = shift;
my $file = shift;
my $webrev_dir = shift;
my $file = shift;
return undef;
return undef;
return undef;
system ("cd $webrev_dir/tmp && LC_ALL=C cvs -q -z3 -d $CVSROOT co -r$rev $REPO/$basename >/dev/null 2>&1 && mv $REPO/$basename $webrev_dir/$file/old.$basename && cd / && rm -rf $webrev_dir/tmp");
return undef;
my $webrev_dir = shift;
my $file = shift;
my @diff;
return undef;
my $webrev_dir = shift;
my $file = shift;
return undef;
my $ref = shift;
my $start = shift;
my $line = shift;
my $end = shift;
my $indent_len = shift;
my $webrev_dir = shift;
my $file = shift;
$total_lines++;
my $left_line;
my $right_line;
my @dellines;
my $line1 = $1;
$n1--;
my $n2 = push_line (\@right, "<FONT COLOR=\"blue\">$right_line ", $line1, "</FONT>\n", $line_nr_len);
$n2--;
$n1 = 0;
$n2 = 0;
--$n2;
--$n1;
my $n = push_line (\@right, "<FONT COLOR=\"blue\">$right_line ", $line1, "</FONT>\n", $line_nr_len);
return undef;
my $webrev_dir = shift;
my $file = shift;
system ("rm -f $webrev_dir/$file/$basename.diff; svn --non-interactive diff $file > $webrev_dir/$file/$basename.diff");
system ("rm -f $webrev_dir/$file/$basename.diff; cvs -q diff -up $file > $webrev_dir/$file/$basename.diff");
return undef;
my %changelog_entry;
my @chlog_lines;
my $entry = $1;
my $ecat = $1;
$ecat =~ s/^\s*\*\s*//;
$ecat = $2;
my $webrev_dir = shift;
my $total_new = 0;
my $total_deleted = 0;
my $total_changed = 0;
my $total_unchanged = 0;
my $total_non_svn = 0;
$total_new += $lines;
$total_deleted += $lines;
$total_non_svn += $lines;
my $label;
my $changed_lines = `diff -c $webrev_dir/$file/old.$basename $webrev_dir/$file/new.$basename | grep '^! ' | wc -l`;
my $deleted_lines = `diff -c $webrev_dir/$file/old.$basename $webrev_dir/$file/new.$basename | grep '^- ' | wc -l`;
my $new_lines = `diff -c $webrev_dir/$file/old.$basename $webrev_dir/$file/new.$basename | grep '^+ ' | wc -l`;
print INDEX "$new_lines line(s) new / $deleted_lines line(s) deleted / $changed_lines line(s) updated / $unchanged_lines line(s) unchanged\n";
$total_new += $new_lines;
print INDEX $changelog_entry{$file};
print INDEX "<P><B>Total</B>: $total_new line(s) new / $total_deleted line(s) deleted / $total_changed line(s) updated / $total_unchanged line(s) unchanged<BR>\n";