1 |
--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.AddHooksToUSerAndGroupDeleteEvents 2008-02-25 22:28:36.000000000 +0100 |
--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.AddHooksToUSerAndGroupDeleteEvents 2008-02-25 22:28:36.000000000 +0100 |
2 |
+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list 2008-02-25 22:27:32.000000000 +0100 |
+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list 2008-02-25 22:27:32.000000000 +0100 |
3 |
@@ -0,0 +1,56 @@ |
@@ -0,0 +1,58 @@ |
4 |
+#!/usr/bin/perl -w |
+#!/usr/bin/perl -w |
5 |
+ |
+ |
6 |
+package esmith; |
+package esmith; |
16 |
+# Delete the user from subversion repositories |
+# Delete the user from subversion repositories |
17 |
+#------------------------------------------------------------ |
+#------------------------------------------------------------ |
18 |
+ |
+ |
19 |
+die "Username argument missing." unless defined ($userName); |
+die "Username argument missing." unless defined ($item); |
20 |
|
+ |
21 |
|
+my @entries = qw(); |
22 |
+ |
+ |
23 |
+if ($event eq 'user-delete') { |
+if ($event eq 'user-delete') { |
24 |
+ |
+ |
25 |
+ my @entries = qw(UsersWrite UsersRead); |
+ @entries = qw(UsersWrite UsersRead); |
26 |
+ |
+ |
27 |
+} elsif ($event eq 'group-delete') { |
+} elsif ($event eq 'group-delete') { |
28 |
+ |
+ |
29 |
+ my @entries = qw(GroupsWrite GroupsRead); |
+ @entries = qw(GroupsWrite GroupsRead); |
30 |
+ |
+ |
31 |
+} else { |
+} else { |
32 |
+ |
+ |