Thread: [Codestriker-commits] CVS update: codestriker/bin highlight.css log_accum.pl.html log_accum.pl.xml

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

  User: sits    
  Date: 08/06/23 15:38:47

  Removed:     bin      highlight.css log_accum.pl.html log_accum.pl.xml
                        test.pl zot.html
  Log:
  Removing files which should not have been committed.
  
  
  
  Index: highlight.css
  ===================================================================
  RCS file: highlight.css
  diff -N highlight.css
  --- highlight.css	23 Jun 2008 10:12:15 -0000	1.1
  +++ /dev/null	1 Jan 1970 00:00:00 -0000
  @@ -1,21 +0,0 @@
  -/* Style definition file generated by highlight 2.6.10, http://www.andre-simon.de/ */
  -
  -/* Highlighting theme definition: */
  -
  -body.hl	{ background-color:#ffffff; }
  -pre.hl	{ color:#000000; background-color:#ffffff; font-size:10pt; font-family:'Courier New';}
  -.hl.num { color:#2928ff; }
  -.hl.esc { color:#ff00ff; }
  -.hl.str { color:#ff0000; }
  -.hl.dstr { color:#818100; }
  -.hl.slc { color:#838183; font-style:italic; }
  -.hl.com { color:#838183; font-style:italic; }
  -.hl.dir { color:#008200; }
  -.hl.sym { color:#000000; }
  -.hl.line { color:#555555; }
  -.hl.mark	{ background-color:#ffffbb;}
  -.hl.kwa { color:#000000; font-weight:bold; }
  -.hl.kwb { color:#830000; }
  -.hl.kwc { color:#000000; font-weight:bold; }
  -.hl.kwd { color:#010181; }
  -
  
  
  
  
  
  Index: log_accum.pl.html
  ===================================================================
  RCS file: log_accum.pl.html
  diff -N log_accum.pl.html
  --- log_accum.pl.html	23 Jun 2008 10:12:15 -0000	1.1
  +++ /dev/null	1 Jan 1970 00:00:00 -0000
  @@ -1,615 +0,0 @@
  -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  -<html>
  -<head>
  -<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
  -<title>log_accum.pl</title>
  -<link rel="stylesheet" type="text/css" href="highlight.css">
  -</head>
  -<body class="hl">
  -<pre class="hl"><span class="hl slc">#!/usr/bin/perl</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Perl filter to handle the log messages from the checkin of files in</span>
  -<span class="hl slc"># a directory.  This script will group the lists of files by log</span>
  -<span class="hl slc"># message, and mail a single consolidated log message at the end of</span>
  -<span class="hl slc"># the commit.</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># This file assumes a pre-commit checking program that leaves the</span>
  -<span class="hl slc"># names of the first and last commit directories in a temporary file.</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Contributed by David Hampton &lt;hampton&#64;cisco.com&gt;</span>
  -<span class="hl slc"># Roy Fielding removed useless code and added log/mail of new files</span>
  -<span class="hl slc"># Ken Coar added special processing (i.e., no diffs) for binary files</span>
  -<span class="hl slc"># Jon Stevens added a few new features and cleaned up some of the</span>
  -<span class="hl slc"># output</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># David Sitsky modified this slightly so that it also creates a new</span>
  -<span class="hl slc"># codestriker topic automatically.</span>
  -
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Setup instructions</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Create a directory $CVSROOT/commitlogs and allow</span>
  -<span class="hl slc"># the cvs process to write to it.</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Edit the options below.</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Configurable options</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Where do you want the RCS ID and delta info?</span>
  -<span class="hl slc"># 0 = none,</span>
  -<span class="hl slc"># 1 = in mail only,</span>
  -<span class="hl slc"># 2 = rcsids in both mail and logs.</span>
  -<span class="hl slc">#</span>
  -<span class="hl kwb">$rcsidinfo</span> <span class="hl sym">=</span> <span class="hl num">2</span><span class="hl sym">;</span>
  -
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Constants</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc">############################################################</span>
  -<span class="hl kwb">$STATE_NONE</span>    <span class="hl sym">=</span> <span class="hl num">0</span><span class="hl sym">;</span>
  -<span class="hl kwb">$STATE_CHANGED</span> <span class="hl sym">=</span> <span class="hl num">1</span><span class="hl sym">;</span>
  -<span class="hl kwb">$STATE_ADDED</span>   <span class="hl sym">=</span> <span class="hl num">2</span><span class="hl sym">;</span>
  -<span class="hl kwb">$STATE_REMOVED</span> <span class="hl sym">=</span> <span class="hl num">3</span><span class="hl sym">;</span>
  -<span class="hl kwb">$STATE_LOG</span>     <span class="hl sym">=</span> <span class="hl num">4</span><span class="hl sym">;</span>
  -
  -<span class="hl kwb">$TMPDIR</span>        <span class="hl sym">=</span> <span class="hl kwb">$ENV</span><span class="hl sym">{</span><span class="hl str">'TMPDIR'</span><span class="hl sym">} ||</span> <span class="hl str">'/tmp'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$FILE_PREFIX</span>   <span class="hl sym">=</span> <span class="hl str">'#cvs.'</span><span class="hl sym">;</span>
  -
  -<span class="hl kwb">$LAST_FILE</span>     <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}lastdir&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$CHANGED_FILE</span>  <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.changed&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$ADDED_FILE</span>    <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.added&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$REMOVED_FILE</span>  <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.removed&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$LOG_FILE</span>      <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.log&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$BRANCH_FILE</span>   <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.branch&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$SUMMARY_FILE</span>  <span class="hl sym">=</span> <span class="hl str">&quot;$TMPDIR/${FILE_PREFIX}files.summary&quot;</span><span class="hl sym">;</span>
  -
  -<span class="hl kwb">$CVSROOT</span>       <span class="hl sym">=</span> <span class="hl kwb">$ENV</span><span class="hl sym">{</span><span class="hl str">'CVSROOT'</span><span class="hl sym">};</span>
  -
  -<span class="hl kwb">$CVSBIN</span>        <span class="hl sym">=</span> <span class="hl str">'/usr/bin'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$PATH</span>          <span class="hl sym">=</span> <span class="hl str">&quot;$PATH:/bin:/usr/bin&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$MAIL_CMD</span>      <span class="hl sym">=</span> <span class="hl str">&quot;| /usr/lib/sendmail -i -t&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$MAIL_TO</span>       <span class="hl sym">=</span> <span class="hl str">'engineering&#64;localhost.localdomain'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$MAIL_FROM</span>     <span class="hl sym">=</span> <span class="hl str">&quot;$ENV{'USER'}\&#64;localhost.localdomain&quot;</span><span class="hl sym">;</span>
  -<span class="hl kwb">$SUBJECT_PRE</span>   <span class="hl sym">=</span> <span class="hl str">'CVS update:'</span><span class="hl sym">;</span>
  -
  -<span class="hl slc"># Codestriker-specific imports.</span>
  -<span class="hl kwa">use</span> lib <span class="hl str">'/var/www/codestriker-1.8.4/bin'</span><span class="hl sym">;</span>
  -<span class="hl kwa">use</span> <span class="hl kwd">CodestrikerClient</span><span class="hl sym">;</span>
  -
  -<span class="hl slc"># Codestriker specific parameters for topic creation.</span>
  -<span class="hl kwb">$CODESTRIKER_URL</span> <span class="hl sym">=</span> <span class="hl str">'http://localhost/codestriker/codestriker.pl'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$CODESTRIKER_PROJECT</span> <span class="hl sym">=</span> <span class="hl str">'Project CVS'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$CODESTRIKER_REPOSITORY</span> <span class="hl sym">=</span> <span class="hl str">'/var/lib/cvs'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$CODESTRIKER_REVIEWERS</span> <span class="hl sym">=</span> <span class="hl str">'engineering&#64;localhost.localdomain'</span><span class="hl sym">;</span>
  -<span class="hl kwb">$CODESTRIKER_CC</span> <span class="hl sym">=</span> <span class="hl str">''</span><span class="hl sym">;</span>
  -
  -<span class="hl slc">############################################################</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc"># Subroutines</span>
  -<span class="hl slc">#</span>
  -<span class="hl slc">############################################################</span>
  -
  -<span class="hl kwa">sub</span> format_names <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$dir</span><span class="hl sym">,</span> <span class="hl kwb">&#64;files</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;lines</span><span class="hl sym">);</span>
  -
  -    <span class="hl kwb">$lines</span><span class="hl sym">[</span><span class="hl num">0</span><span class="hl sym">] =</span> <span class="hl kwd">sprintf</span><span class="hl sym">(</span><span class="hl str">&quot; %-08s&quot;</span><span class="hl sym">,</span> <span class="hl kwb">$dir</span><span class="hl sym">);</span>
  -    <span class="hl kwa">foreach</span> <span class="hl kwb">$file</span> <span class="hl sym">(</span><span class="hl kwb">&#64;files</span><span class="hl sym">) {</span>
  -        <span class="hl kwa">if</span> <span class="hl sym">(</span><span class="hl kwd">length</span><span class="hl sym">(</span><span class="hl kwb">$lines</span><span class="hl sym">[</span><span class="hl kwb">$#lines</span><span class="hl sym">]) +</span> <span class="hl kwd">length</span><span class="hl sym">(</span><span class="hl kwb">$file</span><span class="hl sym">) &gt;</span> <span class="hl num">60</span><span class="hl sym">) {</span>
  -            <span class="hl kwb">$lines</span><span class="hl sym">[++</span><span class="hl kwb">$#lines</span><span class="hl sym">] =</span> <span class="hl kwd">sprintf</span><span class="hl sym">(</span><span class="hl str">&quot; %8s&quot;</span><span class="hl sym">,</span> <span class="hl str">&quot; &quot;</span><span class="hl sym">);</span>
  -        <span class="hl sym">}</span>
  -        <span class="hl kwb">$lines</span><span class="hl sym">[</span><span class="hl kwb">$#lines</span><span class="hl sym">] .=</span> <span class="hl str">&quot; &quot;</span><span class="hl sym">.</span><span class="hl kwb">$file</span><span class="hl sym">;</span>
  -    <span class="hl sym">}</span>
  -    <span class="hl kwb">&#64;lines</span><span class="hl sym">;</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> cleanup_tmpfiles <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;files</span><span class="hl sym">);</span>
  -
  -    <span class="hl kwd">opendir</span><span class="hl sym">(</span>DIR<span class="hl sym">,</span> <span class="hl kwb">$TMPDIR</span><span class="hl sym">);</span>
  -    <span class="hl kwd">push</span><span class="hl sym">(</span><span class="hl kwb">&#64;files</span><span class="hl sym">,</span> <span class="hl kwd">grep</span><span class="hl sym">(/^${</span>FILE_PREFIX<span class="hl sym">}.*</span>\<span class="hl sym">.${</span>id<span class="hl sym">}$/,</span> <span class="hl kwd">readdir</span><span class="hl sym">(</span>DIR<span class="hl sym">)));</span>
  -    <span class="hl kwd">closedir</span><span class="hl sym">(</span>DIR<span class="hl sym">);</span>
  -    <span class="hl kwa">foreach</span> <span class="hl sym">(</span><span class="hl kwb">&#64;files</span><span class="hl sym">) {</span>
  -        unlink <span class="hl str">&quot;$TMPDIR/$_&quot;</span><span class="hl sym">;</span>
  -    <span class="hl sym">}</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> write_logfile <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">&#64;lines</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&gt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span> <span class="hl sym">(</span><span class="hl str">&quot;Cannot open log file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwc">print</span><span class="hl sym">(</span>FILE <span class="hl kwd">join</span><span class="hl sym">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">,</span> <span class="hl kwb">&#64;lines</span><span class="hl sym">),</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> append_to_file <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">$dir</span><span class="hl sym">,</span> <span class="hl kwb">&#64;files</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -
  -    <span class="hl kwa">if</span> <span class="hl sym">(</span><span class="hl kwb">&#64;files</span><span class="hl sym">) {</span>
  -        <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;lines</span><span class="hl sym">) = &amp;</span><span class="hl kwd">format_names</span><span class="hl sym">(</span><span class="hl kwb">$dir</span><span class="hl sym">,</span> <span class="hl kwb">&#64;files</span><span class="hl sym">);</span>
  -        <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&gt;&gt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span> <span class="hl sym">(</span><span class="hl str">&quot;Cannot open file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -        <span class="hl kwc">print</span><span class="hl sym">(</span>FILE <span class="hl kwd">join</span><span class="hl sym">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">,</span> <span class="hl kwb">&#64;lines</span><span class="hl sym">),</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -        <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -    <span class="hl sym">}</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> write_line <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">$line</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&gt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span><span class="hl sym">(</span><span class="hl str">&quot;Cannot open file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwc">print</span><span class="hl sym">(</span>FILE <span class="hl kwb">$line</span><span class="hl sym">,</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> append_line <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">$line</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&gt;&gt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span><span class="hl sym">(</span><span class="hl str">&quot;Cannot open file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwc">print</span><span class="hl sym">(</span>FILE <span class="hl kwb">$line</span><span class="hl sym">,</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> read_line <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$line</span><span class="hl sym">);</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&lt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span><span class="hl sym">(</span><span class="hl str">&quot;Cannot open file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwb">$line</span> <span class="hl sym">= &lt;</span>FILE<span class="hl sym">&gt;;</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -    <span class="hl kwd">chomp</span><span class="hl sym">(</span><span class="hl kwb">$line</span><span class="hl sym">);</span>
  -    <span class="hl kwb">$line</span><span class="hl sym">;</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> read_file <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">$leader</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;text</span><span class="hl sym">) = ();</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&lt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwa">return</span> <span class="hl sym">();</span>
  -    <span class="hl kwa">while</span> <span class="hl sym">(&lt;</span>FILE<span class="hl sym">&gt;) {</span>
  -        <span class="hl kwd">chomp</span><span class="hl sym">;</span>
  -        <span class="hl kwd">push</span><span class="hl sym">(</span><span class="hl kwb">&#64;text</span><span class="hl sym">,</span> <span class="hl kwd">sprintf</span><span class="hl sym">(</span><span class="hl str">&quot;  %-10s  %s&quot;</span><span class="hl sym">,</span> <span class="hl kwb">$leader</span><span class="hl sym">,</span> <span class="hl kwb">$_</span><span class="hl sym">));</span>
  -        <span class="hl kwb">$leader</span> <span class="hl sym">=</span> <span class="hl str">&quot;&quot;</span><span class="hl sym">;</span>
  -    <span class="hl sym">}</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -    <span class="hl kwb">&#64;text</span><span class="hl sym">;</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl kwa">sub</span> read_logfile <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$filename</span><span class="hl sym">,</span> <span class="hl kwb">$leader</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;text</span><span class="hl sym">) = ();</span>
  -
  -    <span class="hl kwd">open</span><span class="hl sym">(</span>FILE<span class="hl sym">,</span> <span class="hl str">&quot;&lt;$filename&quot;</span><span class="hl sym">) ||</span> <span class="hl kwd">die</span> <span class="hl sym">(</span><span class="hl str">&quot;Cannot open log file $filename: $!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl sym">);</span>
  -    <span class="hl kwa">while</span> <span class="hl sym">(&lt;</span>FILE<span class="hl sym">&gt;) {</span>
  -        <span class="hl kwd">chomp</span><span class="hl sym">;</span>
  -        <span class="hl kwd">push</span><span class="hl sym">(</span><span class="hl kwb">&#64;text</span><span class="hl sym">,</span> <span class="hl kwb">$leader</span><span class="hl sym">.</span><span class="hl kwb">$_</span><span class="hl sym">);</span>
  -    <span class="hl sym">}</span>
  -    <span class="hl kwd">close</span><span class="hl sym">(</span>FILE<span class="hl sym">);</span>
  -    <span class="hl kwb">&#64;text</span><span class="hl sym">;</span>
  -<span class="hl sym">}</span>
  -
  -<span class="hl slc">#</span>
  -<span class="hl slc"># do an 'cvs -Qn status' on each file in the arguments, and extract info.</span>
  -<span class="hl slc">#</span>
  -<span class="hl kwa">sub</span> change_summary <span class="hl sym">{</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$out</span><span class="hl sym">,</span> <span class="hl kwb">&#64;filenames</span><span class="hl sym">) =</span> <span class="hl kwb">&#64;_</span><span class="hl sym">;</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">&#64;revline</span><span class="hl sym">);</span>
  -    <span class="hl kwc">local</span><span class="hl sym">(</span><span class="hl kwb">$file</span><span class="hl sym">,</span> <span class="hl kwb">$rev</span><span class="hl sym">,</span> <span class="hl kwb">$rcsfile</span><span class="hl sym">,</span> <span class="hl kwb">$line</span><span class="hl sym">);</span>
  -
  -    <span class="hl kwa">while</span> <span class="hl sym">(</span><span class="hl kwb">&#64;filenames</span><span class="hl sym">) {</span>
  -        <span class="hl kwb">$file</span> <span class="hl sym">=</span> shift <span class="hl kwb">&#64;filenames</span><span class="hl sym">;</span>
  -
  -        <span class="hl kwa">if</span> <span class="hl sym">(</span><span class="hl str">&quot;$file&quot;</span> <span class="hl kwa">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl sym">) {</span>
  -            <span class="hl kwa">next</span><span class="hl sym">;</span>
  -        <span class="hl sym">}</span>
  -
  -        <span class="hl kwd">open</span><span class="hl sym">(</span>RCS<span class="hl sym">,</span> <span class="hl str">&quot;-|&quot;</span><span class="hl sym">) ||</span> exec <span class="hl str">&quot;$CVSBIN/cvs&quot;</span><span class="hl sym">,</span> <span class="hl str">'-Qn'</span><span class="hl sym">,</span> <span class="hl str">'status'</span><span class="hl sym">,</span> <span class="hl kwb">$file</span><span class="hl sym">;</span>
  -
  -        <span class="hl kwb">$rev</span> <span class="hl sym">=</span> <span class="hl str">&quot;&quot;</span><span class="hl sym">;</span>
  -        <span class="hl kwb">$delta</span> <span class="hl sym">=</span> <span class="hl str">&quot;&quot;</span><span class="hl sym">;</span>
  -        <span class="hl kwb">$rcsfile</span> <span class="hl sym">=</span> <span class="hl str">&quot;&quot;</span><span class="hl sym">;</span>
  -
  -
  -        <span class="hl kwa">while</span> <span class="hl sym">(&lt;</span>RCS<span class="hl sym">&gt;) {</span>
  -            <span class="hl kwa">if</span> <span class="hl sym">(/^[</span> <span class="hl esc">\t</span><span class="hl sym">]*</span>Repository revision<span class="hl sym">/) {</span>
  -                <span class="hl kwd">chomp</span><span class="hl sym">;</span>
  -                <span class="hl kwb">&#64;revline</span> <span class="hl sym">=</span> <span class="hl kwd">split</span><span class="hl sym">(</span><span class="hl str">' '</span><span class="hl sym">,</span> <span class="hl kwb">$_</span><span class="hl sym">);</span>
  -                <span class="hl kwb">$rev</span> <span class="hl sym">=</span> <span class="hl kwb">$revline</span><span class="hl sym">[</span><span class="hl num">2</span><span class="hl sym">];</span>
  -                <span class="hl kwb">$rcsfile</span> <span class="hl sym">=</span> <span class="hl kwb">$revline</span><span class="hl sym">[</span><span class="hl num">3</span><span class="hl sym">];</span>
  -                <span class="hl kwb">$rcsfile</span> <span class="hl sym">=~</span> s<span class="hl sym">,^</span><span class="hl kwb">$CVSROOT</span><span class="hl sym">/,,;</span>
  -                <span class="hl kwb">$rcsfile</span> <span class="hl sym">=~</span> s<span class="hl sym">/,</span>v<span class="hl sym">$//;</span>
  -            <span class="hl sym">}</span>
  -        <span class="hl sym">}</span>
  -        <span class="hl kwd">close</span><span class="hl sym">(</span>RCS<span class="hl sym">);</span>
  -
  -
  -        <span class="hl kwa">if</span> <span class="hl sym">(</span><span class="hl kwb">$rev</span> <span class="hl kwa">ne</span> <span class="hl str">''</span> <span class="hl sym">&amp;&amp;</span> <span class="hl kwb">$rcsfile</span> <span class="hl kwa">ne</span> <span class="hl str">''</span><span class="hl sym">) {</span>
  -            <span class="hl kwd">open</span><span class="hl sym">(</span>RCS<span class="hl sym">,</span> <span class="hl str">&quot;-|&quot;</span><span class="hl sym">) ||</span> exec <span class="hl str">&quot;$CVSBIN/cvs&quot;</span><span class="hl sym">,</span> <span class="hl str">'-Qn'</span><span class="hl sym">,</span> <span class="hl str">'log'</span><span class="hl sym">,</span> <span class="hl str">&quot;-r$rev&quot;</span><span class="hl sym">,</span> <span class="hl kwb">$file</span><span class="hl sym">;</span>
  -            <span class="hl kwa">while</span> <span class="hl sym">(&lt;</span>RCS<span class="hl sym">&gt;) {</span>
  -                <span class="hl kwa">if</span> <span class="hl sym">(/^</span>date<span class="hl sym">:/) {</span>
  -                    <span class="hl kwd">chomp</span><span class="hl sym">;</span>
  -                    <span class="hl kwb">$delta</span> <span class="hl sym">=</span> <span class="hl kwb">$_</span><span class="hl sym">;</span>
  -                    <span class="hl kwb">$delta</span> <span class="hl sym">=~</span> s<span class="hl sym">/^.*;//;</span>
  -                    <span class="hl kwb">$delta</span> <span class="hl sym">=~</span> s<span class="hl sym">/^[</span>\s<span class="hl sym">]+</span>lines<span class="hl sym">://;</span>
  -                <span class="hl sym">}</span>
  -            <span class="hl sym">}</span>
  -            <span class="hl kwd">close</span><span class="hl sym">(</span>RCS<span class="hl sym">);</span>
  -        <span class="hl sym">}</span>
  -
  -        <span class="hl kwb">$diff</span> <span class="hl sym">=</span> <span class="hl str">&quot;</span><span class="hl esc">\n\n</span><span class="hl str">&quot;</span><span class="hl sym">;</span>
  -
  -	<span class="hl slc">#</span>
  -	<span class="hl slc"># Get the differences between this and the previous revision,</span>
  -	<span class="hl slc"># being aware that new files always have revision '1.1' and</span>
  -	<span class="hl slc"># new branches always end in '.n.1'.</span>
  -	<span class="hl slc">#</span>
  -	<span class="hl kwa">if</span> <span class="hl sym">(</span><span class="hl kwb">$rev</span> <span ...
 
[truncated message content]

Thread: [Codestriker-commits] CVS update: codestriker/bin highlight.css log_accum.pl.html log_accum.pl.xml

codestriker-commits