Removed usePrototype flag, its activated always now.

[gosa.git] / gosa-si / tests / deploy-gosa-si.pl

diff --git a/gosa-si/tests/deploy-gosa-si.pl b/gosa-si/tests/deploy-gosa-si.pl
index 3a19cf441d4e2ea3515733c917707a20c130bc0a..5d2156815833d080ad1e01becebd7df7fb527799 100755 (executable)
--- 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);