~louis/ubuntu/trusty/clamav/lp799623_fix_logrotate

« back to all changes in this revision

Viewing changes to libclamav/c++/llvm/utils/parseNLT.pl

  • Committer: Bazaar Package Importer
  • Author(s): Scott Kitterman
  • Date: 2010-03-12 11:30:04 UTC
  • mfrom: (0.41.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20100312113004-b0fop4bkycszdd0z
Tags: 0.96~rc1+dfsg-0ubuntu1
* New upstream RC - FFE (LP: #537636):
  - Add OfficialDatabaseOnly option to clamav-base.postinst.in
  - Add LocalSocketGroup option to clamav-base.postinst.in
  - Add LocalSocketMode option to clamav-base.postinst.in
  - Add CrossFilesystems option to clamav-base.postinst.in
  - Add ClamukoScannerCount option to clamav-base.postinst.in
  - Add BytecodeSecurity opiton to clamav-base.postinst.in
  - Add DetectionStatsHostID option to clamav-freshclam.postinst.in
  - Add Bytecode option to clamav-freshclam.postinst.in
  - Add MilterSocketGroup option to clamav-milter.postinst.in
  - Add MilterSocketMode option to clamav-milter.postinst.in
  - Add ReportHostname option to clamav-milter.postinst.in
  - Bump libclamav SO version to 6.1.0 in libclamav6.install
  - Drop clamdmon from clamav.examples (no longer shipped by upstream)
  - Drop libclamav.a from libclamav-dev.install (not built by upstream)
  - Update SO version for lintian override for libclamav6
  - Add new Bytecode Testing Tool, usr/bin/clambc, to clamav.install
  - Add build-depends on python and python-setuptools for new test suite
  - Update debian/copyright for the embedded copy of llvm (using the system
    llvm is not currently feasible)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#!/usr/bin/perl
 
2
# a first attempt to parse the nightly tester pages into something
 
3
# one can reason about, namely import into a database
 
4
# USE: perl parseNLT.pl <2005-03-31.html
 
5
# for example
 
6
 
 
7
while(<>)
 
8
  {
 
9
    if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
 
10
      {
 
11
        $mon = $1;
 
12
        $day = $2;
 
13
        $year = $3;
 
14
      }
 
15
    if (/<td>([^<]+)<\/td>/)
 
16
      {
 
17
        if ($prefix)
 
18
          { $output .= "$1 "; $count++; }
 
19
      }
 
20
    if (/<tr/)
 
21
      {
 
22
        if ($output and $count > 3)
 
23
          { print "\n$day $mon $year $prefix/$output"; }
 
24
        $output = "";
 
25
        $count = 0;
 
26
      }
 
27
    if (/<h2>(Programs.+)<\/h2>/)
 
28
      {
 
29
        $prefix = $1;
 
30
      }
 
31
  }
 
32
 
 
33
if ($output)
 
34
  { print "\n$day $mon $year $prefix/$output"; $output = ""; }