my $data = slurp($key);
$data =~ s/__VSNAME__/$vsname/g;
$data =~ s/__VSIPADDR__/$ipaddr/g;
+ $data =~ s/__HOST__/$hostname/g;
+ foreach my $key ( keys %{$profileOptions} ) {
+ my $value = $profileOptions->{$key};
+ $data =~ s/__PROFILEOPTION_${key}__/$value/g;
+ }
write_file($vsroot . '.template', $data);
- system('mv', $vsroot . '.template', $vsroot . $templates{$key} . $file);
+ system('mv', $vsroot . '.template', $vsroot . $templates{$key});
}
open $scriptFH, '|-', 'vserver', $vsname, 'exec', '/bin/bash';