Revision a259bc65
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Watchdog.pm | ||
|---|---|---|
| 13 | 13 |
|
| 14 | 14 |
if (substr($key, 0, 10) eq "Watchdog::") {
|
| 15 | 15 |
substr $key, 0, 10, ""; |
| 16 |
$watched_variables{$key} = $value;
|
|
| 17 |
if ($value) {
|
|
| 18 |
$main::lxdebug->_write("WATCH", "Starting to watch '$key' with current value '$this->{$key}'");
|
|
| 19 |
} else {
|
|
| 20 |
$main::lxdebug->_write("WATCH", "Stopping to watch '$key'");
|
|
| 16 |
foreach $key (split m/[ ,]/, $key) {
|
|
| 17 |
$watched_variables{$key} = $value;
|
|
| 18 |
if ($value) {
|
|
| 19 |
$main::lxdebug->_write("WATCH", "Starting to watch '$key' with current value '$this->{$key}'");
|
|
| 20 |
} else {
|
|
| 21 |
$main::lxdebug->_write("WATCH", "Stopping to watch '$key'");
|
|
| 22 |
} |
|
| 21 | 23 |
} |
| 22 |
return; |
|
| 23 | 24 |
|
| 25 |
return; |
|
| 24 | 26 |
} |
| 25 | 27 |
|
| 26 | 28 |
if ($watched_variables{$key}
|
Auch abrufbar als: Unified diff
Zur Überwachung von $form-Variablen können jetzt mehrere gleichzeitig ein- oder ausgeschaltet werden. Syntax: $form->{"Watchdog::var1,var2,var3"} = 1;