[BACK]Return to cvsweb.cgi CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 3.5 and 3.10

version 3.5, 2000/07/28 19:38:26 version 3.10, 2000/08/01 12:42:07
Line 1 
Line 1 
 #!/usr/bin/perl -ws  #!/usr/bin/perl5 -ws
 #  #
 # cvsweb - a CGI interface to CVS trees.  # cvsweb - a CGI interface to CVS trees.
 #  #
Line 41 
Line 41 
 # 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.93 2000/07/27 17:42:28 hzeller Exp $
 # $Id$  # $Id$
 #  #
 ###  ###
Line 161  $maycompress =(($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip`
Line 162  $maycompress =(($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip`
 # to hold our state - they will be added (with  # 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  # you construct
 @stickyvars = qw(cvsroot hideattic sortby logsort fonly_with_tag);  @stickyvars = qw(cvsroot hideattic sortby logsort f only_with_tag);
   
 if (-f $config) {  if (-f $config) {
     do $config;      do $config;
Line 854  sub htmlify {
Line 855  sub htmlify {
   
         # get #PR as link ..          # get #PR as link ..
         if ($pr && defined($prcgi)) {          if ($pr && defined($prcgi)) {
             1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1<A HREF="$prcgi?pr=$2">$2</A>`i;              1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1<A HREF="$prcgi$2">$2</A>`i;
             $string =~ s`\b${prcategories}/(\d+)\b`<A HREF="$prcgi?pr=$1">$&</A>`igo;              $string =~ s`\b${prcategories}/(\d+)\b`<A HREF="$prcgi$1">$&</A>`igo;
         }          }
   
         return $string;          return $string;
Line 1472  sub getDirLogs {
Line 1473  sub getDirLogs {
     if ($tag) {      if ($tag) {
         #can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog..          #can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog..
         if (! open($fh, "-|")) {          if (! open($fh, "-|")) {
                 close(STDERR); # rlog may complain; ignore.                  open(STDERR, '>/dev/null'); # rlog may complain; ignore.
                 exec("rlog",@files);                  exec('rlog', @files);
         }          }
     }      }
     else {      else {
         my $kidpid = open($fh, "-|");          my $kidpid = open($fh, "-|");
         if (! $kidpid) {          if (! $kidpid) {
                 open(STDERR, '>/dev/null'); # rlog may complain; ignore.                  open(STDERR, '>/dev/null'); # rlog may complain; ignore.
                 exec("rlog","-r",@files);                  exec('rlog', '-r', @files);
         }          }
     }      }
     $state = "start";      $state = "start";
Line 2329  sub navigateHeader ($$$$$) {
Line 2330  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 $Revision$ -->';      print '<!-- CVSweb $zRevision: 1.93 $  $Revision$ -->';
     print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n";      print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n";
     print  "<BODY BGCOLOR=\"$backcolor\">\n";      print  "<BODY BGCOLOR=\"$backcolor\">\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 2683  sub http_header {
Line 2684  sub http_header {
   
 sub html_header($) {  sub html_header($) {
     my ($title) = @_;      my ($title) = @_;
     my $version = '$Revision$';      my $version = '$zRevision: 1.93 $  $Revision$';
     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"
Legend:
Removed from v.3.5  
changed lines
  Added in v.3.10
CVSweb