diff options
author | root | 2010-04-13 15:48:45 +0200 |
---|---|---|
committer | root | 2010-04-13 15:48:45 +0200 |
commit | b7077b4c2275ad23e5eedecbd7249913061bac95 (patch) | |
tree | 270d43e49da1b965279728439bc26222d0f14d27 /boot-env/OpenSLX/BootEnvironment/PBS.pm | |
parent | add trim to utils (diff) | |
download | core-b7077b4c2275ad23e5eedecbd7249913061bac95.tar.gz core-b7077b4c2275ad23e5eedecbd7249913061bac95.tar.xz core-b7077b4c2275ad23e5eedecbd7249913061bac95.zip |
fix pbs stuff
Diffstat (limited to 'boot-env/OpenSLX/BootEnvironment/PBS.pm')
-rw-r--r-- | boot-env/OpenSLX/BootEnvironment/PBS.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/boot-env/OpenSLX/BootEnvironment/PBS.pm b/boot-env/OpenSLX/BootEnvironment/PBS.pm index 2e7ef706..2072884b 100644 --- a/boot-env/OpenSLX/BootEnvironment/PBS.pm +++ b/boot-env/OpenSLX/BootEnvironment/PBS.pm @@ -92,12 +92,12 @@ sub writeBootloaderMenuFor 'systems' => $systemInfos }); my $ua = LWP::UserAgent->new; - my $res = $ua->request(POST 'http://pbs.lan/backend/system/sync', [data => $data_json]); + my $res = $ua->request(POST 'http://pbs.experimental.openslx.org/backend/system/sync', [data => $data_json]); if ($res->is_success) { my $resData = from_json($res->content); if ($resData->{'getKernel'} eq 'fresh') { - $res = $ua->request(POST 'http://pbs.lan/backend/system/addkernel', + $res = $ua->request(POST 'http://pbs.experimental.openslx.org/backend/system/addkernel', ['kernel' => basename($prebootSystemInfo->{'kernel-file'}), 'kernelFile' => ["$self->{'target-path'}/imagebase/vmlinuz"], 'initramfsFile' => ["$self->{'target-path'}/imagebase/initramfs"], @@ -109,7 +109,7 @@ sub writeBootloaderMenuFor } else { if ($resData->{'getKernel'} eq 'update') { - $res = $ua->request(POST 'http://pbs.lan/backend/system/updatekernel', + $res = $ua->request(POST 'http://pbs.experimental.openslx.org/backend/system/updatekernel', ['kernel' => basename($prebootSystemInfo->{'kernel-file'}), 'kernelFile' => ["$self->{'target-path'}/imagebase/vmlinuz"], ], @@ -121,7 +121,7 @@ sub writeBootloaderMenuFor # do nothing } if ($resData->{'getInitramfs'} eq 'update') { - $res = $ua->request(POST 'http://pbs.lan/backend/system/updateinitramfs', + $res = $ua->request(POST 'http://pbs.experimental.openslx.org/backend/system/updateinitramfs', ['kernel' => basename($prebootSystemInfo->{'kernel-file'}), 'initramfsFile' => ["$self->{'target-path'}/imagebase/initramfs"], ], |