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
  24 my $gosa_path = "/home/rettenbe/gonicus/Projekte/gosa/trunk/gosa-si/";
  25
  26 my %copies = (
  27         "gosa-si-server"=> "/usr/sbin/gosa-si-server",
  28         "gosa-si-client"=> "/usr/sbin/gosa-si-client",
  29
  30         "modules/GosaPackages.pm" => "/usr/lib/gosa-si/modules/GosaPackages.pm",
  31         "modules/ClientPackages.pm" => "/usr/lib/gosa-si/modules/ClientPackages.pm",
  32         "modules/ServerPackages.pm" => "/usr/lib/gosa-si/modules/ServerPackages.pm",
  33         "modules/ArpHandler.pm" => "/usr/lib/gosa-si/modules/ArpHandler.pm",
  34
  35         "modules/DBsqlite.pm" => "/usr/share/perl5/GOSA/DBsqlite.pm",
  36         "modules/DBmysql.pm" => "/usr/share/perl5/GOSA/DBmysql.pm",
  37         "modules/GosaSupportDaemon.pm" => "/usr/share/perl5/GOSA/GosaSupportDaemon.pm",
  38
  39         "server/events/clMessages.pm" => "/usr/lib/gosa-si/server/ClientPackages/clMessages.pm",
  40         "server/events/siTriggered" => "/usr/lib/gosa-si/server/ClientPackages/siTriggered.pm",
  41
  42         "server/events/databases.pm" => "/usr/lib/gosa-si/server/GosaPackages/databases.pm",
  43         "server/events/gosaTriggered.pm" => "/usr/lib/gosa-si/server/GosaPackages/gosaTriggered.pm",
  44         "server/events/logHandling.pm" => "/usr/lib/gosa-si/server/GosaPackages/logHandling.pm",
  45         "server/events/mailqueue_com.pm" => "/usr/lib/gosa-si/server/GosaPackages/mailqueue_com.pm",
  46         "server/events/opsi_com.pm" => "/usr/lib/gosa-si/server/GosaPackages/opsi_com.pm",
  47
  48         "server/events/opsi_com.pm" => "/usr/lib/gosa-si/server/ServerPackages/opsi_com.pm",
  49         "server/events/databases.pm" => "/usr/lib/gosa-si/server/ServerPackages/databases.pm",
  50         "server/events/gosaTriggered.pm" => "/usr/lib/gosa-si/server/ServerPackages/gosaTriggered.pm",
  51         "server/events/logHandling.pm" => "/usr/lib/gosa-si/server/ServerPackages/logHandling.pm",
  52         "server/events/mailqueue_com.pm" => "/usr/lib/gosa-si/server/ServerPackages/mailqueue_com.pm",
  53         "server/events/server_server_com.pm" => "/usr/lib/gosa-si/server/ServerPackages/server_server_com.pm",
  54
  55         "client/events/corefunctions.pm" => "/usr/lib/gosa-si/client/events/corefunctions.pm",
  56         "client/events/dak.pm" => "/usr/lib/gosa-si/client/events/dak.pm",
  57         "client/events/gosaTriggered.pm" => "/usr/lib/gosa-si/client/events/gosaTriggered.pm",
  58         "client/events/installation.pm" => "/usr/lib/gosa-si/client/events/installation.pm",
  59         "client/events/mailqueue.pm" => "/usr/lib/gosa-si/client/events/mailqueue.pm",
  60 );
  61
  62 while( my($file_name, $new_file) = each %copies ) {
  63     #print STDERR "copy ../$file_name to $new_file\n";
  64     #system("cp ../$file_name $new_file");
  65
  66     my $del_cmd = "rm -rf $new_file";
  67     print STDERR "$del_cmd\n";
  68     system($del_cmd);
  69
  70     my $ln_cmd = "ln -s ".$gosa_path.$file_name." $new_file";
  71     print STDERR "$ln_cmd\n";
  72     system($ln_cmd);
  73
  74     print STDERR "\n";
  75 }
  76
  77