| version 1.1.1.11, 2000/10/20 15:54:58 |
version 1.1.1.12, 2000/11/04 19:19:48 |
|
|
| # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
| # SUCH DAMAGE. |
# SUCH DAMAGE. |
| # |
# |
| # $zId: cvsweb.cgi,v 1.103 2000/09/20 17:02:29 jumager Exp $ |
# $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $ |
| # $kId: cvsweb.cgi,v 1.37 2000/10/20 15:46:01 knu Exp $ |
# $kId: cvsweb.cgi,v 1.39 2000/11/04 15:32:17 knu Exp $ |
| # |
# |
| ### |
### |
| |
|
| Line 1001 sub findLastModifiedSubdirs(@) { |
|
| Line 1001 sub findLastModifiedSubdirs(@) { |
|
| sub htmlify_sub(&$) { |
sub htmlify_sub(&$) { |
| (my $proc, local $_) = @_; |
(my $proc, local $_) = @_; |
| local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
| my ($linked, $result); |
my $linked; |
| |
my $result = ''; |
| |
|
| while (($_, $linked) = splice(@_, 0, 2)) { |
while (($_, $linked) = splice(@_, 0, 2)) { |
| &$proc(); |
&$proc(); |
| $result .= $_; |
$result .= $_ if defined($_); |
| $result .= $linked; |
$result .= $linked if defined($linked); |
| } |
} |
| |
|
| $result; |
$result; |
|
|
| if ($state eq "tags" && /^\S/) { |
if ($state eq "tags" && /^\S/) { |
| if (defined($tag) && (defined($symrev{$tag}) || $tag eq "HEAD")) { |
if (defined($tag) && (defined($symrev{$tag}) || $tag eq "HEAD")) { |
| $revwanted = $tag eq "HEAD" ? $symrev{"MAIN"} : $symrev{$tag}; |
$revwanted = $tag eq "HEAD" ? $symrev{"MAIN"} : $symrev{$tag}; |
| ($branch = $revwanted) =~ s/\b0\.//; |
($branch = $revwanted) =~ s/\.0\././; |
| ($branchpoint = $branch) =~ s/\.?\d+$//; |
($branchpoint = $branch) =~ s/\.?\d+$//; |
| $revwanted = undef if ($revwanted ne $branch); |
$revwanted = undef if ($revwanted ne $branch); |
| } |
} |
| Line 2033 sub readLog($;$) { |
|
| Line 2034 sub readLog($;$) { |
|
| |
|
| foreach (reverse sort keys %symrev) { |
foreach (reverse sort keys %symrev) { |
| $rev = $symrev{$_}; |
$rev = $symrev{$_}; |
| if ($rev =~ /^((.*)\.)?\b0\.(\d+)$/) { |
if ($rev =~ /^((.*)\.)0\.(\d+)$/) { |
| push(@branchnames, $_); |
push(@branchnames, $_); |
| # |
# |
| # A revision number of A.B.0.D really translates into |
# A revision number of A.B.0.D really translates into |
| Line 2046 sub readLog($;$) { |
|
| Line 2047 sub readLog($;$) { |
|
| # with the branch number 0.A, with the exception that |
# with the branch number 0.A, with the exception that |
| # it has no head to translate to if there is nothing on |
# it has no head to translate to if there is nothing on |
| # the branch, but I guess this can never happen? |
# the branch, but I guess this can never happen? |
| # (the code below gracefully forgets about the branch |
|
| # if it should happen) |
|
| # |
# |
| |
# Since some stupid people actually import/check in |
| |
# files with version 0.X we assume that the above cannot |
| |
# happen, and regard 0.X(.*) as a revision and not a branch. |
| |
# |
| $head = defined($2) ? $2 : ""; |
$head = defined($2) ? $2 : ""; |
| $branch = $3; |
$branch = $3; |
| $branchrev = $head . ($head ne "" ? "." : "") . $branch; |
$branchrev = $head . ($head ne "" ? "." : "") . $branch; |
| Line 2078 sub readLog($;$) { |
|
| Line 2081 sub readLog($;$) { |
|
| my ($onlyonbranch, $onlybranchpoint); |
my ($onlyonbranch, $onlybranchpoint); |
| if ($onlyonbranch = $input{'only_with_tag'}) { |
if ($onlyonbranch = $input{'only_with_tag'}) { |
| $onlyonbranch = $symrev{$onlyonbranch}; |
$onlyonbranch = $symrev{$onlyonbranch}; |
| if ($onlyonbranch =~ s/\b0\.//) { |
if ($onlyonbranch =~ s/\.0\././) { |
| ($onlybranchpoint = $onlyonbranch) =~ s/\.\d+$//; |
($onlybranchpoint = $onlyonbranch) =~ s/\.\d+$//; |
| } |
} |
| else { |
else { |
| Line 2637 sub navigateHeader($$$$$) { |
|
| Line 2640 sub navigateHeader($$$$$) { |
|
| $swhere = urlencode($filename) if ($swhere eq ""); |
$swhere = urlencode($filename) if ($swhere eq ""); |
| print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; |
print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; |
| print "<HTML>\n<HEAD>\n"; |
print "<HTML>\n<HEAD>\n"; |
| print '<!-- CVSweb $zRevision: 1.103 $ $kRevision: 1.37 $ -->'; |
print '<!-- CVSweb $zRevision: 1.104 $ $kRevision: 1.39 $ -->'; |
| print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n"; |
print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n"; |
| print "$body_tag_for_src\n"; |
print "$body_tag_for_src\n"; |
| print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">"; |
print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">"; |
| Line 2840 sub fileSortCmp() { |
|
| Line 2843 sub fileSortCmp() { |
|
| sub download_url($$;$) { |
sub download_url($$;$) { |
| my ($url,$revision,$mimetype) = @_; |
my ($url,$revision,$mimetype) = @_; |
| |
|
| $revision =~ s/\b0\.//; |
$revision =~ s/\.0\././; |
| |
|
| if (defined($checkoutMagic) |
if (defined($checkoutMagic) |
| && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) { |
&& (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) { |
| Line 3020 sub http_header(;$) { |
|
| Line 3023 sub http_header(;$) { |
|
| |
|
| sub html_header($) { |
sub html_header($) { |
| my ($title) = @_; |
my ($title) = @_; |
| my $version = '$zRevision: 1.103 $ $kRevision: 1.37 $'; #' |
my $version = '$zRevision: 1.104 $ $kRevision: 1.39 $'; #' |
| http_header(); |
http_header(); |
| print <<EOH; |
print <<EOH; |
| <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cvsweb.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / cvsweb