smeserver-subversion/contribs7/smeserver-subversion-1.4-RemoveEvent-subversion-delete.patch

--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete.RemoveEvent-subversion-delete    2006-08-26 23:59:54.000000000 +0200
+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete  1969-12-31 17:00:00.000000000 -0700
@@ -1,42 +0,0 @@
-#!/bin/perl -w
-#----------------------------------------------------------------------
-# $Id
-# vim: ts=4 sw=4 et:
-#----------------------------------------------------------------------
-# $Copyright
-#
-# This file is part of the "Subversion repositories" panel in the
-# SME Server server-manager panel to configure subversion repositories.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
-#----------------------------------------------------------------------
-
-#------------------------------------------------------------
-# Delete all configured repositories
-#------------------------------------------------------------
-
-use strict;
-use esmith::event;
-use esmith::AccountsDB;
-
-my $accountdb = esmith::AccountsDB->open
-    or die "Can't open the Account database : $!\n" ;
-
-my @repositories = $accountdb->get_all_by_prop('type' => 'repository');
-
-foreach my $r (@repositories) {
-    system ("/sbin/e-smith/signal-event", "repository-delete", $r) == 0
-        or die "Failed to delete $r.\n";
-}
\ No newline at end of file
1	--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete.RemoveEvent-subversion-delete 2006-08-26 23:59:54.000000000 +0200
2	+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete 1969-12-31 17:00:00.000000000 -0700
3	@@ -1,42 +0,0 @@
4	-#!/bin/perl -w
5	-#----------------------------------------------------------------------
6	-# $Id
7	-# vim: ts=4 sw=4 et:
8	-#----------------------------------------------------------------------
9	-# $Copyright
10	-#
11	-# This file is part of the "Subversion repositories" panel in the
12	-# SME Server server-manager panel to configure subversion repositories.
13	-#
14	-# This program is free software; you can redistribute it and/or modify
15	-# it under the terms of the GNU General Public License as published by
16	-# the Free Software Foundation; either version 2 of the License, or
17	-# (at your option) any later version.
18	-#
19	-# This program is distributed in the hope that it will be useful,
20	-# but WITHOUT ANY WARRANTY; without even the implied warranty of
21	-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22	-# GNU General Public License for more details.
23	-#
24	-# You should have received a copy of the GNU General Public License
25	-# along with this program; if not, write to the Free Software
26	-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27	-#----------------------------------------------------------------------
28	-
29	-#------------------------------------------------------------
30	-# Delete all configured repositories
31	-#------------------------------------------------------------
32	-
33	-use strict;
34	-use esmith::event;
35	-use esmith::AccountsDB;
36	-
37	-my $accountdb = esmith::AccountsDB->open
38	- or die "Can't open the Account database : $!\n" ;
39	-
40	-my @repositories = $accountdb->get_all_by_prop('type' => 'repository');
41	-
42	-foreach my $r (@repositories) {
43	- system ("/sbin/e-smith/signal-event", "repository-delete", $r) == 0
44	- or die "Failed to delete $r.\n";
45	-}
46	\ No newline at end of file