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

Diff for /cvsweb/cvsweb.cgi between version 1.35 and 1.40

version 1.35, 1999/09/17 18:56:44 version 1.40, 2000/04/19 17:07:09
Line 28 
Line 28 
 # 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.
 #  #
 # $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.34 1999/09/08 13:04:09 peter Exp $  # $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.39 2000/02/19 13:58:12 wosch Exp $
 #  #
   
   
 #HTTP_USER_AGENT: Mozilla/1.1N (X11; I; SunOS 4.1.3_U1 sun4m) via proxy gateway CERN-HTTPD/3.0 libwww/2.17  #HTTP_USER_AGENT: Mozilla/1.1N (X11; I; SunOS 4.1.3_U1 sun4m) via proxy gateway CERN-HTTPD/3.0 libwww/2.17
 #SERVER_NAME: www.freebsd.org  #SERVER_NAME: www.FreeBSD.org
 #QUERY_STRING: baz  #QUERY_STRING: baz
 #SCRIPT_FILENAME: /usr/local/www/cgi-bin/env.pl  #SCRIPT_FILENAME: /usr/local/www/cgi-bin/env.pl
 #SERVER_PORT: 80  #SERVER_PORT: 80
Line 50 
Line 50 
 #SCRIPT_NAME: /cgi-bin/env.pl  #SCRIPT_NAME: /cgi-bin/env.pl
 #SERVER_SOFTWARE: Apache/1.0.0  #SERVER_SOFTWARE: Apache/1.0.0
 #REMOTE_HOST: beta.xerox.com  #REMOTE_HOST: beta.xerox.com
 #SERVER_ADMIN: webmaster@freebsd.org  #SERVER_ADMIN: webmaster@FreeBSD.org
 #  #
 require 'timelocal.pl';  require 'timelocal.pl';
 require 'ctime.pl';  require 'ctime.pl';
Line 70  require 'cgi-style.pl';
Line 70  require 'cgi-style.pl';
             );              );
   
 %mirrors = (  %mirrors = (
             'Germany', 'http://www.de.freebsd.org/cgi/cvsweb.cgi',              'Germany', 'http://www.de.FreeBSD.org/cgi/cvsweb.cgi',
             'Spain', 'http://www.es.freebsd.org/cgi/cvsweb.cgi',              'Russian', 'http://www.FreeBSD.org.ua/cgi/cvsweb.cgi?cvsroot=freebsd',
             'California', 'http://www.freebsd.org/cgi/cvsweb.cgi',              'Spain', 'http://www.es.FreeBSD.org/cgi/cvsweb.cgi',
             'Japan', 'http://www.jp.freebsd.org/cgi/cvsweb.cgi',              'USA, California', 'http://www.FreeBSD.org/cgi/cvsweb.cgi',
               'Japan', 'http://www.jp.FreeBSD.org/cgi/cvsweb.cgi',
            );             );
   
 $cvstreedefault = 'freebsd';  $cvstreedefault = 'freebsd';
Line 94  a form at the bottom of the page that allows you to
Line 95  a form at the bottom of the page that allows you to
 display diffs between arbitrary revisions.  display diffs between arbitrary revisions.
 <p>  <p>
 If you would like to use this CGI script on your own web server and  If you would like to use this CGI script on your own web server and
 CVS tree, see <A HREF=\"http://www.freebsd.org/~fenner/cvsweb/\">  CVS tree, see <A HREF=\"http://www.FreeBSD.org/~fenner/cvsweb/\">
 the CVSWeb distribution site</A> or the <a  the CVSWeb distribution site</A> or the <a
 href=\"http://www.freebsd.org/cgi/cvsweb.cgi/www/data/cgi/cvsweb.cgi\">current</a> FreeBSD version.  href=\"http://www.FreeBSD.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi\">current</a> FreeBSD version.
 <p>  <p>
 Please send any suggestions, comments, etc. to  Please send any suggestions, comments, etc. to
 <A HREF=\"mailto:fenner\@freebsd.org\">Bill Fenner &lt;fenner\@freebsd.org&gt;</A>  <A HREF=\"mailto:fenner\@FreeBSD.org\">Bill Fenner &lt;fenner\@FreeBSD.org&gt;</A>
 ";  ";
 $shortinstr = "  $shortinstr = "
 Click on a directory to enter that directory. Click on a file to display  Click on a directory to enter that directory. Click on a file to display
Line 145  if (!-d $cvsroot) {
Line 146  if (!-d $cvsroot) {
         &fatal("500 Internal Error",'$CVSROOT not found!<P>The server on which the CVS tree lives is probably down.  Please try again in a few minutes.');          &fatal("500 Internal Error",'$CVSROOT not found!<P>The server on which the CVS tree lives is probably down.  Please try again in a few minutes.');
 }  }
   
 # Set up for FreeBSD repo options.  
 $ENV{'RCSLOCALID'} = 'FreeBSD=CVSHeader';  
 $ENV{'RCSINCEXC'}  = 'iFreeBSD';  
 $ENV{'CVSROOT'}    = $cvsroot;  
   
 {  {
     local(@foo, $i);      local(@foo, $i);
Line 158  $ENV{'CVSROOT'}    = $cvsroot;
Line 155  $ENV{'CVSROOT'}    = $cvsroot;
             push(@foo, $_);              push(@foo, $_);
         }          }
     }      }
     if ($#foo > 1) {      if ($#foo >= 1) {
         $intro .= "<p>\nThis script supports the following CVS trees:\n";          $intro .= "<p>\nThis script supports the following CVS trees:\n";
         for($i = 0; $i <= $#foo; $i++) {          for($i = 0; $i <= $#foo; $i++) {
             $intro .= qq{<a href="$scriptname?cvsroot=$foo[$i]">} .              $intro .= qq{<a href="$scriptname?cvsroot=$foo[$i]">} .
Line 333  sub htmlify {
Line 330  sub htmlify {
         $string =~ s/>/&gt;/g;          $string =~ s/>/&gt;/g;
   
         if ($pr) {          if ($pr) {
                 $string =~ s!\b((pr[:#]?\s*#?)|((bin|conf|docs|gnu|i386|kern|misc|ports)\/))(\d+)\b!<A HREF=http://www.freebsd.org/cgi/query-pr.cgi?pr=\5>$&</A>!ig;                  $string =~ s!\b((pr[:#]?\s*#?)|((bin|conf|docs|gnu|i386|kern|misc|ports)\/))(\d+)\b!<A HREF=http://www.FreeBSD.org/cgi/query-pr.cgi?pr=\5>$&</A>!ig;
         }          }
   
         $string;          $string;
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.40
CVSweb