f824b5db813a981ede31693891315f8b798c4a42
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;
23 use File::Spec;
24 use Data::Dumper;
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);
31 my %copies = (
32 "/usr/sbin/gosa-si-server" => "gosa-si-server",
33 "/usr/sbin/gosa-si-client" => "gosa-si-client",
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",
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",
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",
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",
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" ,
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 );
67 while( my($new_file, $file_name) = each %copies ) {
68 #print STDERR "copy ../$file_name to $new_file\n";
69 #system("cp ../$file_name $new_file");
71 my $del_cmd = "rm -rf $new_file";
72 print STDERR "$del_cmd\n";
73 system($del_cmd);
76 my $ln_cmd = "ln -s ".$gosa_path.$file_name." $new_file";
77 print STDERR "$ln_cmd\n";
78 system($ln_cmd);
80 print STDERR "\n";
81 }