/[omni_gantt]/db2gantt.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /db2gantt.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by dpavlin, Wed Sep 18 14:00:18 2002 UTC revision 1.24 by dpavlin, Mon Nov 18 08:09:58 2002 UTC
# Line 28  my %cols = ( Line 28  my %cols = (
28          'Completed/Failure'     => '128,0,128',          'Completed/Failure'     => '128,0,128',
29          'Mount Request'         => '128,128,255',          'Mount Request'         => '128,128,255',
30          'Mount/Errors'          => '255,64,128',          'Mount/Errors'          => '255,64,128',
31            'Mount/Failures'        => '255,128,192',
32          );          );
33    
34  my $int_t = (12 * 60 * 60);     # interval to display on one screen  my $int_t = (12 * 60 * 60);     # interval to display on one screen
# Line 69  if (path_info()) { Line 70  if (path_info()) {
70          $im->transparent($back);          $im->transparent($back);
71          my $col = path_info(); $col =~ s,/,,g;          my $col = path_info(); $col =~ s,/,,g;
72          my ($r,$g,$b) = split(/,/,$col);          my ($r,$g,$b) = split(/,/,$col);
73          my $col = $im->colorAllocate($r,$g,$b);          $col = $im->colorAllocate($r,$g,$b);
74          $im->fill(0,0,$col);          $im->fill(0,0,$col);
75          print "Content-Length: ",length($im->png),"\n\n";          print "Content-Length: ",length($im->png),"\n\n";
76          binmode STDOUT;          binmode STDOUT;
# Line 231  my $sth = $dbh->prepare($sql) || die "sq Line 232  my $sth = $dbh->prepare($sql) || die "sq
232    
233  my %spec;       # specification hash  my %spec;       # specification hash
234    
235  my $curr_spec;  my $curr_spec = "";
236  my $curr_t = $from_t;  my $curr_t = $from_t;
237    
238  $sth->execute() || die "sql: $sql ".$dbh->errstr;  $sth->execute() || die "sql: $sql ".$dbh->errstr;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.26