/[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.1 by dpavlin, Tue Jun 11 19:27:37 2002 UTC revision 1.4 by dpavlin, Thu Jul 11 08:33:48 2002 UTC
# Line 37  BEGIN { Line 37  BEGIN {
37          $gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi";          $gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi";
38    
39          # change this to destination directory          # change this to destination directory
40          $path = "/home/dpavlin/public_html";          $path = "/data/mon/";
41          # this is basename of all html files          # this is basename of all html files
42          $name = "overview";          $name = "overview";
43  }  }
# Line 89  foreach $subtree (@ARGV) { Line 89  foreach $subtree (@ARGV) {
89    
90  foreach my $filename (keys %html) {  foreach my $filename (keys %html) {
91          open(OUT,"> $filename") || die "can't open output html '$filename': $!";          open(OUT,"> $filename") || die "can't open output html '$filename': $!";
92          print OUT $html{$filename};          print OUT $html{$filename},"</body></html>";
93          close(OUT);          close(OUT);
94  }  }
95    
# Line 146  sub localHandleTargetInstance { Line 146  sub localHandleTargetInstance {
146                                  my($dslist);                                  my($dslist);
147    
148                                  my($filename)="$path/$name-$rangeLabel.html";                                  my($filename)="$path/$name-$rangeLabel.html";
149                                    if (! defined $html{$filename}) {
150                                            $html{$filename}="<html><head><title>$rangeLabel</title></head><body>";
151                                    }
152                                  my($dir) = dirname($filename);                                  my($dir) = dirname($filename);
153                                  if (! -d $dir) {                                  if (! -d $dir) {
154                                     Info("Making directory $dir to hold file $filename.");                                     Info("Making directory $dir to hold file $filename.");
# Line 169  sub localHandleTargetInstance { Line 172  sub localHandleTargetInstance {
172                                                  my $desc = "view: ";                                                      my $desc = "view: ";    
173                                                  if ($paraminst ne "") {                                                  if ($paraminst ne "") {
174                                                          $URL .= "&inst=$paraminst";                                                          $URL .= "&inst=$paraminst";
175                                                          $desc.="$paraminst $vname";                                                          $desc.="$paraminst $paramtarget $vname";
176                                                  } else {                                                  } else {
177                                                          $desc.="$paramtarget $vname";                                                          $desc.="$paramtarget $vname";
178                                                  }                                                  }

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

  ViewVC Help
Powered by ViewVC 1.1.26