/[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.5 by dpavlin, Wed Jul 24 15:14:08 2002 UTC revision 1.8 by dpavlin, Sun May 18 11:54:28 2003 UTC
# Line 34  BEGIN { Line 34  BEGIN {
34          # You need to update this to point to the URL          # You need to update this to point to the URL
35          # you use to access Cricket.          # you use to access Cricket.
36  #       $gBaseURL = "http://localhost/~cricket/grapher.cgi";  #       $gBaseURL = "http://localhost/~cricket/grapher.cgi";
37          $gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi";          my $hostname = `hostname -f`;
38            chomp($hostname);
39            $gBaseURL = "http://$hostname/cgi-bin/cricket/grapher.cgi";
40    
41          # change this to destination directory          # change this to destination directory
42          $path = "/data/mon/";          $path = "/data/mon/";
# Line 105  foreach my $key (keys %html_file) { Line 107  foreach my $key (keys %html_file) {
107          }          }
108          Info("Dumping HTML for $key to $filename.");          Info("Dumping HTML for $key to $filename.");
109          open(OUT,"> $filename") || die "can't open output html '$filename': $!";          open(OUT,"> $filename") || die "can't open output html '$filename': $!";
110          print OUT "<html><head><title>$key</title></head><body>";          print OUT '<html><head><title>'.$key.'</title>
111                    <meta content="no-cache" http-equiv="Pragma">
112                    <meta content="300" http-equiv="Refresh">
113                    </head><body>';
114          print OUT $html_file{$key};          print OUT $html_file{$key};
115          print OUT "</body></html>";          print OUT "</body></html>";
116          close(OUT);          close(OUT);
# Line 179  sub localHandleTargetInstance { Line 184  sub localHandleTargetInstance {
184                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";
185                                                  $URL .= "&dslist=$dslist&range=$paramrange";                                                  $URL .= "&dslist=$dslist&range=$paramrange";
186                                                  my $desc = "$paramtarget $vname";                                                  my $desc = "$paramtarget $vname";
187                                                    $desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'});
188                                                  if ($paraminst ne "") {                                                  if ($paraminst ne "") {
189                                                          $URL .= "&inst=$paraminst";                                                          $URL .= "&inst=$paraminst";
190                                                  }                                                  }
# Line 196  sub localHandleTargetInstance { Line 202  sub localHandleTargetInstance {
202                                          $URL = "$gBaseURL?type=png&target=$paramtarget";                                          $URL = "$gBaseURL?type=png&target=$paramtarget";
203                                          $URL .= "&dslist=$dslist&range=$paramrange";                                          $URL .= "&dslist=$dslist&range=$paramrange";
204                                          my $desc ="$paraminst $rangeLabel";                                          my $desc ="$paraminst $rangeLabel";
205                                            $desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'});
206                                          if ($paraminst ne "") {                                          if ($paraminst ne "") {
207                                                  $URL .= "&inst=$paraminst";                                                  $URL .= "&inst=$paraminst";
208                                          }                                          }

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

  ViewVC Help
Powered by ViewVC 1.1.26