/[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.7 by dpavlin, Sun May 18 02:08:04 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 179  sub localHandleTargetInstance { Line 181  sub localHandleTargetInstance {
181                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";                                                  $URL = "$gBaseURL?type=png&target=$paramtarget";
182                                                  $URL .= "&dslist=$dslist&range=$paramrange";                                                  $URL .= "&dslist=$dslist&range=$paramrange";
183                                                  my $desc = "$paramtarget $vname";                                                  my $desc = "$paramtarget $vname";
184                                                    $desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'});
185                                                  if ($paraminst ne "") {                                                  if ($paraminst ne "") {
186                                                          $URL .= "&inst=$paraminst";                                                          $URL .= "&inst=$paraminst";
187                                                  }                                                  }
# Line 196  sub localHandleTargetInstance { Line 199  sub localHandleTargetInstance {
199                                          $URL = "$gBaseURL?type=png&target=$paramtarget";                                          $URL = "$gBaseURL?type=png&target=$paramtarget";
200                                          $URL .= "&dslist=$dslist&range=$paramrange";                                          $URL .= "&dslist=$dslist&range=$paramrange";
201                                          my $desc ="$paraminst $rangeLabel";                                          my $desc ="$paraminst $rangeLabel";
202                                            $desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'});
203                                          if ($paraminst ne "") {                                          if ($paraminst ne "") {
204                                                  $URL .= "&inst=$paraminst";                                                  $URL .= "&inst=$paraminst";
205                                          }                                          }
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26