cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 3.29 and 3.30

version 3.29, 2000/09/30 18:48:16

version 3.30, 2000/09/30 20:10:01

Line 1141 sub doAnnotate($$) {

($pathname = $where) =~ s/(Attic\/)?[^\/]*$//;

($filename = $where) =~ s/^.*\///;

http_header();

navigateHeader($scriptwhere,$pathname,$filename,$rev, "annotate");

print "<h3 align=center>Annotation of $pathname$filename, Revision $rev</h3>\n";

# this seems to be necessary

$| = 1; $| = 0; # Flush

Line 1207 sub doAnnotate($$) {

Line 1202 sub doAnnotate($$) {

# were nicer about buffering, then we could just leave it open, I think.

close ($writer) || die "cannot close: $!";

http_header();

navigateHeader($scriptwhere,$pathname,$filename,$rev, "annotate");

print "<h3 align=center>Annotation of $pathname$filename, Revision $rev</h3>\n";

# Ready to get the responses from the server.

# For example:

# E Annotations for foo/xx

Line 1239 sub doAnnotate($$) {

}

elsif ($words[0] eq "M") {

$lineNr++;

my $lrev = substr ($_, 2, 13);

(my $lrev = substr($_, 2, 13)) =~ y/ //d;

my $lusr = substr ($_, 16, 9);

(my $lusr = substr($_, 16, 9)) =~ y/ //d;

my $line = substr ($_, 36);

my $line = substr($_, 36);

my $isCurrentRev = ($rev eq $lrev);

# we should parse the date here ..

if ($lrev eq $oldLrev) {

$revprint = " ";

$revprint = sprintf('%-8s', '');

}

else {

$revprint = $lrev; $oldLusr = "";

$revprint = sprintf('%-8s', $lrev);

$revprint =~ s`^(\S+)`<a href="${scriptwhere}${barequery}#rev$1">$1</A>`; # `

$revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$1">$&</A>`; # `

$oldLusr = '';

}

if ($lusr eq $oldLusr) {

$usrprint = " ";

$usrprint = '';

}

else {

$usrprint = $lusr;

}

$oldLrev = $lrev;

$oldLusr = $lusr;

# is there a less timeconsuming way to strip spaces ?

($lrev = $lrev) =~ s/\s+//g;

my $isCurrentRev = ($rev eq $lrev);

print "<b>" if ($isCurrentRev);

# Set bold for text-based browsers only - graphical

printf ("%8s%s%8s %4d:", $revprint, ($isCurrentRev ? "|" : " "), $usrprint, $lineNr);

# browsers show bold fonts a bit wider than regular fonts,

# so it looks irregular.

print "<b>" if ($isCurrentRev && $is_textbased);

printf ("%s%s %-8s %4d:",

$revprint,

$isCurrentRev ? '!' : ' ',

$usrprint,

$lineNr);

print spacedHtmlText($line, $d{'tabstop'});

print "</b>" if ($isCurrentRev);

print "</b>" if ($isCurrentRev && $is_textbased);

}

elsif ($words[0] eq "ok") {

# We could complain about any text received after this, like the

CVSweb