[BACK]Return to cvsweb.cgi CVS log [TXT][DIR] Up to [local] / CVSROOT

Diff for /CVSROOT/Attic/cvsweb.cgi between version 1.3 and 1.4

version 1.3, 2000/07/11 08:20:53 version 1.4, 2000/07/27 06:45:15
Line 203  foreach (keys %DEFAULTVALUE)
Line 203  foreach (keys %DEFAULTVALUE)
 $barequery = "";  $barequery = "";
 foreach (@stickyvars) {  foreach (@stickyvars) {
     # construct a query string with the sticky non default parameters set      # construct a query string with the sticky non default parameters set
     if (defined($input{$_}) && $input{$_} ne "" && $input{$_} ne $DEFAULTVALUE{$_}) {      if (defined($input{$_}) && $input{$_} ne "" && defined($DEFAULTVALUE{$_}) && $input{$_} ne $DEFAULTVALUE{$_}) {
         if ($barequery) {          if ($barequery) {
             $barequery = $barequery . "&";              $barequery = $barequery . "&";
         }          }
Line 829  sub htmlify {
Line 829  sub htmlify {
         $string =~ s/>/>/g;          $string =~ s/>/>/g;
   
         # get URL's as link ..          # get URL's as link ..
         $string =~ s§(http|ftp)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*§<A HREF="$1$2$3">$1$2$3</A>§;          $string =~ s§(http|ftp|https)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*§<A HREF="$1$2$3">$1$2$3</A>§;
         # get e-mails as link          # get e-mails as link
         $string =~ s§([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})§<A HREF="mailto:$1">$1</A>§;          $string =~ s§([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})§<A HREF="mailto:$1">$1</A>§;
   
Line 1170  sub doCheckout {
Line 1170  sub doCheckout {
         }          }
     }      }
     else {      else {
         $revopt = "";          $revopt = "-rHEAD";
         if ($use_moddate) {          if ($use_moddate) {
             readLog($fullname);              readLog($fullname);
             $moddate=$date{$symrev{HEAD}};              $moddate=$date{$symrev{HEAD}};
Line 1185  sub doCheckout {
Line 1185  sub doCheckout {
     # Safely for a child process to read from.      # Safely for a child process to read from.
     if (! open($fh, "-|")) { # child      if (! open($fh, "-|")) { # child
       open(STDERR, ">&STDOUT"); # Redirect stderr to stdout        open(STDERR, ">&STDOUT"); # Redirect stderr to stdout
       exec("cvs", "-d$cvsroot", "co", "-p", $revopt, $where);        exec("cvs", "-d", "$cvsroot", "co", "-p", "$revopt", "$where");
     }      }
 #===================================================================  #===================================================================
 #Checking out squid/src/ftp.c  #Checking out squid/src/ftp.c
Line 1198  sub doCheckout {
Line 1198  sub doCheckout {
     while(<$fh>) {      while(<$fh>) {
         last if (/^\*\*\*\*/);          last if (/^\*\*\*\*/);
         $revision = $1 if (/^VERS: (.*)$/);          $revision = $1 if (/^VERS: (.*)$/);
         $filename = $1 if (/^Checking out (.*)$/);          if (/^Checking out (.*)$/) {
         $filename =~ s/^\.\/*//;                  $filename = $1;
                   $filename =~ s/^\.\/*//;
           }
         $cvsheader .= $_;          $cvsheader .= $_;
     }      }
     if ($filename ne $where) {      if ($filename ne $where) {
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>