6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.7 2003/02/21 08:01:11 joko |
10 |
|
## debugging, logging |
11 |
|
## renamed module |
12 |
|
## |
13 |
## Revision 1.6 2003/02/14 14:03:49 joko |
## Revision 1.6 2003/02/14 14:03:49 joko |
14 |
## + logging, debugging |
## + logging, debugging |
15 |
## - refactored code to sister module |
## - refactored code to sister module |
90 |
|
|
91 |
use Data::Dumper; |
use Data::Dumper; |
92 |
|
|
93 |
use misc::HashExt; |
#use misc::HashExt; |
94 |
|
use Hash::Serializer; |
95 |
use Data::Compare::Struct qw( getDifference isEmpty ); |
use Data::Compare::Struct qw( getDifference isEmpty ); |
96 |
use Data::Storage::Container; |
use Data::Storage::Container; |
97 |
use DesignPattern::Object; |
use DesignPattern::Object; |
157 |
$logger->debug( __PACKAGE__ . "->_run" ); |
$logger->debug( __PACKAGE__ . "->_run" ); |
158 |
|
|
159 |
# for statistics |
# for statistics |
160 |
my $tc = OneLineDumpHash->new( {} ); |
my $tc = Hash::Serializer->new( {} ); |
161 |
my $results; |
my $results; |
162 |
|
|
163 |
# set of objects is already in $self->{args} |
# set of objects is already in $self->{args} |
429 |
|
|
430 |
# todo!!! |
# todo!!! |
431 |
#sysevent( { usermsg => $msg, level => $level }, $taskEvent ); |
#sysevent( { usermsg => $msg, level => $level }, $taskEvent ); |
432 |
$logger->info( __PACKAGE__ . "->_run: $msg" ); |
#$logger->info( __PACKAGE__ . "->_run: $msg" ); |
433 |
|
$logger->info($msg . "\n"); |
434 |
|
|
435 |
return $tc; |
return $tc; |
436 |
|
|
591 |
$i++; |
$i++; |
592 |
} |
} |
593 |
|
|
594 |
print "\n" if $self->{verbose}; |
#print "\n" if $self->{verbose}; |
595 |
|
|
596 |
if (!$i) { |
if (!$i) { |
597 |
$logger->warning( __PACKAGE__ . "->_prepareNode_DummyIdent: no nodes touched" ); |
$logger->warning( __PACKAGE__ . "->_prepareNode_DummyIdent: no nodes touched" ); |