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

Diff for /cvsweb/cvsweb.cgi between version 4.16 and 4.17

version 4.16, 2019/11/11 13:15:09 version 4.17, 2019/11/11 13:28:36
Line 75  use vars qw (
Line 75  use vars qw (
   $tablepadding $hr_breakable $showfunc $hr_ignwhite $hr_ignkeysubst    $tablepadding $hr_breakable $showfunc $hr_ignwhite $hr_ignkeysubst
   $inputTextSize $mime_types $allow_annotate $allow_markup $allow_mailtos    $inputTextSize $mime_types $allow_annotate $allow_markup $allow_mailtos
   $allow_log_extra $allow_dir_extra $allow_source_extra    $allow_log_extra $allow_dir_extra $allow_source_extra
   $allow_cvsgraph $cvsgraph_config $use_java_script $edit_option_form    $allow_cvsgraph $cvsgraph_config $edit_option_form
   $show_subdir_lastmod $show_log_in_markup $preformat_in_markup    $show_subdir_lastmod $show_log_in_markup $preformat_in_markup
   $tabstop $state $annTable $sel @ForbiddenFiles    $tabstop $state $annTable $sel @ForbiddenFiles
   $use_descriptions %descriptions @mytz $dwhere    $use_descriptions %descriptions @mytz $dwhere
Line 120  BEGIN
Line 120  BEGIN
   $HTML_META = <<EOM;    $HTML_META = <<EOM;
 <meta name="robots" content="nofollow" />  <meta name="robots" content="nofollow" />
 <meta name="generator" content="CVSweb $VERSION" />  <meta name="generator" content="CVSweb $VERSION" />
 <meta http-equiv="Content-Script-Type" content="text/javascript" />  
 <meta http-equiv="Content-Style-Type" content="text/css" />  <meta http-equiv="Content-Style-Type" content="text/css" />
 EOM  EOM
   
Line 136  EOM
Line 135  EOM
   
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
   
 sub printDiffSelect($);  sub printDiffSelect();
 sub printDiffSelectStickyVars();  sub printDiffSelectStickyVars();
 sub getDiffLinks($$$);  sub getDiffLinks($$$);
 sub printLogSortSelect($);  sub printLogSortSelect();
 sub findLastModifiedSubdirs(@);  sub findLastModifiedSubdirs(@);
 sub htmlify_sub(&$);  sub htmlify_sub(&$);
 sub htmlify($;$);  sub htmlify($;$);
Line 212  $cvstreedefault = $logo = $defaulttitle =
Line 211  $cvstreedefault = $logo = $defaulttitle =
   $address = $long_intro = $short_instruction = $shortLogLen = $show_author =    $address = $long_intro = $short_instruction = $shortLogLen = $show_author =
   $tablepadding = $hr_breakable = $showfunc = $hr_ignwhite =    $tablepadding = $hr_breakable = $showfunc = $hr_ignwhite =
   $hr_ignkeysubst = $inputTextSize = $mime_types = $allow_annotate =    $hr_ignkeysubst = $inputTextSize = $mime_types = $allow_annotate =
   $allow_markup = $allow_compress = $use_java_script = $edit_option_form =    $allow_markup = $allow_compress = $edit_option_form =
   $show_subdir_lastmod = $show_log_in_markup = $preformat_in_markup =    $show_subdir_lastmod = $show_log_in_markup = $preformat_in_markup =
   $tabstop = $use_moddate = $gzip_open = $DEBUG = $allow_cvsgraph =    $tabstop = $use_moddate = $gzip_open = $DEBUG = $allow_cvsgraph =
   $cvsgraph_config = $cvshistory_url = $allow_tar = undef;    $cvsgraph_config = $cvshistory_url = $allow_tar = undef;
Line 1127  EOF
Line 1126  EOF
                 || $input{$var} ne $DEFAULTVALUE{$var})                  || $input{$var} ne $DEFAULTVALUE{$var})
             && $var ne 'only_with_tag');              && $var ne 'only_with_tag');
     }      }
     printf(<<EOF, ($use_java_script ? ' onchange="this.form.submit()"' : ''));      print <<EOF;
 <span class="nowrap">  <span class="nowrap">
 <label for="only_with_tag" accesskey="T">Show only files with tag:  <label for="only_with_tag" accesskey="T">Show only files with tag:
 <select id="only_with_tag" name="only_with_tag"%s>  <select id="only_with_tag" name="only_with_tag">
 <option value="">All tags / default branch</option>  <option value="">All tags / default branch</option>
 EOF  EOF
     foreach my $tag (reverse sort { lc $a cmp lc $b } keys %tags) {      foreach my $tag (reverse sort { lc $a cmp lc $b } keys %tags) {
Line 1228  EOF
Line 1227  EOF
 </td>  </td>
 <td class="opt-value">  <td class="opt-value">
 EOF  EOF
     printLogSortSelect(0);      printLogSortSelect();
     print <<EOF;      print <<EOF;
 </td>  </td>
 <td class="opt-label">  <td class="opt-label">
Line 1247  EOF
Line 1246  EOF
 </td>  </td>
 <td>  <td>
 EOF  EOF
     printDiffSelect(0);      printDiffSelect();
     print <<EOF;      print <<EOF;
 </td>  </td>
 <td colspan="2" class="opt-label">  <td colspan="2" class="opt-label">
Line 1371  gzipclose();
Line 1370  gzipclose();
 ## End MAIN  ## End MAIN
   
   
 sub printDiffSelect($)  sub printDiffSelect()
 {  {
   my ($use_java_script) = @_;  
   
   print '<select id="f" name="f"';    print '<select id="f" name="f"';
   print ' onchange="this.form.submit()"' if $use_java_script;  
   print ">\n";    print ">\n";
   
   for my $difftype (@DIFFTYPES) {    for my $difftype (@DIFFTYPES) {
Line 1400  sub printDiffSelectStickyVars()
Line 1396  sub printDiffSelectStickyVars()
 }  }
   
   
 sub printLogSortSelect($)  sub printLogSortSelect()
 {  {
   my ($use_java_script) = @_;  
   
   print '<select id="logsort" name="logsort"';    print '<select id="logsort" name="logsort"';
   print ' onchange="this.form.submit()"' if $use_java_script;  
   print ">\n";    print ">\n";
   
   for my $sortkey (@LOGSORTKEYS) {    for my $sortkey (@LOGSORTKEYS) {
Line 2346  EOF
Line 2339  EOF
 EOF  EOF
     printDiffSelectStickyVars();      printDiffSelectStickyVars();
     print 'Diff format: ';      print 'Diff format: ';
     printDiffSelect($use_java_script);      printDiffSelect();
     print "<input type=\"submit\" value=\"Show\" />\n</form>\n";      print "<input type=\"submit\" value=\"Show\" />\n</form>\n";
     html_footer();      html_footer();
     gzipclose();      gzipclose();
Line 3264  EOF
Line 3257  EOF
 </td>  </td>
 <td class="opt-value">  <td class="opt-value">
 EOF  EOF
   printDiffSelect($use_java_script);    printDiffSelect();
   print <<EOF;    print <<EOF;
 </td>  </td>
 <td></td>  <td></td>
Line 3273  EOF
Line 3266  EOF
   
   if (@branchnames) {    if (@branchnames) {
   
     printf(<<EOF, $use_java_script ? ' onchange="this.form.submit()"' : '');      print <<EOF;
 <tr>  <tr>
 <td class="opt-label">  <td class="opt-label">
 <label for="only_with_tag" accesskey="B">View only branch:</label>  <label for="only_with_tag" accesskey="B">View only branch:</label>
 </td>  </td>
 <td class="opt-value">  <td class="opt-value">
 <a name="branch">  <a name="branch">
 <select id="only_with_tag" name="only_with_tag"%s>  <select id="only_with_tag" name="only_with_tag">
 EOF  EOF
   
     my @tmp = ();      my @tmp = ();
Line 3313  EOF
Line 3306  EOF
 </td>  </td>
 <td>  <td>
 EOF  EOF
   printLogSortSelect($use_java_script);    printLogSortSelect();
   print <<EOF;    print <<EOF;
 </td>  </td>
 <td><input type="submit" value="Set" accesskey="S" /></td>  <td><input type="submit" value="Set" accesskey="S" /></td>
Line 3539  EOF
Line 3532  EOF
 <label for="f">Diff format:<br />  <label for="f">Diff format:<br />
 EOF  EOF
   printDiffSelectStickyVars();    printDiffSelectStickyVars();
   printDiffSelect($use_java_script);    printDiffSelect();
   printf(<<EOF, $rev1, $rev2);    printf(<<EOF, $rev1, $rev2);
 </label>  </label>
 <input type="submit" value="Show" />  <input type="submit" value="Show" />
Line 3749  sub chooseCVSRoot()
Line 3742  sub chooseCVSRoot()
         if ($input{$k} && $k ne 'cvsroot');          if ($input{$k} && $k ne 'cvsroot');
     }      }
   
     printf(<<EOF, $use_java_script ? ' onchange="this.form.submit()"' : '');      print <<EOF;
 <label for="cvsroot" accesskey="C">CVS Root:  <label for="cvsroot" accesskey="C">CVS Root:
 <select id="cvsroot" name="cvsroot"%s>  <select id="cvsroot" name="cvsroot">
 EOF  EOF
   
     foreach my $k (@CVSROOT) {      foreach my $k (@CVSROOT) {
Legend:
Removed from v.4.16  
changed lines
  Added in v.4.17
CVSweb