X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gosa-si%2Ftests%2Fdeploy-gosa-si.pl;h=5d2156815833d080ad1e01becebd7df7fb527799;hb=0121d2f7ad889acc12aef2c6a0834860ae9ed90f;hp=3a19cf441d4e2ea3515733c917707a20c130bc0a;hpb=33152cba4bee759b208ceadcb8d57d85675c7888;p=gosa.git diff --git a/gosa-si/tests/deploy-gosa-si.pl b/gosa-si/tests/deploy-gosa-si.pl index 3a19cf441..5d2156815 100755 --- a/gosa-si/tests/deploy-gosa-si.pl +++ b/gosa-si/tests/deploy-gosa-si.pl @@ -20,8 +20,13 @@ use strict; use warnings; +use File::Spec; +use Data::Dumper; -my $gosa_path = "/home/rettenbe/gonicus/Projekte/gosa/trunk/gosa-si/"; +my $test_path = File::Spec->rel2abs(File::Spec->curdir()); +my @gosa_dir = File::Spec->splitdir($test_path); +pop(@gosa_dir); +my $gosa_path = File::Spec->catdir(@gosa_dir); my %copies = ( "/usr/sbin/gosa-si-server" => "gosa-si-server", @@ -57,6 +62,7 @@ my %copies = ( "/usr/lib/gosa-si/client/events/gosaTriggered.pm" => "client/events/gosaTriggered.pm", "/usr/lib/gosa-si/client/events/installation.pm" => "client/events/installation.pm", "/usr/lib/gosa-si/client/events/mailqueue.pm" => "client/events/mailqueue.pm", + "/usr/lib/gosa-si/client/events/load_reporter.pm" => "client/events/load_reporter.pm", ); while( my($new_file, $file_name) = each %copies ) { @@ -67,7 +73,8 @@ while( my($new_file, $file_name) = each %copies ) { print STDERR "$del_cmd\n"; system($del_cmd); - my $ln_cmd = "ln -s ".$gosa_path.$file_name." $new_file"; + my $abs_file = File::Spec->catfile($gosa_path, $file_name); + my $ln_cmd = "ln -s $abs_file $new_file"; print STDERR "$ln_cmd\n"; system($ln_cmd);