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;