Context Navigation

Changeset 328

Timestamp:

12/03/06 13:29:26 (7 years ago)

Author:

max

Message:

OzTivo? grabber exits on empty config file

Files:

r199	r328
3	3	# OzTivo grabber
4	4
5		my $version = '0.10';
	5	my $version = '0.11';
6	6
7	7	# Requires configuration!
…	…
22	22	# 0.9 : --configure
23	23	# 0.10 : Minor internal changes to be more forkable
	24	# 0.11 : Exit on empty config file
24	25
25	26	use strict;
…	…
75	76	}
76	77	my ($user, $pw) = ($1, $2);
	78
	79	unless ($user and $pw)
	80	{
	81	die "Failed to extract a sensible username and password from config file!\n";
	82	}
77	83
78	84	exit 0 if ($ready);