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	snetram	1.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	slords	1.2	+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete 1969-12-31 17:00:00.000000000 -0700
3	snetram	1.1	@@ -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