8 |
## |
## |
9 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
10 |
## $Log$ |
## $Log$ |
11 |
|
## Revision 1.2 2003/02/11 09:52:02 joko |
12 |
|
## + backward compatibility, some fixes |
13 |
|
## |
14 |
## Revision 1.1 2003/02/09 05:04:32 joko |
## Revision 1.1 2003/02/09 05:04:32 joko |
15 |
## + initial commit |
## + initial commit |
16 |
## |
## |
47 |
} |
} |
48 |
|
|
49 |
# check - do we have a mapping? |
# check - do we have a mapping? |
50 |
if (!$self->{options}->{details}) { |
#if (!$self->{options}->{details}) { |
51 |
$logger->warning( __PACKAGE__ . "->checkOptions: Error while resolving resource metadata - no 'fieldmap' could be determined."); |
# $logger->warning( __PACKAGE__ . "->checkOptions: Error while resolving resource metadata - no 'fieldmap' could be determined."); |
52 |
$result = 0; |
# $result = 0; |
53 |
} |
#} |
54 |
|
|
55 |
# TODO: extend! |
# TODO: extend! |
56 |
|
|
199 |
|
|
200 |
$logger->debug( __PACKAGE__ . "->options_to_V2"); |
$logger->debug( __PACKAGE__ . "->options_to_V2"); |
201 |
|
|
202 |
|
# trace |
203 |
|
#print Dumper($map); |
204 |
|
|
205 |
# move the 'target' address |
# move the 'target' address |
206 |
$map->{target} = { address => $map->{target} }; |
$map->{target} = { address => $map->{target} }; |
207 |
|
$map->{source} = { address => $map->{source} }; |
208 |
|
|
209 |
$map->{source}->{ident} = $map->{source_ident}; |
$map->{source}->{ident} = $map->{source_ident} if $map->{source_ident}; |
210 |
delete $map->{source_ident}; |
delete $map->{source_ident}; |
211 |
$map->{source}->{type} = $map->{source_type}; |
$map->{source}->{callbacks}->{read} = $map->{source_callbacks_read} if $map->{source_callbacks_read}; |
212 |
delete $map->{source_type}; |
delete $map->{source_callbacks_read}; |
213 |
|
$map->{source}->{callbacks}->{write} = $map->{source_callbacks_write} if $map->{source_callbacks_write}; |
214 |
|
delete $map->{source_callbacks_write}; |
215 |
|
$map->{source}->{filter} = $map->{source_filter} if $map->{source_filter}; |
216 |
|
delete $map->{source_filter}; |
217 |
|
|
218 |
$map->{target}->{ident} = $map->{target_ident}; |
$map->{target}->{ident} = $map->{target_ident} if $map->{target_ident}; |
219 |
delete $map->{target_ident}; |
delete $map->{target_ident}; |
220 |
|
|
221 |
} |
} |