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

Diff for /cvsweb/cvsweb.cgi between version 3.32 and 3.33

version 3.32, 2000/10/07 07:35:08 version 3.33, 2000/10/07 07:44:12
Line 936  sub htmlify($;$) {
Line 936  sub htmlify($;$) {
         if ($extra) {          if ($extra) {
             # get PR #'s as link ..              # get PR #'s as link ..
             if (defined($prcgi)) {              if (defined($prcgi)) {
                 1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1 . &link($2, sprintf($prcgi, $2))`ie; # `                  1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1 . &link($2, sprintf($prcgi, $2))`ie; # `;
                 $string =~ s`\b${prcategories}/(\d+)\b`&link($&, sprintf($prcgi, $1))`igeo;     # `                  $string =~ s`\b${prcategories}/(\d+)\b`&link($&, sprintf($prcgi, $1))`igeo;     # `;
             }              }
   
             # get manpage specs as link ..              # get manpage specs as link ..
             if (defined($mancgi)) {              if (defined($mancgi)) {
                 $string =~ s`\b([a-zA-Z]\w+)\(([0-9n])\)\B`&link($&, sprintf($mancgi, $2, $1))`ge; # `                  $string =~ s`\b([a-zA-Z]\w+)(?:\(([0-9n])\)\B|\.([0-9n])\b)`&link($&, sprintf($mancgi, $2 ne '' ? $2 : $3, $1))`ge; # `x;
             }              }
         }          }
   
Line 982  sub spacedHtmlText($;$) {
Line 982  sub spacedHtmlText($;$) {
 sub link($$) {  sub link($$) {
         my($name, $where) = @_;          my($name, $where) = @_;
   
         return "<A HREF=\"$where\">$name</A>\n";          return "<A HREF=\"$where\">$name</A>";
 }  }
   
 sub revcmp($$) {  sub revcmp($$) {
Legend:
Removed from v.3.32  
changed lines
  Added in v.3.33
CVSweb