index 3a19cf441d4e2ea3515733c917707a20c130bc0a..87a28578298fd50299e0ffe0a60a6caa0080af7d 100755 (executable)
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",
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);