print {$scriptFH} $config->{files}{'pre-host'};
close $scriptFH;
+ write_file('/etc/vservers/' . $vsname . '/context', getFreeContext() . "\n");
+ write_file('/etc/vservers/' . $vsname . "/profile", $profile . "\n");
+
system('vserver', $vsname, 'start');
- write_file('/etc/vservers/' . $vsname . '/profile', $profile . "\n");
+
write_file($vsroot . 'etc/apt/sources.list', $config->{files}{aptsources});
# TODO: get the apt-key stuff working
system('vserver', $vsname, 'apt-get', 'update');
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';