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

Diff for /cvsweb/cvsweb.cgi between version 1.1.1.22 and 1.1.1.23

version 1.1.1.22, 2001/01/14 08:49:27 version 1.1.1.23, 2001/03/22 19:52:43
Line 42 
Line 42 
 # 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.105 2000/11/26 01:51:04 jumager Exp $  # $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $
 # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.64 2001/01/13 07:48:09 knu Exp $  # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
 #  #
 ###  ###
   
Line 139  sub forbidden_module($);
Line 139  sub forbidden_module($);
 ##### Start of Configuration Area ########  ##### Start of Configuration Area ########
 delete $ENV{PATH};  delete $ENV{PATH};
   
 $cvsweb_revision = join('.', '1.105', (split(/ /,  $cvsweb_revision = '1.106' . '.' . (split(/ /,
  q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.64 2001/01/13 07:48:09 knu Exp $   q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
 ))[2]);  ))[2];
   
 use File::Basename;  use File::Basename;
   
Line 309  if (-f $config) {
Line 309  if (-f $config) {
 } else {  } else {
    &fatal("500 Internal Error",     &fatal("500 Internal Error",
           'Configuration not found.  Set the variable <code>$config</code> '            'Configuration not found.  Set the variable <code>$config</code> '
           . 'in cvsweb.cgi, or the environment variable '            . 'in cvsweb.cgi to your <b>cvsweb.conf</b> configuration file first.');
           . '<code>CVSWEB_CONFIG</code>, to your <b>cvsweb.conf</b> '  
           . 'configuration file first.');  
 }  }
   
 undef %input;  undef %input;
Line 1228  sub spacedHtmlText($;$) {
Line 1226  sub spacedHtmlText($;$) {
 sub link($$) {  sub link($$) {
         my($name, $url) = @_;          my($name, $url) = @_;
   
           $url =~ s/:/sprintf("%%%02x", ord($&))/eg;
   
         sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;          sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;
 }  }
   
Line 1305  sub safeglob($) {
Line 1305  sub safeglob($) {
                                 push(@results, "$dirname/" .$_);                                  push(@results, "$dirname/" .$_);
                         }                          }
                 }                  }
                   closedir($dh);
         }          }
   
         @results;          @results;
Line 1413  sub doAnnotate($$) {
Line 1414  sub doAnnotate($$) {
     # the public domain.      # the public domain.
     # we could abandon the use of rlog, rcsdiff and co using      # we could abandon the use of rlog, rcsdiff and co using
     # the cvsserver in a similiar way one day (..after rewrite)      # the cvsserver in a similiar way one day (..after rewrite)
     $pid = open2($reader, $writer, "cvs", @cvs_options, "server")      $pid = open2($reader, $writer, $CMD{cvs}, @cvs_options, "server")
       || fatal ("500 Internal Error", "Fatal Error - unable to open cvs for annotation");        || fatal ("500 Internal Error", "Fatal Error - unable to open cvs for annotation");
   
     # OK, first send the request to the server.  A simplified example is:      # OK, first send the request to the server.  A simplified example is:
Line 2640  sub human_readable_diff($){
Line 2641  sub human_readable_diff($){
   print "<br>Tag: $sym2\n" if ($sym1);    print "<br>Tag: $sym2\n" if ($sym1);
   print "</th>\n";    print "</th>\n";
   
   my $fs = "<font face=\"$difffontface\" size=\"$difffontsize\">";    my $fs = "<font face=\"$difffontface\" size=\"$difffontsize\"><tt>";
   my $fe = "</font>";    my $fe = "</tt></font>";
   
   my $leftRow = 0;    my $leftRow = 0;
   my $rightRow = 0;    my $rightRow = 0;
Line 2980  sub download_url($$;$) {
Line 2981  sub download_url($$;$) {
     }      }
     $url .= "?rev=$revision";      $url .= "?rev=$revision";
     $url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));      $url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));
   
       $url =~ s/:/sprintf("%%%02x", ord($&))/eg;
   
     $url;      $url;
 }  }
Legend:
Removed from v.1.1.1.22  
changed lines
  Added in v.1.1.1.23
CVSweb