/[cricket]/generate-overview.pl
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 /generate-overview.pl

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

revision 1.4 by dpavlin, Thu Jul 11 08:33:48 2002 UTC revision 1.5 by dpavlin, Wed Jul 24 15:14:08 2002 UTC
# Line 38  BEGIN { Line 38  BEGIN {
38    
39          # change this to destination directory          # change this to destination directory
40          $path = "/data/mon/";          $path = "/data/mon/";
         # this is basename of all html files  
         $name = "overview";  
41  }  }
42    
43  #use lib "$gInstallRoot/../lib";  #use lib "$gInstallRoot/../lib";
# Line 87  foreach $subtree (@ARGV) { Line 85  foreach $subtree (@ARGV) {
85      }      }
86  }  }
87    
88  foreach my $filename (keys %html) {  my %html_file;
89    
90    foreach my $item (sort keys %html) {
91            my ($range,$target) = split(/\t/,$item,2);
92            my (undef,$service,$arg) = split(/\//,$target,3);
93    
94            $html_file{"$range/$service"} .= $html{$item};
95            $html_file{"overview-$range"} .= $html{$item};
96    }
97    
98    foreach my $key (keys %html_file) {
99    
100            my $filename = "$path/$key.html";
101            my($dir) = dirname($filename);
102            if (! -d $dir) {
103               Info("Making directory $dir to hold file $filename.");
104               Common::Util::MkDir($dir);
105            }
106            Info("Dumping HTML for $key to $filename.");
107          open(OUT,"> $filename") || die "can't open output html '$filename': $!";          open(OUT,"> $filename") || die "can't open output html '$filename': $!";
108          print OUT $html{$filename},"</body></html>";          print OUT "<html><head><title>$key</title></head><body>";
109            print OUT $html_file{$key};
110            print OUT "</body></html>";
111          close(OUT);          close(OUT);
112    
113  }  }
114    
115  exit;  exit;
# Line 145  sub localHandleTargetInstance { Line 164  sub localHandleTargetInstance {
164    
165                                  my($dslist);                                  my($dslist);
166    
                                 my($filename)="$path/$name-$rangeLabel.html";  
                                 if (! defined $html{$filename}) {  
                                         $html{$filename}="<html><head><title>$rangeLabel</title></head><body>";  
                                 }  
                                 my($dir) = dirname($filename);  
                                 if (! -d $dir) {  
                                    Info("Making directory $dir to hold file $filename.");  
                                    Common::Util::MkDir($dir);  
                                 }  
   
167                                  if (defined($ttRef->{'view'}))                                  if (defined($ttRef->{'view'}))
168                                  {                                  {
169                                          my($v);                                          my($v);
# Line 169  sub localHandleTargetInstance { Line 178  sub localHandleTargetInstance {
178    
179                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";
180                                                  $URL .= "&dslist=$dslist&range=$paramrange";                                                  $URL .= "&dslist=$dslist&range=$paramrange";
181                                                  my $desc = "view: ";                                                      my $desc = "$paramtarget $vname";
182                                                  if ($paraminst ne "") {                                                  if ($paraminst ne "") {
183                                                          $URL .= "&inst=$paraminst";                                                          $URL .= "&inst=$paraminst";
                                                         $desc.="$paraminst $paramtarget $vname";  
                                                 } else {  
                                                         $desc.="$paramtarget $vname";  
184                                                  }                                                  }
185    
186                                                  Info("Retrieving graph for $desc");                                                  Info("Retrieving graph for $desc");
187  #                                               getURL($URL,"$path/$name-$vname-$rangeLabel.png");  #                                               getURL($URL,"$path/$name-$vname-$rangeLabel.png");
188                                                  $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y&view=$vname";                                                  $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y&view=$vname";
189                                                  $html{$filename}.="$desc<br><a href=\"$tmp_URL\"><img src=$URL></a><br>";                                                  $html{"$rangeLabel\t$paramtarget"}.="$desc<br><a href=\"$tmp_URL\"><img src=$URL></a><br>\n";
190                                          }                                          }
191                                  } else {                                  } else {
192                                          $dslist = $ttRef->{'ds'};                                          $dslist = $ttRef->{'ds'};
# Line 189  sub localHandleTargetInstance { Line 195  sub localHandleTargetInstance {
195    
196                                          $URL = "$gBaseURL?type=png&target=$paramtarget";                                          $URL = "$gBaseURL?type=png&target=$paramtarget";
197                                          $URL .= "&dslist=$dslist&range=$paramrange";                                          $URL .= "&dslist=$dslist&range=$paramrange";
198                                          my $desc = "ds: ";                                                my $desc ="$paraminst $rangeLabel";
199                                          if ($paraminst ne "") {                                          if ($paraminst ne "") {
200                                                  $URL .= "&inst=$paraminst";                                                  $URL .= "&inst=$paraminst";
                                                 $desc.="$paraminst $rangeLabel"  
                                         } else {  
                                                 $desc.="$paramtarget $rangeLabel";  
201                                          }                                          }
202    
203                                          Info("Retrieving graph for $desc");                                          Info("Retrieving graph for $desc");
204    
205  #                                       getURL($URL,"$path/$name-$rangeLabel.png");  #                                       getURL($URL,"$path/$name-$rangeLabel.png");
206                                          $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y";                                          $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y";
207                                          $html{$filename}.="$desc:<br><a href=\"$tmp_URL\"><img src=$URL><a/><br>";                                          $html{"$rangeLabel\t$paramtarget"}.="$desc:<br><a href=\"$tmp_URL\"><img src=$URL><a/><br>";
208                                  }                                  }
209                          }                          }
210                  }                  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.26