Perl issue

kantzow · 04-08-2005, 09:40 AM

Hello folks,

I have an issue with a perl script we are using for backup on our server. The script is called Snapback2 and is using rsync snapshots to backup files and it includes a full rotation system. Now it's all configured and working but the script generates an error every time it's run.

Error: "Hourly backup must be greater than or equal to 1."

Now the code that this generates this is:

Code:

my $hr_backup = $self->config(-Hourlies);

	if($hr_backup < 1) {
		$self->log_error("Hourly backup must be greater than or equal to 1.");
		return;
	}

The config file: snapback.conf in /etc/snapback hosts the vaule: Hourlies 4

So what I cannot understand is why the if statement returns true since it's value should be 4. My guess is either the the config() is not working as it should or there might be some incompability? Any input is very appriciated!

The program is located here: perusion.com/misc/Snapback2

ahwkong · 04-10-2005, 05:59 AM

Code:

my $hr_backup = $self->config(-Hourlies);

Wild guess:
Could it be $self->config{"Hourlies"}; ?

(assuming config is a dictionary and you need to use a string as a key...)

Besides, the best way to debug the problem is, when this class read the config file, try to print out the line and the internal variables which hold these config values in order to see if the config file is properly read and interpreted.