Code

modify "deploy" script, just for development!!!
authorrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 24 Mar 2009 10:44:31 +0000 (10:44 +0000)
committerrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 24 Mar 2009 10:44:31 +0000 (10:44 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13560 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/tests/deploy-gosa-si.pl

index 3a19cf441d4e2ea3515733c917707a20c130bc0a..f824b5db813a981ede31693891315f8b798c4a42 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",
@@ -67,6 +72,7 @@ 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"; 
     print STDERR "$ln_cmd\n"; 
     system($ln_cmd);