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

   1 #!/usr/bin/perl
   2 #===============================================================================
   3 #
   4 #         FILE:  deploy-gosa-si.pl
   5 #
   6 #        USAGE:  ./deploy-gosa-si.pl
   7 #
   8 #  DESCRIPTION:
   9 #
  10 #      OPTIONS:  ---
  11 # REQUIREMENTS:  ---
  12 #         BUGS:  ---
  13 #        NOTES:  ---
  14 #       AUTHOR:   (), <>
  15 #      COMPANY:
  16 #      VERSION:  1.0
  17 #      CREATED:  22.04.2008 11:28:43 CEST
  18 #     REVISION:  ---
  19 #===============================================================================
  20
  21 use strict;
  22 use warnings;
  23 use File::Spec;
  24 use Data::Dumper;
  25
  26 my $test_path = File::Spec->rel2abs(File::Spec->curdir());
  27 my @gosa_dir = File::Spec->splitdir($test_path);
  28 pop(@gosa_dir);
  29 my $gosa_path = File::Spec->catdir(@gosa_dir);
  30
  31 my %copies = (
  32         "/usr/sbin/gosa-si-server" => "gosa-si-server",
  33         "/usr/sbin/gosa-si-client" => "gosa-si-client",
  34
  35         "/usr/lib/gosa-si/modules/GosaPackages.pm"    => "modules/GosaPackages.pm",
  36         "/usr/lib/gosa-si/modules/ClientPackages.pm"  => "modules/ClientPackages.pm",
  37         "/usr/lib/gosa-si/modules/ServerPackages.pm"  => "modules/ServerPackages.pm",
  38         "/usr/lib/gosa-si/modules/ArpHandler.pm"      => "modules/ArpHandler.pm",
  39
  40         "/usr/share/perl5/GOSA/DBsqlite.pm"            => "modules/DBsqlite.pm",
  41         "/usr/share/perl5/GOSA/DBmysql.pm"             => "modules/DBmysql.pm",
  42         "/usr/share/perl5/GOSA/GosaSupportDaemon.pm"   => "modules/GosaSupportDaemon.pm",
  43
  44         "/usr/lib/gosa-si/server/ClientPackages/clMessages.pm"  => "server/events/clMessages.pm",
  45         "/usr/lib/gosa-si/server/ClientPackages/siTriggered.pm" => "server/events/siTriggered.pm",
  46
  47         "/usr/lib/gosa-si/server/GosaPackages/databases.pm"        => "server/events/databases.pm",
  48         "/usr/lib/gosa-si/server/GosaPackages/gosaTriggered.pm"    => "server/events/gosaTriggered.pm",
  49         "/usr/lib/gosa-si/server/GosaPackages/logHandling.pm"      => "server/events/logHandling.pm",
  50         "/usr/lib/gosa-si/server/GosaPackages/mailqueue_com.pm"    => "server/events/mailqueue_com.pm",
  51         "/usr/lib/gosa-si/server/GosaPackages/opsi_com.pm"         => "server/events/opsi_com.pm",
  52
  53         "/usr/lib/gosa-si/server/ServerPackages/opsi_com.pm"           => "server/events/opsi_com.pm",
  54         "/usr/lib/gosa-si/server/ServerPackages/databases.pm"          => "server/events/databases.pm" ,
  55         "/usr/lib/gosa-si/server/ServerPackages/gosaTriggered.pm"      => "server/events/gosaTriggered.pm" ,
  56         "/usr/lib/gosa-si/server/ServerPackages/logHandling.pm"        => "server/events/logHandling.pm",
  57         "/usr/lib/gosa-si/server/ServerPackages/mailqueue_com.pm"      => "server/events/mailqueue_com.pm" ,
  58         "/usr/lib/gosa-si/server/ServerPackages/server_server_com.pm"  => "server/events/server_server_com.pm" ,
  59
  60         "/usr/lib/gosa-si/client/events/corefunctions.pm"  => "client/events/corefunctions.pm",
  61         "/usr/lib/gosa-si/client/events/dak.pm"            => "client/events/dak.pm" ,
  62         "/usr/lib/gosa-si/client/events/gosaTriggered.pm"  => "client/events/gosaTriggered.pm",
  63         "/usr/lib/gosa-si/client/events/installation.pm"   => "client/events/installation.pm",
  64         "/usr/lib/gosa-si/client/events/mailqueue.pm"      => "client/events/mailqueue.pm",
  65         "/usr/lib/gosa-si/client/events/load_reporter.pm"  => "client/events/load_reporter.pm",
  66 );
  67
  68 while( my($new_file, $file_name) = each %copies ) {
  69     #print STDERR "copy ../$file_name to $new_file\n";
  70     #system("cp ../$file_name $new_file");
  71
  72     my $del_cmd = "rm -rf $new_file";
  73     print STDERR "$del_cmd\n";
  74     system($del_cmd);
  75
  76     my $abs_file = File::Spec->catfile($gosa_path, $file_name);
  77     my $ln_cmd = "ln -s $abs_file $new_file";
  78     print STDERR "$ln_cmd\n";
  79     system($ln_cmd);
  80
  81     print STDERR "\n";
  82 }
  83
  84