*** ./larrd-0.43d/cgi/larrd-grapher.cgi	Mon Apr 25 16:37:11 2005
--- ./mylarrd/larrd-grapher.cgi	Fri Jan  6 10:11:51 2006
***************
*** 85,90 ****
--- 85,92 ----
  my($disk_part)         = $q->param('disk_part');
  my $date               = localtime;
  
+ $date =~ s/:/\\:/g;
+ 
  print TMP "host: $host\n"           if $DEBUG;
  print TMP "service: $service\n"     if $DEBUG;
  print TMP "graph_time_type: $graph_time_type\n"         if $DEBUG;
***************
*** 1697,1704 ****
  
  if ($service eq "larrd" or not exists $graph_c{$service}) {
      # this is displayed if we have nothing to graph
!     print $q->header;
!     print qq{<h1>ERROR: Invalid Service</h1>};
      exit;
  }
  
--- 1699,1716 ----
  
  if ($service eq "larrd" or not exists $graph_c{$service}) {
      # this is displayed if we have nothing to graph
!          open(NOGRAPH,"<$ENV{'BBGIFS'}/blue.gif") or die $!;
!          binmode(NOGRAPH);
! 
!          while ($len = read(NOGRAPH,$bits,8192)) {
!              $pic .= $bits;
!          }
! 
!          close(NOGRAPH);
!  
!          print $q->header(-type=>'image/gif',-expires=>'+10m');
!          print $pic;
! 
      exit;
  }
  
***************
*** 1799,1804 ****
--- 1811,1817 ----
      my $number_rrd_elements = @rrds;
  
      print TMP "number_rrd_elements: $number_rrd_elements\n" if $DEBUG;
+     print TMP "rrd list: @rrds\n" if $DEBUG;
      # if number elements = 0, crash out
      if ($number_rrd_elements eq "0") {
        print $q->header;
***************
*** 1813,1830 ****
  
         foreach my $RRD (@rrds) {
           my @items = split /\.disk/, $RRD;
           next if ! defined $items[1];
           my $disk_name = $items[1];
  #         substr($disk_name, -4) = "";
           $disk_name = "/" if ($disk_name eq ",root");
           $disk_name =~ s/\,/\//g;
           push @disk_array, $disk_name;
           $disk_hash{$disk_name} = $RRD;
         }
  
         my @sub_array = sort @disk_array;
!        my ($a, $b) = split (/\.\./, $disk_part);
!        @sub_array = @sub_array[$a .. $b];
  
  
         foreach my $disk ( @sub_array ) {
--- 1826,1846 ----
  
         foreach my $RRD (@rrds) {
           my @items = split /\.disk/, $RRD;
+          print TMP "items: @items\n" if $DEBUG;
           next if ! defined $items[1];
           my $disk_name = $items[1];
  #         substr($disk_name, -4) = "";
           $disk_name = "/" if ($disk_name eq ",root");
           $disk_name =~ s/\,/\//g;
+ 	 print TMP "diskname: $disk_name\n" if $DEBUG;
           push @disk_array, $disk_name;
           $disk_hash{$disk_name} = $RRD;
         }
  
         my @sub_array = sort @disk_array;
!	 if( defined($disk_part) ) {
!          my ($a, $b) = split (/\.\./, $disk_part);
!          @sub_array = @sub_array[$a .. $b]; }
  
  
         foreach my $disk ( @sub_array ) {