diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-09-14 16:09:45 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-09-14 16:09:45 +0000 |
| commit | adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f (patch) | |
| tree | 9f6bfad98df0cad3e9d6a20fc30b782e2b0d98ed /drakpxelinux.pl | |
| parent | afa0df270e2a9026ec292814a3fd28e16cc24b47 (diff) | |
| download | drakpxelinux-adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f.tar drakpxelinux-adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f.tar.gz drakpxelinux-adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f.tar.bz2 drakpxelinux-adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f.tar.xz drakpxelinux-adb604e49b09fe1dcdea27f09ceb887b3c3f5a0f.zip | |
set $o->{deploy_server} in auto_inst file
Diffstat (limited to 'drakpxelinux.pl')
| -rw-r--r-- | drakpxelinux.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 5a5d1f5..1eb454f 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -515,7 +515,12 @@ sub edit_box_item { } elsif ($filetotest eq "auto_install") { run_program::get_stdout("file $file") =~ /perl/ or err_dialog(N("Error!"), N("Should be a perl script")) and \return; my $ip_address = network::tools::get_interface_ip_address($net, $interface); - run_program::get_stdout("cp -avf $file " . $network::pxe::pxelinux_client_root . "/pxelinux.cfg/profiles/auto_" . $profile . "_" . $label . ".pl"); + my $auto_cfg = $network::pxe::pxelinux_client_root . "/pxelinux.cfg/profiles/auto_" . $profile . "_" . $label . ".pl"; + cp_af($file, $auto_cfg); + substInFile { + s/^.*deploy_server.*\n//g; + $_ .= "\$o->{deploy_server} = \"$ip_address:3710\";\n" if eof; + } $auto_cfg; $data->set_text("http://$ip_address:3712/auto_" . $profile . "_" . $label . ".pl"); } $fd->hide; |