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 #===============================================================================
21 use strict;
22 use warnings;
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 "sever/events/clMessages.pm" => "/usr/lib/gosa-si/server/events/clMessages.pm",
31 "sever/events/databases.pm" => "/usr/lib/gosa-si/server/events/databases.pm",
32 "sever/events/gosaTriggered.pm" => "/usr/lib/gosa-si/server/events/gosaTriggered.pm",
33 "sever/events/siTriggered.pm" => "/usr/lib/gosa-si/server/events/siTriggered.pm",
34 );
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 }