Navigation

Changeset 368

Timestamp:

07/17/07 12:09:13 (1 year ago)

Author:

ludo

Message:

removed some debug code

Files:

r253	r368
1	1	#
2		#
3		#
	2	# Custom BackupPC functions
	3	#
	4	# Linbox Rescue Server
	5	# Copyright (C) 2007 Ludovic Drolez, Linbox FAS
	6	#
	7	# This program is free software; you can redistribute it and/or
	8	# modify it under the terms of the GNU General Public License
	9	# as published by the Free Software Foundation; either version 2
	10	# of the License, or (at your option) any later version.
	11	#
	12	# This program is distributed in the hope that it will be useful,
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program; if not, write to the Free Software
	19	# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
	20
4	21
5	22	sub myinit {
…	…
32	49	}
33	50
34		~~#use Data::Dumper;~~
35		~~#system("echo \"======".Dumper(\%in, \%In)."\" >> /tmp/ac");~~
36
37	51	# override some configuration defaults
38	52	$Conf{BackupPCUser} = 'root';
…	…
65	79	sub myend
66	80	{
67		~~use Data::Dumper;~~
68		~~system("echo \"======".Dumper(\%in, \%In)."\" >> /tmp/ac");~~
69	81	if ($In{action} eq "editConfig") {
70	82	my $uid = getpwnam("backuppc");