51 lines
1011 B
Perl
51 lines
1011 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
for my $event (qw(
|
|
repository-create
|
|
repository-modify
|
|
repository-delete
|
|
subversion-modify
|
|
user-create
|
|
user-modify
|
|
user-delete
|
|
group-modify
|
|
group-delete
|
|
))
|
|
{
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
|
|
templates2events("/etc/httpd/conf/httpd.conf", $event)
|
|
}
|
|
|
|
for my $event (qw(
|
|
repository-modify
|
|
repository-create
|
|
))
|
|
{
|
|
event_link("repository-modify", $event, "05");
|
|
}
|
|
|
|
for my $event (qw(
|
|
repository-delete
|
|
subversion-delete
|
|
))
|
|
{
|
|
event_link($event, $event, "05");
|
|
}
|
|
|
|
for my $event (qw(
|
|
user-delete
|
|
group-delete
|
|
))
|
|
{
|
|
event_link("subversion-delete-from-access-list", $event, "04");
|
|
}
|
|
|
|
panel_link('subversion', 'manager');
|
|
|
|
my $event= "smeserver-subversion-update";
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
|
|
templates2events("/etc/httpd/conf/httpd.conf", $event)
|
|
|