← Back to branch summary

~ubuntu-branches/ubuntu/feisty/clamav/feisty

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Kees Cook
  • Date: 2007-02-20 10:33:44 UTC
  • mto: This revision was merged to the branch mainline in revision 16.
  • Revision ID: james.westby@ubuntu.com-20070220103344-zgcu2psnx9d98fpa
Tags: upstream-0.90
Import upstream version 0.90

Show diffs side-by-side

added added

removed removed

Lines of Context:
libclamav/c++/llvm/utils/cgiplotNLT.pl
1
 
#!/usr/bin/perl
2
 
#takes a test and a program from a dp and produces a gnuplot script
3
 
#use like perl plotNLT.pl password Programs/MultiSource/Benchmarks/ASCI_Purple/SMG2000/smg2000 llc
4
 
 
5
 
use CGI;
6
 
use DBI;
7
 
my $q = new CGI;
8
 
 
9
 
# database information
10
 
$db="llvmalpha";
11
 
$host="localhost";
12
 
$userid="llvmdbuser";
13
 
$passwd=$q->param('pwd');
14
 
$connectionInfo="dbi:mysql:$db;$host";
15
 
 
16
 
# make connection to database
17
 
$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die DBI->errstr;
18
 
 
19
 
 
20
 
$count = 0;
21
 
while ($q->param('n' . $count))
22
 
  {
23
 
    $count++;
24
 
  }
25
 
 
26
 
$| = 1;
27
 
print "Content-type: image/png", "\n\n";
28
 
 
29
 
open CMDSTREAM, "|gnuplot";
30
 
#open CMDSTREAM, "|echo";
31
 
 
32
 
print CMDSTREAM "set terminal png\n";
33
 
print CMDSTREAM "set output\n";
34
 
print CMDSTREAM "set xdata time\n";
35
 
print CMDSTREAM 'set timefmt "%Y-%m-%d"';
36
 
print CMDSTREAM "\nplot";
37
 
for ($iter = 0; $iter < $count; $iter++) {
38
 
  if ($iter)
39
 
    { print CMDSTREAM ","; }
40
 
  print CMDSTREAM " '-' using 1:2 title \"" . $q->param('t' . $iter) . "," . $q->param('n' . $iter) . "\"with lines";
41
 
}
42
 
 
43
 
print CMDSTREAM "\n";
44
 
 
45
 
for ($iter = 0; $iter < $count; $iter++) {
46
 
 
47
 
  $prog = $q->param('n' . $iter);
48
 
  $test = $q->param('t' . $iter);
49
 
 
50
 
  $query = "Select RUN, VALUE from Tests where TEST = '$test' AND NAME = '$prog' ORDER BY RUN";
51
 
  #print "\n$query\n";
52
 
  
53
 
  my $sth = $dbh->prepare( $query) || die "Can't prepare statement: $DBI::errstr";;
54
 
  
55
 
  my $rc = $sth->execute or die DBI->errstr;
56
 
  
57
 
  while(($da,$v) = $sth->fetchrow_array)
58
 
    {
59
 
      print CMDSTREAM "$da $v\n";
60
 
    }
61
 
  
62
 
  print CMDSTREAM "e\n";
63
 
}
64
 
print CMDSTREAM "exit\n";
65
 
close CMDSTREAM;
66
 
 
67
 
# disconnect from database
68
 
$dbh->disconnect;