$title

#!/usr/bin/perl -w # cvsgraph.cgi -- a graph of all branchs, tags, etc. # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla 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/MPL/ # # 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 Bonsai CVS tool. # # The Initial Developer of the Original Code is Jacob Steenhagen # # Contributor(s): Jacob Steenhagen use strict; use vars qw{ $revision_ctime $revision_author }; require 'CGI.pl'; # This cgi doesn't actually generate a graph. It relies on the cvsgraph # program found at http://www.akhphd.au.dk/~bertho/cvsgraph/ # File locations can be set at in the editparams.cgi page. sub print_top { my ($title) = @_; $title ||= "Error"; print "Content-type: text/html\n\n"; print "\n"; print "\n\n"; print " $title\n"; print "\n\n"; } sub print_bottom { print "\n\n"; } sub print_usage { &print_top; print "This script requires a filename.\n"; &print_bottom; } ### Live code below unless (Param('cvsgraph')) { &print_top; print "CVS Graph is not currently configured for this installation\n"; &print_bottom; exit; } my @src_roots = getRepositoryList(); # Handle the "file" argument # my $filename = ''; $filename = $::FORM{file} if defined $::FORM{file}; if ($filename eq '') { &print_usage; exit; } my ($file_head, $file_tail) = $filename =~ m@(.*/)?(.+)@; my $url_filename = url_quote($filename); # Handle the "root" argument # my $root = $::FORM{root}; if (defined $root and $root ne '') { $root =~ s|/$||; validateRepository($root); if (-d $root) { unshift(@src_roots, $root); } else { &print_top; print "Error: Root, $root, is not a directory.

\n"; &print_bottom; exit; } } # Find the rcs file # my $rcs_filename; my $found_rcs_file = 0; foreach (@src_roots) { $root = $_; $rcs_filename = "$root/$filename,v"; $rcs_filename = Fix_BonsaiLink($rcs_filename); $found_rcs_file = 1, last if -r $rcs_filename; $rcs_filename = "$root/${file_head}Attic/$file_tail,v"; $found_rcs_file = 1, last if -r $rcs_filename; } unless ($found_rcs_file) { my $escaped_filename = html_quote($filename); my $shell_filename = shell_escape($filename); &print_top; print STDERR "cvsgraph.cgi: Rcs file, $shell_filename, does not exist.\n"; print "Invalid filename: $escaped_filename.\n"; &print_bottom; exit; } &ChrootFilename($root, $rcs_filename); # Hack these variables up the way that the cvsgraph executable wants them my $full_rcs_filename = $rcs_filename; $rcs_filename =~ s:^$root/::; my $conf = $0; $conf =~ s:[^/\\]+$::; $conf .= "data/cvsgraph.conf"; my @cvsgraph_cmd = (Param("cvsgraph"), "-c", $conf, "-r", $root); if (defined $::FORM{'image'}) { print "Content-type: image/png\n\n"; } else { push(@cvsgraph_cmd, "-i", "-M", "revmap"); # Include args to make map &print_top("CVS Graph for " . $file_tail); print <<"--endquote--" if $::use_dom; --endquote-- print <<"--endquote--" unless $::use_dom; --endquote-- } system(@cvsgraph_cmd, $rcs_filename); if (!defined $::FORM{'image'}) { print qq{ $filename

\n}; if ($::use_dom) { require 'cvsblame.pl'; &parse_cvs_file($full_rcs_filename); foreach my $rev (keys %::revision_log) { my $author = EmailFromUsername($::revision_author{$rev}); my $rev_log = html_quote($::revision_log{$rev}); $rev_log =~ s/\n/
\n/g; print qq{\n}; } } &print_bottom; }