#!/usr/bonsaitools/bin/perl # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Netscape Public # License Version 1.1 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.mozilla.org/NPL/ # # Software distributed under the License is distributed on an "AS # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or # implied. See the License for the specific language governing # rights and limitations under the License. # # The Original Code is the Application Registry. # # The Initial Developer of the Original Code is Netscape Communications # Corporation. Portions created by Netscape are # Copyright (C) 1998 Netscape Communications Corporation. All # Rights Reserved. # # Contributor(s): require 'lloydcgi.pl'; $|=1; $filename= $form{"file"}; $dirname= $form{"dir"}; $branch= $form{"branch"}; $cvsroot= $form{"cvsroot"}; $rev= $form{"rev"}; $prev_rev= $form{"prev_rev"}; $linked_text= $form{"linked_text"}; $linked_text = $filename if $linked_text eq ''; $branch = $rev if $branch eq '' && $rev =~ /[A-Za-z]/; @extra_url = (); @extra_text = (); print "Content-type: text/html\n\n\n"; print "

\n"; &load_extra_data; $i = 0; while( $i < @extra_text ){ $t = $extra_text[$i]; if( $u = $extra_url[$i] ){ print("

$t\n"); } else { print("

$t\n"); } $i++; } if( @extra_text ){ print("

\n"); } $dirname2 = $dirname; $dirname2 =~ s/^ns\///; print " $linked_text

View Blame-Annotated Source "; if ($prev_rev ne '') { print "

View Diff $prev_rev vs. $rev"; } else { print "

" ."View Diff's"; } print "

View Logs "; print "

"; sub load_extra_data { local( $i, $u, $t ); $i = 0; while( ($u = $form{"u${i}"}) ne "" || $form{"t${i}"} ne "" ) { $t = $form{"t${i}"}; if( $t eq "" ) {$t = $u }; $extra_url[$i] = $u; $extra_text[$i] = $t; $i++; } }