diff options
Diffstat (limited to 'config-db/OpenSLX/ConfigDB.pm')
-rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 45c414e5..9d1b266e 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -65,7 +65,7 @@ my @aggregationExports = qw( my @supportExports = qw( isAttribute mergeAttributes externalIDForSystem externalIDForClient - externalAttrName + externalAttrName generatePlaceholderFor ); @EXPORT = @accessExports; @@ -867,7 +867,7 @@ sub aggregatedSystemFileInfosOfSystem if ($exportURI !~ m[\w]) { # auto-generate export_uri if none has been given: my $type = $system->{'export_type'}; - my $serverIpToken = '@@@server_ip@@@'; + my $serverIpToken = generatePlaceholderFor('serverip'); $exportURI = "$type://$serverIpToken$openslxConfig{'export-path'}/$type/$vendorOS->{path}"; } @@ -946,4 +946,10 @@ sub externalAttrName return substr($attr, 5); } +sub generatePlaceholderFor +{ + my $varName = shift; + return '@@@'.$varName.'@@@'; +} + 1; |