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

Diff for /cvsweb/cvsweb.cgi between version 3.6 and 3.9

version 3.6, 2000/07/28 21:38:45 version 3.9, 2000/07/29 12:41:25
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 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.6  
changed lines
  Added in v.3.9

CVSweb