=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 3.4 retrieving revision 3.16 diff -u -p -r3.4 -r3.16 --- cvsweb/cvsweb.cgi 2000/07/28 17:24:35 3.4 +++ cvsweb/cvsweb.cgi 2000/09/03 17:33:22 3.16 @@ -1,18 +1,18 @@ -#!/usr/bin/perl -ws +#!/usr/bin/perl5 -ws # # cvsweb - a CGI interface to CVS trees. # -# Written in their spare time by +# Written in their spare time by # Bill Fenner (original work) # extended by Henner Zeller , -# Henrik Nordstrom +# Henrik Nordstrom # Ken Coar # Dick Balaska # Akinori MUSHA # # Based on: # * Bill Fenners cvsweb.cgi revision 1.28 available from: -# http://www.freebsd.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi +# http://www.FreeBSD.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi # # Copyright (c) 1996-1998 Bill Fenner # (c) 1998-1999 Henner Zeller @@ -41,7 +41,8 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $Id: cvsweb.cgi,v 3.4 2000/07/28 17:24:35 knu Exp $ +# $zId: cvsweb.cgi,v 1.94 2000/08/24 06:41:22 hnordstrom Exp $ +# $Id: cvsweb.cgi,v 3.16 2000/09/03 17:33:22 knu Exp $ # ### @@ -57,7 +58,7 @@ use vars qw ( $checkoutMagic $doCheckout $scriptname $scriptwhere $where $pathinfo $Browser $nofilelinks $maycompress @stickyvars %funcline_regexp $is_mod_perl - $is_lynx $is_msie $is_mozilla3 + $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased %input $query $barequery $sortby $bydate $byrev $byauthor $bylog $byfile $hr_default $logsort $cvstree $cvsroot $mimetype $defaultTextPlain $defaultViewable $allow_compress @@ -78,11 +79,58 @@ use vars qw ( $use_moddate ); +sub printDiffSelect($); +sub findLastModifiedSubdirs(@); +sub htmlify($;$); +sub spacedHtmlText($); +sub link($$); +sub revcmp($$); +sub fatal($$); +sub redirect($); +sub safeglob($); +sub getMimeTypeFromSuffix($); +sub doAnnotate($$); +sub doCheckout($$); +sub cvswebMarkup($$$); +sub viewable($); +sub doDiff($$$$$$); +sub getDirLogs($$@); +sub readLog($;$); +sub printLog($;$); +sub doLog($); +sub flush_diff_rows($$$$); +sub human_readable_diff($); +sub navigateHeader($$$$$); +sub plural_write($$); +sub readableTime($$); +sub clickablePath($$); +sub chooseCVSRoot(); +sub chooseMirror(); +sub fileSortCmp(); +sub download_url($$;$); +sub download_link($$$;$); +sub toggleQuery($$); +sub urlencode($); +sub http_header(;$); +sub html_header($); +sub html_footer(); +sub link_tags($); +sub forbidden_module($); + ##### Start of Configuration Area ######## -# == EDIT this == +use Cwd; + +# == EDIT this == # User configuration is stored in -$config = defined($ENV{CVSWEB_CONFIG}) ? $ENV{CVSWEB_CONFIG} : '/usr/local/etc/cvsweb.conf'; +$config = undef; +for ($ENV{CVSWEB_CONFIG}, +# '/home/knu/etc/cvsweb.conf', + '/usr/local/etc/cvsweb.conf', + getcwd . '/cvsweb.conf') { + $config = $_ if defined($_) && -r $_; +} + # == Configuration defaults == # Defaults for configuration variables that shouldn't need # to be configured.. @@ -104,7 +152,7 @@ $difffontsize = $inputTextSize = $mime_types = $allow_ $allow_markup = $use_java_script = $open_extern_window = $extern_window_width = $extern_window_height = $edit_option_form = $checkout_magic = $show_subdir_lastmod = $show_log_in_markup = $v = -$navigationHeaderColor = $tableBorderColor = $markupLogColor = +$navigationHeaderColor = $tableBorderColor = $markupLogColor = $tabstop = $use_moddate = $moddate = undef; ##### End of configuration variables ##### @@ -132,13 +180,16 @@ $is_mod_perl = defined($ENV{MOD_PERL}); # in lynx, it it very annoying to have two links # per file, so disable the link at the icon # in this case: -$Browser = $ENV{HTTP_USER_AGENT} || ''; -$is_lynx = ($Browser =~ m`^Lynx/`); +$Browser = $ENV{HTTP_USER_AGENT}; +$is_lynx = ($Browser =~ m`^Lynx/`i); +$is_w3m = ($Browser =~ m`^w3m/`i); $is_msie = ($Browser =~ m`MSIE`); -$is_mozilla3 = ($Browser =~ m`^Mozilla/[3456789]`); +$is_mozilla3 = ($Browser =~ m`^Mozilla/[3-9]`); -$nofilelinks = $is_lynx; +$is_textbased = ($is_lynx || $is_w3m); +$nofilelinks = $is_textbased; + # newer browsers accept gzip content encoding # and state this in a header # (netscape did always but didn't state it) @@ -149,16 +200,16 @@ $nofilelinks = $is_lynx; # Turn off gzip if running under mod_perl. piping does # not work as expected inside the server. One can probably # achieve the same result using Apache::GZIPFilter. -$maycompress =(($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip` - || $is_mozilla3) - && !$is_msie - && !$is_mod_perl); +$maycompress = (($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip` + || $is_mozilla3) + && !$is_msie + && !$is_mod_perl); # put here the variables we need in order # to hold our state - they will be added (with -# their current value) to any link/query string +# their current value) to any link/query string # you construct -@stickyvars = qw(cvsroot hideattic sortby logsort fonly_with_tag); +@stickyvars = qw(cvsroot hideattic sortby logsort f only_with_tag); if (-f $config) { do $config; @@ -174,7 +225,7 @@ else { undef %input; $query = $ENV{QUERY_STRING}; -if ($query ne '') { +if (defined($query) && $query ne '') { foreach (split(/&/, $query)) { s/%(..)/sprintf("%c", hex($1))/ge; # unquote %-quoted if (/(\S+)=(.*)/) { @@ -186,7 +237,7 @@ if ($query ne '') { } } -# For backwards compability, set only_with_tag to only_on_branch if set. +# For backwards compability, set only_with_tag to only_on_branch if set. $input{only_with_tag} = $input{only_on_branch} if (defined($input{only_on_branch})); @@ -213,11 +264,11 @@ foreach (keys %DEFAULTVALUE) } } } - + $barequery = ""; foreach (@stickyvars) { # construct a query string with the sticky non default parameters set - if (defined($input{$_}) && $input{$_} ne '' && + if (defined($input{$_}) && $input{$_} ne '' && !(defined($DEFAULTVALUE{$_}) && $input{$_} eq $DEFAULTVALUE{$_})) { if ($barequery) { $barequery = $barequery . "&"; @@ -305,7 +356,7 @@ $defaultViewable = $allow_markup && viewable($mimetype # search for GZIP if compression allowed # We've to find out if the GZIP-binary exists .. otherwise # ge get an Internal Server Error if we try to pipe the -# output through the nonexistent gzip .. +# output through the nonexistent gzip .. # any more elegant ways to prevent this are welcome! if ($allow_compress && $maycompress) { foreach (split(/:/, $ENV{PATH})) { @@ -386,13 +437,13 @@ elsif (-d $fullname) { $input{only_with_tag}; } - + print "
\n"; # Using in this manner violates the HTML2.0 spec but # provides the results that I want in most browsers. Another # case of layout spooging up HTML. - + my $infocols = 0; if ($dirtable) { if (defined($tableBorderColor)) { @@ -401,8 +452,8 @@ elsif (-d $fullname) { } print "\n"; $infocols++; - print ""; $infocols++; - print ""; if ($show_author) { $infocols++; - print ""; } $infocols++; - print "
"; print "" if (!$byfile); @@ -413,8 +464,8 @@ elsif (-d $fullname) { # with revision information: if (scalar(%fileinfo)) { $infocols++; - print ""; print "" if (!$byrev); @@ -422,8 +473,8 @@ elsif (-d $fullname) { print "" if (!$byrev); print ""; print "" if (!$bydate); @@ -432,8 +483,8 @@ elsif (-d $fullname) { print ""; print "" if (!$byauthor); @@ -442,8 +493,8 @@ elsif (-d $fullname) { print ""; print "" if (!$bylog); print "Last log entry"; @@ -461,7 +512,7 @@ elsif (-d $fullname) { print "\n"; } my $dirrow = 0; - + my $i; lookingforattic: for ($i = 0; $i <= $#dir; $i++) { @@ -476,7 +527,7 @@ elsif (-d $fullname) { closedir($dh); } - my $hideAtticToggleLink = "[Hide]" if (!$input{'hideattic'}); @@ -538,11 +589,11 @@ elsif (-d $fullname) { } print " ", &link($_ . "/", $url), $attic; if ($_ eq "Attic") { - print "  [Don't hide]"; } - } + } # Show last change in dir if ($filename) { print "  " if ($dirtable); @@ -611,7 +662,7 @@ elsif (-d $fullname) { print " ", &link($_, $url), $attic; print " " if ($dirtable); download_link($fileurl, - $rev, $rev, + $rev, $rev, $defaultViewable ? "text/x-cvsweb-markup" : undef); print " " if ($dirtable); if ($date) { @@ -639,15 +690,15 @@ elsif (-d $fullname) { print "
"; } print "". ($dirtable == 1) ? "" : "" . "\n"; - + if ($filesexists && !$filesfound) { print "

NOTE: There are $filesexists files, but none matches the current tag ($input{only_with_tag})\n"; } if ($input{only_with_tag} && (!%tags || !$tags{$input{only_with_tag}})) { %tags = %alltags } - if (scalar %tags - || $input{only_with_tag} + if (scalar %tags + || $input{only_with_tag} || $edit_option_form || defined($input{"options"})) { print "

"; @@ -668,8 +719,8 @@ elsif (-d $fullname) { print ">"; print "