branches/old/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 %copies = (
  25         "gosa-si-server"=> "/usr/sbin/gosa-si-server",
  26         "modules/GosaPackages.pm" => "/usr/lib/gosa-si/modules/GosaPackages.pm",
  27         "modules/SIPackages.pm" => "/usr/lib/gosa-si/modules/SIPackages.pm",
  28         "modules/DBsqlite.pm" => "/usr/share/perl5/GOSA/DBsqlite.pm",
  29         "modules/GosaSupportDaemon.pm" => "/usr/share/perl5/GOSA/GosaSupportDaemon.pm",
  30         "server/events/clMessages.pm" => "/usr/lib/gosa-si/server/events/clMessages.pm",
  31         "server/events/databases.pm" => "/usr/lib/gosa-si/server/events/databases.pm",
  32         "server/events/gosaTriggered.pm" => "/usr/lib/gosa-si/server/events/gosaTriggered.pm",
  33         "server/events/siTriggered.pm" => "/usr/lib/gosa-si/server/events/siTriggered.pm",
  34 );
  35
  36 while( my($file_name, $new_file) = each %copies ) {
  37     print STDERR "copy ../$file_name to $new_file\n";
  38     system("cp ../$file_name $new_file");
  39 }
  40
  41