gcc484ntopperl-5.22
gccoud
|
Last change
on this file since 13a1b25 was
c5c522c,
checked in by Edwin Eefting <edwin@datux.nl>, 8 years ago
|
|
initial commit, transferred from cleaned syn3 svn tree
|
-
Property mode set to
100644
|
|
File size:
834 bytes
|
| Rev | Line | |
|---|
| [c5c522c] | 1 | diff -rupN smokeping-2.4.2-orig/lib/Smokeping.pm smokeping-2.4.2/lib/Smokeping.pm |
|---|
| 2 | --- smokeping-2.4.2-orig/lib/Smokeping.pm 2009-10-05 12:02:47.091756610 +0200 |
|---|
| 3 | +++ smokeping-2.4.2/lib/Smokeping.pm 2009-10-05 14:30:21.072756586 +0200 |
|---|
| 4 | @@ -1809,7 +1809,7 @@ sub check_alerts { |
|---|
| 5 | $line .= "[from $slave]" if $slave; |
|---|
| 6 | do_log("Alert $_ $what for $line"); |
|---|
| 7 | my $urlline = $line; |
|---|
| 8 | - $urlline = $cfg->{General}{cgiurl}."?target=".$line; |
|---|
| 9 | + $urlline = $cfg->{General}{cgiurl}.$line.".html"; |
|---|
| 10 | my $loss = "loss: ".join ", ",map {defined $_ ? (/^\d/ ? sprintf "%.0f%%", $_ :$_):"U" } @{$x->{loss}}; |
|---|
| 11 | my $rtt = "rtt: ".join ", ",map {defined $_ ? (/^\d/ ? sprintf "%.0fms", $_*1000 :$_):"U" } @{$x->{rtt}}; |
|---|
| 12 | my $time = time; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
